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PREFACE 



This publication is organized in three 
chapters. Chapter 1 is aui introduction 
describing the relationship between the 
compiler and the operating system, and the 
overall organization of the compiler. 
Chapter 2 is a general description of each 
logical phase followed by descriptions of 
each of the physical phases contained in 
the logical phase* Chapter 3 consists of 
flowcharts « tables and routine directories. 
The flowcharts show the relationship 
between the routines of each phase « while 
the tables and directories list the 
routines and their functions. 

The appendixes contain topics of special 
importcmce and reference material. 

The convention has been followed in this 
manual of printing all PL/I language items 
in block capitals. 

Prerequisite to the use of this 
publication are the following: 

IBM Svstem/360 : 

Principles of Operation . Order No. 
GA22-6821 

IBM Svstero/360 Operating System ; 

PL/I(F) Iianquaqe Reference Manual , Order 
No. GC28-8201 

PL/I(F) Programmer's Guide , Order No. 
GC28-6594 



Although not prerequisite, the following 
publications are related to this manual and 
should be consulted: 



IBM 5ystem/360 Operating System : 

Operator's Reference . Order No. 
6C28-6691 

Operator's Procedures . Order No. 
GC28-6692 

System Programmer's Guide . Order No. 
GC28-6550 

Storage Estimates , order No. GC28-6551 

System Generation , Order No. GC28-655U 

Supervisor and Data Manaqemfent Services , 
order No. GC28-6646 

Supervisor and Data Management Macro 
Instructions i. Order No. GC 28-6 647 

Sequential Access Methods, Proqram Loqic 
Manual, Order No. 6Y28-6604 

Introduction to Control Proqram Loqic, 
Program Loqic Manual . Order No. 
GY28-6605 

PL/I Subroutine Library, Program Logic 
Manual , Order No. 6y2 8-6801 
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CHAPTER 1; INTRODUCTION 



PURPOSE OF THE COMPILER 



The IBM Systeni/360 Operating System PL/I 
(F) Compiler analyzes and processes source 
programs written in PL/I, and translates 
thero into a form suitable for input to the 
Linkage Editor or Linkage Loader. When 
errors are detected in the source program, 
appropriate diagnostic messages are 
produced. The compiler functions within 
IBM System/360 Operating System and may be 
used on machines where at least 45,056 
(4 IK) bytes of main storage are available 
for the compilation (exclusive of storage 
requirements for the operating system) . 



THE COMPILER PND THE OPERATING SYSTEM 



The PL/I (F) Compiler is a processing 
program of IBM System/360 Operating System. 
The compiler consists of a number of phases 
under the supervision of compiler control 
routines. The compiler communicates with 
the control program of the operating 
system, for input/output and other 
services, through the control routines. 

A compilation is introduced as a job 
step under the control of the operating 
systeir, via the JOB statement, the execute 
(EXEC) statement, and the data definition 
(DD) statements of the Job Control 
Language, for the input/output data sets. 
Cataloged procedures are provided to keep 
these statements to a minimum. A 
discussion of the introduction of a 
compilation as a job step, and of the 
available cataloged procedures, is given in 
the publication IBM System/360 Operating 
System, PL/I (F) Programmer's Guide . 

The source program to be compiled 
appears as input to the compiler on the 
SYSIN data set. The compiler uses SYSUTl 
(required if the main storage is 
insufficient to contain the program) and 
SYSUT3 (required if the US-character set or 
the compile-time processor is used) as work 
data sets. The SYSPRINT data set is 
mandatory. The SYSPDNCH and SYSLIN data 
sets are used, depending on the options 
specified by the source programmer, to 
contain the output from the compiler. 

The overall data flow associated with a 
compilation, and the data sets used in the 
compilation, are illustrated in Figure 1. 



A compilation is initiated by loading 
the compiler control routines from the Link 
Library. The compiler control routines 
then carry out their own initialization, 
including loading those compiler control 
routines which remain in storage throughout 
the compilation. These routines perform 
the following functions: 

1. Act as the interface between the 
compiler phase and the operating 
system, controlling all input/output, 
storage allocation, program 
interruptions, storage dumping, etc. 

2. Supervise the loading of compiler 
phases in accordance with source 
program options and information 
obtained from the source program by 
the compiler phases. 

3. Supervise all workspace used by the 
compiler for information concerning 
the source program. This includes any 
spilling from main storage to 
auxiliary storage in order to 
accommodate large source programs, the 
conversion of symbolic references to 
absolute addresses, and the conversion 
from absolute addresses to symbolic 
references. 

H, Provide a number of routines to assist 
in compilier debugging. 

The compiler options specified are 
interpreted and the appropriate action 
taken. The environmental options, such as 
storage size and device type, are used to 
calculate the text and dictionary block 
size and the "spill" point (i.e. the point 
at which the main storage available is 
insufficient to contain the dictionary and 
text) . 

To determine the block size a table 
contained in Phase AB is used. The storage 
size is used as the argument to search the 
table. When the correct entry is found, 
the text block size and the dictionary 
block size values are extracted and used 
for the compilation. 

The options are instructions to the 
compiler. Some of these require a phase to 
be loaded that would not otherwise be 
loaded. When an option of this type is 
found, a request for the phase required is 
inserted into the status byte in the phase 
directory. Other options are in the form 
of instructions to a phase that is always 
loaded. These instructions are also placed 
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in coded form in the communications region 
of the dictionary, generally in the Control 
Code word (see CCCODE in Appendix B) . 



COMPILER OBGANIZATION 



program, consisting of a string of 
machine instructions. For the 
compiler proper, the text code bytes 
used, and formats of statements at 
different stages of the compilation, 
will be found in Appendix D. 



The PL/I (F) Compiler comprises a number of 
logical phases, each of which consists of 
several physical phases as shown in 
Appendix A. 

The compiler phases and their 
corresponding functions are indicated in 
Figure 2, and the organization of the 
compiler is shown in Figure 3. 

Control is passed between the phases of 
the compiler via the control routines. 
After each phase has been executed, it 
branches to the control routine, which 
selects from its load list the next phase 
to be executed. 

Communication between the phases is 
implemented by the following: 

1. The text string. The text string at 
the start of the cewnpilation is input 
text. This is converted by the 
coropile-time processor, if necessary, 
into a string which is PL/I source 
text- The characters in this string 
are translated into a code internal to 
the compiler. The phases of the 
compiler gradually process the text 
until the final fornv is the object 



The text is broken down into a number 
of blocks, depending upon the size of 
the machine. Each block has a 
symbolic name which is independent of 
the physical location of the block in 
storage. Thus, the text blocks may be 
moved around in main storage under the 
supervision of the compiler control 
routines, and spilled on to auxiliary 
storage if insufficient main storage 
is available. 

The dictionary. The dictionary 
consists of a number of blocks, each 
with a symbolic name. Part of the 
first dictionary block is used as a 
communications region (see Appendix F) 
between phases, and for this reason 
the first block is never spilled, even 
when the source program to be compiled 
exceeds available storage. The 
communications region contains such 
information as the addresses of the 
heads of chains, the symbolic start of 
text, etc. The remainder of the 
dictionary contains all information 
relating to identifiers appearing in 
the program, temporary storage areas 
required, etc. For the compiler 
proper, the format of all dictionary 
entries will be found in Appendix C. 
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Loglcal Phase 
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-H 



Coir.pile-time Processor 



Bead- In 



Dictionary 



Pretranslator 



Translator 



Aggregates 



OptiiTiization 



Pseudo-Code 



• Figure 2. 



Reads input text, executes any compile- time statements 
contained in it, and modifies text as directed, producing 
modified text for further compiler processing. 

Checks source program syntax and removes all superfluous 
characters, such as comments and non-significant blanks, 
from the text string. 

Removes all BCD identifiers and attribute declarations from 
the source string, and replaces them by symbolic references 
to dictionary entries. The dictionary entries contain all 
the consistent declared attributes, and all the attributes 
specified in the language in default of source program 
specifications. Error messages are generated for all 
inconsistent attributes. 

Processes those features of the language that are more 
easily processed in their original PL/I form, than when the 
original syntactic form has been lost in later phases. The 
Pretranslator carries out these modifications which include 
the rearranging of the order of certain I/O statements, the 
creation of temporary variables for procedure arguments 
which are expressions, the conversion of array and 
structure assignments to a series of DO-loops surrounding 
scalar assignments, and the removal of iSUB expressions. 

Converts the original PL/I syntactic form to an internal 
syntactic form, referred to as "triples." Triples consist 
of the original source program operators and operands, but 
rearranged so that the operations specified in the source 
string may be carried out in their proper order. 

Carries out all structure and array mapping, so that 
elements are aligned on the correct storage boundaries. 
When it is not possible to carry out the mapping at 
compilation time, such as when the . aggregates contain 
string lengths or array bounds which are specified by 
expressions, object code is produced to do it at object 
time. This phase also checks that items' DEFINED on arrays 
and structures can be mapped consistently. 

If optimization is requested, the optimization phases 
attempt to reorder triples for subscript address 
calculations and generate efficient pseudo-code for DO-loop 
control. This enables some PL/I programs to compile into 
faster object code at the cost of extra compile time. 

Converts the triples to a form closely resembling machine 
instructions, in which registers are represented 
symbolically, and storage locations are represented by 
dictionary references with offsets. The final pseudo-code 
version of the text also contains a number of special 
pseudo-code items for the guidance of later phases. 
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Compiler Logical phases (Part 1 of 2) 
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I Register Allocation 



Final Assembly 



j Logical Phase j Description 

Y + 

storage Allocation | Searches the dictionary for all entries requiring storage, 

and allocates offsets to each item, either within its 
AUTOMATIC block, or within the STATIC storage area. Code 
is compiled to set up dope vectors and pointers at object 
time, for allocations of controlled variables and 
temporaries, the storage for which must be obtained during 
the execution of the object program. Prologue code is 
generated for each block of the object program. 

Allocates physical registers to the symbolic registers 
which have been requested by earlier phases, and also 
ensures that all the storage location offsets allocated in 
previous phases can be addressed by the insertion of 
additional instructions, where necessary. 

Completes the translation to machine code instructions, by 
calculating branch destination addresses inserted 
symbolically by earlier phases. Loader text is then 
produced for the machine instructions, constants, INITIAL 
values in STATIC storage, and all the constant data 
required for block initialization. ESD and RLD cards are 
produced to enable the object program to be edited by the 
Operating System/360 Linkage Editor or the Linkage Loader. 
The Final Assembly Phase also produces a listing of the 
object code produced. 

1 Error Editor I Entered at the end of every compilation. The dictionary is 

examined to determine whether there are any diagnostic 
messages to be printed out. If there are none, the 
compilation is terminated by the compiler control. If 
there are diagnostic messages to be printed out, the error 
dictionary entries are processed and the messages are 
printed. The texts of all the diagnostic messages are held 
in modules XG through YY. 

L L J 

Fi<jure 2. Compiler Logical Phases (Part 2 of 2) 
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CHAPTER 2; THE COMPILER LOGICAL PHASES 



Note: For descriptions of terms and 
abbreviations iised in the text during a 
compilation which are mentioned in this 
chapter, refer to Appendix D.ll. 



COMPILER CONTROL AND t8-CHARACTER SET 
PREPROCESSOR 



COMPILER CONTROL 

When the PL/I (F) Compiler is invoked by 
the calling program (e.g., the Job 
Scheduler) of the operating syst«n, the 
Compiler Control module lEMAA is loaded and 
entered. lEMAA is resident durix^ the 
whole compilation; it controls the 
following functions: 

Initial iz at ion 

Character translation 

Communication between phases 

Text and dictionary block control 

Scratch storage control 

Storage requirements 

Phase loading 

Phase directory construction 

Diagnostic message control 

Input/output control 

Program check handling 

I Coropile-step termination 

Initialization 



Initialization is achieved by module AA 
linking to module AB. Module AB performs 
the detailed initialization of the 
compiler, and provides the following 
functions: 

Opens SYSIN and SYSPRINT data sets 

Constructs a phase directory (for details 
refer to Appendix B) 

sets up a communications region in the 
dictionary (for details refer to Appendix 
F) 



Scans option list 

Obtains space for text blocks and 
dictionary blocks. 

Opens SYSUT3 and SYSPUNCH as necessary 

Prints a list of options used in current 
compilation 

Loads phase AN to handle a normal 
dictionary, or phase AL if an extended 
dictionary is requested. 

On return from module AB, the first 
compiler phase is loaded and entered. 



Character Translation 



The character translation tables (see 
Appendix D.l) provide the facility for 
converting external code to a compiler 
internal code, and for converting the 
internal code back to the external form. 
These tables thus prevent the compiler from 
becoming character code dependent, and 
enable the scanning routines to process the 
input source statements more efficiently. 
Note that the contents of these tables are 
different during ccnnpile-time processing 
from the contents during ccmipilation 
proper. 



Communication Between Phases 



The communications region is an area 
specified by the control routines, and used 
to communicate necessary information 
between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation. 

Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the ccxnmuni cations region appear in 
Appendix F. (Note: The use of the 
conmtunications region during compile- time 
processing is described in Appendix J.) 



Text and Dictionary Block Control 

Block control is achieved by a system of 
text and dictionary references. If the 
program in storage becomes too large. 
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blocks are placed on an external file, 
SYSUTl. The block control routines contain 
the input/output control. 



Text Block Chaining 



When text blocks are chained, the second 
byte of the last but one word of each block 
contains the block number of the next block 
in the chain. 



Block control Area 



The block control area contains two tables,, 
DSLOTS and TSLOTS, and is held in modules 
AL/AN. The DSLOTS table contains 70 4 -byte 
slots, and the TSLOTS table contains 96 
U-byte slots. The first six slots in each 
table are used by the compiler control 
routines for holding general block 
information. The remaining slots contain 
details of the status and position of text 
and dictionary blocks, one slot per block. 



The format of each slot is as follows: 
1 l^^e indicator 



3 byte address - 



(a) if the block is in 
main storage it 
contains the absolute 
address of the start 
of the block. 



(b) if the block is on 
disk it contains the 
relative track 
address of the block 
in the spill file. 



The format of the indicator byte is X 
*ab* where: 

ab = FF if the block has not been 
allocated 

a = 8 if the block is in storage 

a = if the block is on the spill 
file 

b = 4 if the block is busy (i.e., 
locked into storage) 

b = 3 if the block is wanted (i.e., 

spillable but preferably kept in 
storage) . 

b = 2 if the block is not wanted 
(i.e., information to be 
retained but block may be 
spilt) . 

b = 1 if the block is free (i.e., 

information no longer required) . 



Scratch storage Control 



Scratch storage of 4K bytes is guaranteed 
to all phases. The control routines split 
the 4K-block into discrete sections, each 
of 512 bytes, and allocates them as 
required. 



Storage Reguirements 

The PL/I (F) Compiler requires main storage 
for the following purposes : 

Compiler processing phases 

Print buffers 

Compiler control routines 

Dictionary area 

Text area 

Input/Output buffers 

Input/Output routines (QSAM) 

The main storage required by each phase 
of the conpiler need be contiguous only for 
each control section. 

During the read- in logical phase a 
minimum of two dictionary blocks and two 
text blocks is avedlable in storage 
simultaneously. During the optimization 
logical phase, a minimum of three 
dictionary and five text blocks is 
available in storage simultaneously. 

During the rest of the compilation four 
dictionary blocks and four text blocks are 
available in storage simultaneously. 

The dictionary and text block size is 
chosen according to the amount of main 
storage available to the compiler. The 
SIZE option, inteirpreted at invocation 
time, provides the value used to determine 
the block size. A table contained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the block size is extracted. 
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Appendix E shows details of storage 
allocation. 



Phase Loading 



Phase loading routines include phase 
marking (wh^re phases are indicated as 
wanted or not wanted), phase loading, and 
phase deleting facilities. The phase 
directory is constructed for this purpose. 



Phase Directory Construction 



Because of the nundber of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. This list 
is \ised to pass status indications (i.e., 
whether phases are wanted or not wanted) 
from the first half to the second half. 
Phase JZ uses the list to construct a new 
directory for the second half. (The error 
message phases have their own phase 
directory, which is built in phase XB and 
uses the same space in AA as the phase 
directory proper.) 

The phase directories are constructed by 
use of the BLDL macro and a build list. 
The format of the build list is fully 
described in the publication IBM System/360 
Operating System, Supervisor and Data 
Management Services . For details of the 
phase directory see Appendix B. 



Ccxopile-step Termination 

The compiler completion code is picked up 
and control is returned to the calling 
program. 



The compiler completion codes are as 
follows : 



Code Meaning 

No diagnostic messages issued; 
compilation completed with no 
errors; successful execution 
expected 

4 Warning messages only issued; 
program ccmpiled; successful 
execution is probable 

8 Error messages issued; compilation 
completed, but with errors; 
execution may fail 

12 Severe error messages issued; 

compilation may be ccxnpleted but 
with errors, successful execution 
improbable. If a severe error 
occurs during compile-time 
processing, the compilation will be 
terminated and,, if the SOURCE 
option has been specified, a 
listing of the PL/I program text 
produced by the compile-time 
processor will be printed. 

16 Termination error messages issued; 
compilation terminated abnormally; 
successful execution impossible. 



Diagnostic Message Control 



Diagnostic message control routines cause 
diagnostic messages to be placed in a chain 
in the dictionary. 



Input/Output control 



The I/O control routines involved act as an 
interface between the conqailer phases, and 
SYSIN, SYSPRINT, SYSLIN, and SYSPUNCH data 
sets. (See Figure 4.) 



Progreum Check Handling 



The compiler handles all program checks. 
Control can be passed to a phase to enable 
it to deal with the check. 



COMPILER CONTROL MODULES 



In addition to modules AA and AB, further 
modules, AC, AD, AE« AF, AG, AH, AI, AK, 
AL, AM, AN, and JZ are used in compiler 
control. The functions of these modules 
are briefly described in the following 
paragraphs . 



Module AC 



Module AC controls reading and writing 
operations on SYSUT3, the intermediate 
file. It is loaded only if the charub or 
MACRO option is specified, and is deleted 
at the end of the Read-In Phase. 
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Module AD 



Module AD performs inter-phase dumping. 

All specified active storage is dumped 
at the end of the phases stated or implied 
in the DUMP option. If the DUMP option 
includes either I, for the Annotated 
Dictionary Dump, or E, for the Annotated 
Text Dump, or both, then phase AD will load 
either phase AH, or phases AI and AJ, or 
all three, to produce the required output. 



The DUMP Option 



The DUMP option which is specified in the 
PARM field of the EXEC card indicates where 
dumping of main storage is to take place. 
It may be specified in one of the following 
ways; 

1. DUMP, means a dynamic dump is required 
(the dump routine will be called by a 
running phase) 

2. DUMP=(area,Xj.»Xa»X3, . .. .Xn) means a 
dump of the storage after the named 
phase where x is the name of a phase. 

Area is any combination of TDPSCIE: 

T text blocks 

D dictionary blocks 

P phases loaded 

S scratch storage 

c control phase 

I annotated dictionary blocks 

E annotated text blocks 

The general syntax is: 

DUMP[-( (area] , {x| (y,z)}, .. .)] where x, 
y and z are phase names. 

A single phase name indicates dumping of 
storage after this single phase. A pair of 
phase names indicates a continuous group of 
phases after which dumping of storage is to 
occur. 



Use of the DUMP option may cause the 
compiler to use about 8K bytes more main 
storage than the SIZE option specifies. 
This is because SIZE specifies the amount 
of main storage the compiler can use for 
normal compilation ouid does not allow for 
the internal compiler diagnostic dumps. 



Example of an EXEC card using the DUMP 
option: 



//STEPl EXEC PROC=PLlLFC, 

PARM. PL1L=»DUMP= (TIP, OE,QU) • 



This statement specifies compilation using 
the DUMP option to obtain a printout of the 
text blocks, the annotated dictionary, and 
the loaded phases after the completion of 
compiler phases OE and QU. 



Module AE 



Module AE is the finalization of the 
Read-In Phase control. (See Fig. 4, Note*-) 



Module AF 



Module AF is a control section consisting 
of a table containing the compiler options 
tiHiich may be used during a compilation. 
The table is constructed at system 
generation time. The control section is 
brought into storage by the initialization 
Module AB at compilation time. A 
description of the use of Module AF is 
given in Appendix G. 



The dump will appear on SYSPRINT, 
inserted into the normal compiler output. 

If area is omitted the default taken is 
DTSP. If a program check occurs and DUMP 
has been specified then area will be given 
the default DTSPC. 

If the area specifies both T and E or 
both D and I, only the r el event edited dump 
will be printed. 

If the area contains P, a message is 
printed on completion of every phase, 
whether mentioned in the DUMP parameter or 
not. 



Module AG 



Module AG closes SYSUT3 for output, and 
re-opens it for input. 

The closing and opening operations are 
performed in the following order: 

CLOSE 

alter macro- type in data control block 
(DCB) 

OPEN (INPUT) 

switch routine ZURD to point at the 
SYSUT3 data control block 
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Module AH 



Module JM 



Module AH produces a dump of the 
dictionary. It prints out the 
conununications region in the first block, 
and the offsets tables for each block if 
the extended dictionary option is in use- 
The remainder of each block is printed out 
entry by entry. The BCD is translated for 
those entries containing BCD. At the end 
of the dump, a list of all the dictionary 
codes used is given, with an explanation 
for each code. 



Module AM marks phases as either wanted or 
not wanted, depending upon the compiler 
invocation options. Phases that are always 
loaded are marked wanted. 

AM is the first compiler phase loaded 
after compiler initialization. It tests 
the relevant bits in the Control Code word 
(CCCODE) and marks the phases accordingly. 



The module is called by phase AD only if 
an I is specified in the area field of the 
DUMP option. 



Module AN 



Module AN contains the routines for 
dictionary and text-block handling for the 
normal- sized dictionary. 



Modules AI and A J 



Modules AI and AJ are called, if E is 
specified in the area field of the dump 
option, to provide an 'easy-to-read* text 
print in which the triples and pseudo-code 
items comprising the text are printed 
separately. This option is available 
between phases I A and OE inclusive. 



Module AK 



Module AK is the closing routine of the 
compiler. Its function is to release main 
storage used for dictionary, text blocks, 
scratch storage, and completed phases. If 
batch compilation is not specified, module 
AK closes all the files used by the 
compiler. If a batch compilation is 
specified, a check is made to determine 
whether any source programs are still to be 
compiled. Where there are none module AK 
closes all files. Where one or more 
programs remain to be compiled, the spill 
file only is closed, the batch delimiter 
card is scanned for syntax errors, and 
control is returned to module AA. 



Module AL 



Module AL contains the control routines for 
dictionary and text-block handling for the 
extended dictionary. 



Module AT 



Module AT provides extra debugging features 
during compiler runs. The three features 
of this module are; 

1. A 'TRACE* of all instructions executed 
between specified locations within 
specified compiler modules. 

2. A 'FLOW' of branches taken between 
specified locations within specified 
compiler modules. 

3. The ability to VERIFY and REP (replace) 
patches within specified compiler 
modules. 

Note ; Features 1 and 2 can be inhibited 
until a particular statement is 
reached. 



The TRACE/ PATCH Option 



The following must be done to use the 
facilities described above in Module AT; 

1. 'T' (Trace or Flow) or 'P* (Verify or 
Rep) must be inserted in the compiler 
option list. 

2. A size of at least 12K less than the 
size available must be specified. Do 
not attempt to use SIZE=999999. 

3. As the output will go to a dataset 
named TRACEOUT, the following DD card 
will also be required in the JCL for 
the compile step; 
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//TRACEOUT DD SYSOUT=A 

In addition, control cards will be 
required which must be inserted before the 
first card of the sovirce program. Up to 10 
each of TRACE/FLOW and VERIFY/REP cards are 
permitted . 

To obtain TRACE/FLOW facilities the 
control card should contain the following 
information: 

♦ in card column 1 

Keyword 'TRACE' or 'FLOW 

Two- letter module name" 



Four-digit hexadecimal 
offset of instruction 

Two-letter module name 

Four-digit hexadecimal f 
offset of instruction 



of start of 
Trace or Flow 



of end of 
Trace or Flow 



[STAT=nnnnn] 



where nnnnn is 
five-digit decimal PL/I 
statement number at 
which Trace/Flow is to 
start. 

Note: This field is 
optional and may be 
used only if the module 
in which TRACE/FLOW is 
to start updates ZSTAT. 



Example: 

♦ TRACE GB 012B GU 036C 

Note ; Fields should be separated by at 
least one blank, and end in or 
before column 72. 

To obtain the PATCH facilities the 
control card should contain the following 
information: 

* in card column 1 

Keyword 'VERIFY* or 'REP* 

Two- letter module name 



Four-digit hexadecimal 
offset 



of Patch 
location 



Note ; Hexadecimal Patch data may be 

separated by commas if desired. 

Excunple: 

* VERIFY GB 032A 

VERIFY and REP instructions are carried 
out as soon as the module concerned is 
loaded. If the data does not compare on 



Verify operation, an error message will be 
given on the data set TRACEOUT. Note that 
Rep operations do not depend on a previous 
valid verify operation. 



Module Fl 



Module Fl checks whether Syntax Check 
should terminate compilation. The three 
options for the Syntax Check are recognized 
in module AB and flags are set. On 
completion of the Read- in and Dictionary 
phases, these flags are tested by module 
Fl, which was loaded when phase FX released 
control. The decision to terminate or 
continue is made based on the flag settings 
and the level of error severity encountered 
(by inspecting the heads of the error 
chains) , and a special message is issued at 
this point. 



Module JZ 



Module JZ builds the second half phase 
directory. A build list is constructed 
from the second half list held in Module 
AA; a BLDL is performed on this list. The 
phase directory is then reconstructed in 
Module AA for the second half of the 
compiler. 



US-CHARACTER SET PREPROCESSOR 

Phase BX is the US-character set 
preprocessor. It is loaded on programmer 
option and receives, as input, source text 
in the US- character syntax. 

The preprocessor scans the input text 
for occurrences of characters peculiar to 
the US- character set, and converts these to 
the corresponding 60-character symbols. It 
then puts out the adjusted text onto 
auxiliary storage ready for Phase CI, the 
first pass of the Read-In Phase. 

The text is read in record by record. 
It is then scanned for alphabetic 
characters which may be the initial letters 
of operator keywords, for periods, and for 
commas. Items within comments or character 
strings are ignored. 

When a possible initial letter is 
discovered, tests are made to determine 
whether or not one of the reserved operator 
keywords has been found. If one has been 
found, it is replaced by its 60-character 
set equivalent. Similarly, appearances of 
two periods are replaced by a colon, and a 
comma-period pair is replaced by a 
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semi-colon if the coniina- period pair is not 
iininediately followed by a numeric 
character . 

Allowance is made for the possibility 
that a concatenation of characters which is 
meaningful in the 48-character set may be 
split between two records. 

Before the text is processed a copy of 
the original input is preserved. The 
output from the preprocessor is the 
transformed text, record by record, 
followed by the original text. The Read- In 
Phase processes transformed text but prints 
out the original. 

The 48-character set preprocessor uses 
Compiler Control routine ZURD to obtain 
input, and routine ZUBW to place its output 
onto auxiliary storage. 

Note ; If the MACRO option is specified, all 
the processing described above is 
done by the compile-time processor, 
and phase BX is bypassed. 



COMPILE-TIME PROCESSOR LOGICAL PHASE 



The compile-time processor consists of six 
physical phases. Each of these phases is 
executed once, unless an INCLUDE data set 
is encountered. In this case certain 
phases will be re-executed. 

The corapile-time processor moves source 
text that does not contain compile-time 
statements directly into text Dlocks. 
During this process invalid characters are 
replaced by blanks, and line numbers are 
encoded and inserted into the text. 
Compile-time statements are decoded and 
translated into an internal form and then 
placed directly into text blocks. An entry 
is made into the dictionary for each 
compile-time variable, procedure, label, or 
INCLUDE identifier. 



Line Numbering 



As the input is being processed a unique 
line number is assigned to every logical 
record processed. If a listing of the 
input is requested, these line numbers are 
written out beside the appropriate line. 
The line numbers are also encoded and 
inserted into the text so that diagnostics 
can be keyed to them. These line numbers 
are also output on SYSUT3, to aid the user 
in determining from which input line a 
particular line of output came. 



Phase AS 



This phase, consisting of one physical 
module, is loaded if the MACRO option is 
specified. It is resident throughout 
compile-time processing until the cleanup 
phase (BW) is invoked. 

This phase controls the loading of the 
subsequent compile- time processor phases. 
The initialization phase (AV) is loaded 
only once. The two processing phases (BC 
and BG) are loaded and executed once unless 
an INCLUDE data set is processed. In this 
case phase AS reloads the processing phases 
to process this data set. 

In addition, phase AS contains a set of 
service routines used by both processing 
phases. Access to these routines is via a 
transfer vector located at the beginning of 
phase AS. 



Phase AV 



This phase consists of one physical module. 
Its purpose is to initialize certain cells 
in the communications region for the 
compile-time processor phases. 



A second pass is then taken over these 
text blocks, during which compile-time 
statements are executed and the PL/I source 
program text is scanned and replacements 
are made. The output from this pass is a 
PL/I source program contained on SYSUT3 
and, optionally, a punched card deck. 

If during the second pass, an INCLUDE 
data set is processed, the entire procedure 
indicated above is executed recursively to 
process this text. 

Text and dictionary formats used by the 
compile-time processor are contained in 
Appendix J. 



Phase BC (BE. BF) 



Phase BC consists of three physical 
modules, BC, BE, and BF. Module BE 
contains the control routine. 

Phase BC accepts input text, moving it 
into text blocks until a compile-time 
statement is found. (For a description of 
the use and layout of text and dictionary 
blocks, see Appendix J.) When a 
compile-time statement is encountered, it 
is encoded into a set of interpretive 
instructions and, except for compile-time 
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procedures, added to the current text 
block. Compile-time procedures are 
similarly encoded, but are placed in 
separate text blocks. 

As compile-time statements are encoded, 
all non-keyword identifiers encountered are 
entered into the dictionary, together with 
any attributes that are known. Entries are 
also made in the dictionary for constants 
and iterative DO- loops. 

During phase BC, invalid characters 
occurring outside of strings and comments 
cause a diagnostic to be printed. They are 
converted to blanks. Invalid characters 
can thus be used for markers of various 
sorts in text blocks. Diagnostics are 
given for syntax errors in compile-time 
statements. Line numbers are encoded and 
inserted into the text for the use of the 
phase BG scan. All input characters are 
converted to their EBCDIC representation 
before they are processed. 



The output of this phase is a PL/I 
source program contained on SYSUT3, and, 
optionally, as a sequenced card deck. 



Phase EM (BO) 



Phase BM examines the heads of the error 
chains in the first dictionary block, and 
programmer options which specify the 
severity level of messages required. If 
there are no messages, it passes control to 
the clean-up phase (BW). if diagnostic 
messages are required, the phase loads BN 
to process^ them after scanning the chains 
and indicai^ing where the text is to be 
found, from the message directory block, 
ftiodule BQ. 



Module BN (BP. BV) 



Phase BG (Bl, BJ) 



Phase BG consists of three physical 
modules: BG, BT, and BJ, which contain the 
control routine, the macro-code 
interpreter, and the built-in function 
handler, respectively. 

In general, the input to phase BG is the 
set of chained text blocks and dictionary 
blocks created by phase BC. The phase BG 
execution is essentially that of the 
compile-time processor described in the 
external specifications. That is, its 
basic action is to move through text blocks 
looking for instances of compile-time 
variables or compile-time statements, which 
it uses to produce the output text. As 
line numbers are encountered in the text, 
they are placed into a location containing 
the current line number. This is used both 
for phase 3G diagnostics and by the output 
editor. 

If a compile-time variable or procedure 
reference is found, the scan cursor is 
positioned to scan its value. When the 
scan of the value is completed, the cursor 
is properly positioned back into the text. 
If a compile-time variable or procedure 
reference is found in this value scan, the 
process repeats itself. Such nesting can 
occur to a depth of 100. 

If the scan encounters an encoded 
compile-time statement (built by phase BC) , 
control is passed to an interpreter. This 
interpreter executes the statement : — 
possibly repositioning the scan cursor — 
and returns to the scan. 



The text of all c<»ipile-time processor 
error messages is kept in modules BP 
through BV. The messages are ordered by 
severity, within these modules. BM will 
have listed those modules which contain 
messages required for a particular pass. 
Module BN loads and releases these modules, 
one at a time and extracts the required 
messages. When all compile-time error 
messages have been processed, module BN 
returns control to BM. 



Phase BW 



The purpose of this phase to set all tables 
and communication region cells to the 
values required by the compiler proper. In 
addition it will release all text and 
dictionary blocks used by the compile-time 
processor phases and then pass control to 
the next required phase of the compiler. 

If a severe or terminal diagnostic has 
been produced by the Compile-time processor 
a listing of the contents of SYSUT3 will be 
printed (provided that the SOURCE option 
applies), and compilation will be bypassed. 



THE READ- IN LOGICAL PHASE 



The Read-In Logical Phase consists of five 
discrete physical phases, each of which 
processes a particular groipp of statement 
types. The phase obtains the input text in 
the externally coded form Ipy a cill to the 
compiler read routine, and converts it to 



28 



internal code hy means of a translation 
table provided by compiler control. 



The source text is scanned for 
syntactical errors. During this time an 
output string is built up, which consists 
essentially of the input text with comments 
and insignificant blanks rCTioved, The 
source text is scanned and statements are 
numbered, identified, and diagnosed. Any 
required substitutions are made, statement 
labels are inserted in the dictionary, and 
chains are formed (for example, BEGIN, 
PROCEDURE chains) . If the SOURCE option 
applies, source statements, with their 
number, and optionally, their block levels 
and DO-nest levels,, are printed out 
immediately after they have been read. 



When the input text provides an 
end-of-file indication, processing is 
terminated. In ERROR situations this may 
not occur when a valid external procedure 
has been ccanpletely processed. By keeping 
a count of PROCEDURE, BEGIN, DO, END, ON, 
and IF statements, the phase can detect 
when the logical end-of- program indication 
is found. If there are more records after 
the end of the external procedure, they are 
ignored. 



If an end-of-file indication is 
encountered before the logical end of the 
program, diagnostic messages are issued and 
suitable END statements are inserted to 
allow compilation to continue. 



The output of the Read-In Phase provides 
a syntactically correct output string; a 
table of entry and statement labels; chains 
of coded diagnostic messages; a set of 
switches specifying compilation content 
details; a set of chains linking statements 
of a particular type, to facilitate 
subsequent scanning; and optionally, a 
listing of the source text. 



Statement and Entry Labels 



Statement and entry labels appearing in the 
source text are removed and added to a 
label table, which is built up in the 
region intended for the dictionary. This 
region may be extended by further blocks as 
required. The label table entry is an 
embryo dictionary entry, with blank regions 
to be filled later by the Dictionary Phase 
EG. 

When a label declaration is found, an 
entry is made in the label table with a 
statement label code, the current (updated) 
sequential number, and the current block 
level and block count. 

Statements having multiple labels give 
rise to multiple label table entries. 
These entries are identical except for the 
BCD name. 

If the statement following a label is 
subsequently identified as a PROCEDURE or 
ENTRY statement, the label table is 
re-accessed, and the entries associated 
with the statement are modified (see 
Appendix C . 2 ) . 



Chains constructed by Read-In 

To provide rapid scanning in the dictionary 
phases, the following chains are 
constructed by the Read- In Phase: 

The CALL chain 

The PROCEDURE- ENTRY- BEGIN chain 

The DECLARE chain 

The ALLOCATE chain 

Errors and Diagnostic Messages 



Statement Numbering 



All statements are given a sequential 
number. This includes each compound 
statement, each statement contained in a 
compound statement, block and group 
delimiting statements, and null statements. 
The numbering of the statement is indicated 
on the source listing. Diagnostic messages 
also refer to these statement numbers. 



As the source text is scanned it is 
syntactically analyzed. Keywords are 
identified and passed as valid only if they 
may legally appear within the type of 
statement being diagnosed. However, 
consistency of attributes and options 
within a statement are not normally 
analyzed. This is left for Phase EK. 

When a syntactical error is detected, an 
attempt is made to correct it and an 
appropriate diagnostic message is 
generated. The main aim of the Read-In 
Phase is to present syntactically correct 
text to subsequent compiler phases. 
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Certain corrections are performed without 
prejudicing the complete compilation. 



Detected errors cause a diagnostic 
message to be added to a diagnostic message 
chain in the dictionary area. Each message 
is in a coded form with parameters (textual 
matter, statement numbers, and so on). The 
message is decoded and printed out by the 
Error Editor. 



Initial Labels 



Subscripted label variables which are 
initialized by attachment to statements are 
placed in pseudo-assignment statements in 
text, and then handled as if they were 
normal labels. 



V9bere an error makes it impossible for 
the scan of a statement to continue, the 
statement is terminated correctly at such a 
point as to leave the statement 
syntactically correct. The text between 
that point and the next semi-colon (not in 
a comment or character string) is skipped. 
The diagnostic messages produced in these 
circumstances will include at most the 
first ten characters of the text that is 
skipped. 



The output String 



The output string is so arranged that a 
complete statement never spans storage 
blocks. One of the conditions of a 
successful compilation is that the output 
resulting from any statement must not 
exceed the block. This restriction, 
however, does not apply to DECLARE 
statements. Formats of the statem.ents 
appearing in the output string are given in 
Appendix D.2. 



Identifiers 



STRUCTURE OF THE READ- IN LOGICAL PHASE 



The Read-In Phase can occupy 16K bytes of 
storage for any one pass. A storage map 
for this phase is shown in Figure 5. 



Bytes 


7K 

8K 

12K 

16K 



CA 
CC 



— 1 

■H 



\. ^ ^ ^ ^ ^ 

CE I CK I CN j CR I CR 
^ + + ^ + ^ 

CG I CL I CO I CS I CV 

CI I CM I CP I CT I CW 

PASS 1 PASS 2 PASS 3 PASS U PASS 5 



Figure 5. Storage Map for the Read-In Phase 

The Read-In Phase consists of five 
phases or passes, each containing at most 
five modules. Modules CA and CC consist of 
common routines which are invoked 
throughout the phase by each of the passes, 
in turn. Modules CE, CK, CN, and CR 
contain separate keyword tables. Details 
of the organization of these tables are 
given in Appendix B. Control for each pass 
resides in modules CI, CL, CO, CS, and CV 
respectively. The following description 
refers to the phases by these names. 



All identifiers which are not recognized as 
keywords in the source text appear in the 
output string. 



Constants 



All constants appear in the output string. 



Operators 



All operators appear in the output string. 



Phase CI 



During phase CI (the first physical phase 
of the Read-In Phase) the source text is 
read into storage, and character codes are 
converted to an internal form. Statement 
types are identified, labels are inserted 
into the dictionajry, and statement 
identifiers are replaced by single-byte 
codes (see Appendix D.l). 

A record is kept of block nesting levels 
and counts to enable a check to be made for 
the logical end-of-progrsun indication. In 
order to do this, certain statements have 
to be either partially or completely 
analyzed in this pass. 
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These stat^nents are: 



Phase CV 



prcx:edure-end 
begin-end 

DO-END 

IP-THEN-ELSE 

ON 

If the SOURCE option has been requested, 
a listing of the source program, with the 
statements numbered by the cc»npiler, is 
printed out onto the specified output 
medium. 



This phase processes the output from 
earlier phases. In order to assist 
subsequent processing, chains are 
constructed for PROCEDURE, ENTRY, BEGIN, 
CALL, ALLOCATE, and DECLARE statements. 



THE DICTIONARY LOGICAL PHASE 



Phase CL 



The output from phase CI is processed and 
the statement types listed below are 
analyzed in greater detail: 



ENTRY 


FREE 


PROCEDURE 


WAIT 


DO 


READ 


Iterative DO 


WRITE 


RETURN 


DELETE 


GO TO 


UNLOCK 


DELAY 


LOCATE 


DISPLAY 


REWRITE 



If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary as required. 



Phase CO 



The output from phase CL is processed. In 
particular, the DECLARE, ALLOCATE, and CALL 
statements are analyzed in greater detail. 
The syntax of attributes is checked, but 
their consistency is analyzed during phase 
EK. If the source program does not contain 
any of these three statements, this pass is 
not invoked. 

If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary. 



Phase CS 



The output from phase CL or CO is 
processed. In particular, the syntax of 
input/output statements is analyzed, 
together with the FORMAT statement. If the 
source program contains no input/output 
statements, this pass is not invoked. 



The Dictionary Phase forms a dictionary of 
identifiers, by first analyzing PROCEDURE, 
BEGIN, DECLARE, and ENTRY Statements. The 
text is then scanned for contextual use of 
identifiers, constants, and pictures. 
Finally, every identifier and constant in 
the source text is replaced by a reference 
to its respective dictionary entry. 
Dictionary entries are made during this 
phase for all implicitly defined 
identifiers. The formats of dictionary 
entries appear in Appendix C. 



Constructing and Accessing the Dictionary 



The dictionary, during the construction 
stage, comprises two parts, the hash table 
and the dictionary proper. 

To facilitate a search through the 
dictionary for an entry with a particular 
BCD, a method is used of dividing the 
dictionary into areas. Each area is 
characterized by a property of the BCD of 
each entry in it. In practice, these areas 
are not contiguous but are chained lists, 
each item in the list being one dictionary 
entry long. 

The start of each list is in a table, 
known as the hash table. The association 
of a particular identifier with a list, 
i.e. the characterization of an area, is 
achieved by deriving from a given BCD an 
address in the hash table. 

"Hashing" is a process of reducing the 
length of the internal representation of 
the BCD to one word. This is done by 
adding successive fovu:-byte lengths of the 
BCD into one four-byte register. This is 
then divided by 211, and the remainder is 
doubled to give the hash table address 
associated with the particxilar BCD. All 
identifiers which hash to the same address 
are placed in a chain; in particular, all 
dictionary entries with the same BCD will 
be in the same hash chain. 

If TOM, DICK, and HARRY occur in the 
same DECLARE statement in that order, and 
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they all hash to the same address in the 
hash table, the address in the hash table 
will point to HARRY^s entry, which contains 
the address of DICK, which, in turn, 
contains the address of TOM. 

When no further BCD entries are to be 
made in the dictionary, and all BCD 
identifiers in the source text have been 
replaced by dictionary references, the hash 
table is deleted. 



Testing for Consistent Attributes 



A test is made at the start of each list of 
attributes, to ensure that any list of 
attributes at one level of factoring in a 
DECLARE statement is consistent. 



Compiler Pseudo- Variables and Functions 



Expressions specified for array bounds, 
string lengths, and initial value iteration 
factors must be evaluated at object time, 
or at allocation time if the variable is 
controlled. The expressions are placed 
temporarily at the end of the text, and are 
later moved by Phase FV and placed 
immediately following the BEGIN, PROCEDURE 
or ALLOCATE Statement to which the declared 
variable belongs, ^he expression results 
are assigned to pseudo-variables generated 
by the coirpiler. These serve two purposes: 
first, the assignment statement appears as 
a normal PL/I statement and need not be 
treated as a special case; secondly, the 
pseudo-variable contains the dictionary 
reference of the variable and information 
concerning the destination of the 
expression. Compiler functions with a 
format similar to the pseudo- variables are 
also created. The function result is the 
specified array bound, or string length. 
Compiler functions are created for two 
purposes: first, to set bounds for base 
elements of structures when the structure 
bound is an expression, or to set the 
bounds of temporary arrays; and secondly, 
to set the storage address of a dynamically 
defined item immediately before its use. 
The formats of all the compiler 
pseudo- variables and functions appear in 
Appendix D.8. 



Dictionary Entries for Entry Points 



A PROCEDURE or ENTRY statement may have 
more than one label. Each label must have 
a data description to indicate the type of 



data returned when the label is invoked as 
a function, and also the type of data to 
which the expression in a RETURN 
(expression) roust be converted. These need 
not be the same: there must therefore be 
provision for two data descriptions for 
each label. A PROCEDURE or ENTRY statement 
may specify parameters. The descriptions 
of these identifiers, obtained from DECLARE 
statements or default rules, are used for 
prologue construction, but not for 
parameter m.atching. Any data description 
given on these statements is to be used for 
conversion at a RETURN (expression), but 
not for determining the result returned by 
a function reference. 



Parameter descriptions for use in 
parameter matching, and data descriptions 
used for determining the type of data 
returned by a function reference, may be 
specified by the soxirce programmer in an 
ENTRY declaration. If these are not given, 
default and implicit rules must be used to 
build a data description, but no parameter 
description can be given. 

Given the foregoing requirements, the 
dictionary entries describing an internal 
entry point are as given in Figure 6. 

The set of dictionary entries A, B, C, 
D, E is repeated for each label associated 
with the PROCEDURE or ENTRY statement. The 
entry F will point to entry A for the first 
label only. D will point at the label with 
which it is associated. It should be noted 
that B and C may coincide. 

The entries type 1 for PROCEDURE, ENTRY, 
and BEGIN statements are chained amongst 
themselves in the following way. Each 
entry type 1 belonging to a PROCEDURE or 
BEGIN statement contains the dictionary 
reference of the entry type 1, of the next 
PROCEDURE or BEGIN statement in the source 
program, and also of the entry type 1 of 
the immediately containing block. 

The entries type 1 of PROCEDURE and 
ENTRY statements belonging to a single 
procedure are chained together in a 
circular manner. If there are no ENTRY 
statements the entry type 1 of the 
PROCEDURE statement points at itself. 

External entry points are described by 
dictionary entries termed entry type *». 
They contain data descriptions of the value 
returned when referenced as a function, and 
may contain descriptions of parameters. 

Formal parameters which are entry points 
are termed entry type 5, and parameter 
descriptions which are entry points and are 
pointed at by types 3, 4, or 5 are termed 
entry type 6. 
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note: There is an entry E for each parameter described in D. 
Figure £. Dictionary Entries for an Internal Entry Point 
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Phase £D 



Phase ED contains a set of subroutines, for 
processing certain of the tasking and list 
processing attributes, and tables of 
generic and non- generic built-in functions. 
Th? phase obtains IK of scratch storage, 
into which it moves the routines and 
i:ables, setting a slot in the 
communications region to point at them. 
This address is later picked up and used by 
phase EL. 



I Phase £G(EF) 



Phase EG has two main functions. The first 
is to set up a hash table, and to insert 
the label entries left in the dictionary by 



the Read-In Phase into hash chains. The 
second function of the phase is to create 
dictionary entries for PROCEDURE, BEGIN, 
and ENTRY statements, and to construct 
chains linking entries of particular types. 

For PROCEDURE- BEGIM Statements, entry 
type 1 dictionary entries are created (see 
Appendix C.2), and block header chains are 
set up to link these entries sequentially. 
A containing block chain is also set up to 
link each entry with that of its containing 
block. 

BEGIN statements are scanned for the 
ORDER/REORDER option, and the optimization 
byte is created in the entry type 1 (see 
Appendix C.2). 

On the appearance of PROCEDURE 
statements, circular PROCEDURE-ENTRY chains 
are initialized to link the entry type 1 
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dictionary entries of the PROCEDURE and 
ENTRY statements of the same block. The 
formal parameter list is scanned, and 
formal parameter type 1 entries are created 
and inserted into the hash chain. Details 
of the PROCEDORE-ENTRY chains appear in 
Appendix C.2. 

The attribute list and the options are 
scanned and an options code byte and 
optimization byte are created in the entry 
type 1 (see Appendix C.2). A check is then 
made for invalid and inconsistent 
attributes. CHARACTER and BIT attributes 
are processed, and second file statements 
(see Appendix D«8) are created if 
necessary. Precision data are converted to 
binary, and dictionary entries are created 
for pictures (see Appendix C.7). 

Statement labels are scanned and their 
entry type 2 dictionary entries are 
created. The relevant data bytes in the 
dictionary are completed by default rules 
(see Appendix C. 3). 

For ENTRY statements, entry type 1 
dictionary entries are created (see 
Appendix C.2), and the circular 
PROCEDURE -ENTRY chain is extended. Formal 
parameters, attributes, and labels are 
processed in a similar manner to those for 
PROCEDURE statements, except that the 
options code byte is not created. 



I Phase EI (EH, EJ) 



Phase EI scans the chuin of DECLARE 
statements set up by the Read- in Phase, and 
modifies the statements to assist Phase EK 
as follows : 



text, for adjustable bounds, and a pointer 
to the statement is inserted in the 
dimension table. Identifiers with 
identical array bounds share the same 
dimension table. 



PRECISION: precision and scale constants 



are converted to binary. 



INITIAL; dictionary entries are created 
for INITIAL attributes. 



INITIAL CALL; second file statonents are 
created for INITIAL CALL attributes. 

CHARACTER and BIT; fixed length constants 
are converted to binary; a code byte marker 
is left for ♦ lengths (see Appendix C.8). 
Second file statements (see Appendix D.8) 
are created for adjustable length 
constants, and the source text is replaced 
by pointers to the statements. 

DEFINED : second file statements (see 
Appendix D.8) are created and the source 
text is replaced by pointers to the 
statements . 

POSITION : the position constant is 
converted to binary. 

PICTURE : a picture table entry (see 
Appendix C.7) is created and inserted into 
the picture chain; similar pictures share 
the same picture table. The source text is 
replaced by a pointer to each entry. 

USES and SETS; USES and SETS attributes 
are moved into dictionary entries, and 
pointers to the entries replace the source 
text. 



Structznre Level NunUaers; 
converted to binary. 



these are 



LIKE: BCD entries are created for 
identifiers with the LIKE attribute. 



Factored Attributes; parentheses enclosing LABEL 



factored attributes are replaced by special 
code bytes, so that Phase EK can 
distinguish them easily, A factored 
attribute table is set up. It consists of 
slots corresponding to each factored level. 
Each slot contains the address of the 
attribute list associated with that level, 
and the address of the slot for the 
containing level. 

The following attributes are processed; 

DIMENSION; dimension table entries (see 
Appendix C.8) are created in the dictionary 
and the source text is replaced by a 
pointer to the entry. Fixed bounds are 
converted to binary and inserted in the 
table. A second file stat«nent (see 
Appendix D.8) is created at the end of the 



if the LABEL attribute has a list 
of statement label constants attached, a 
single dictionary entry is created. The 
dictionary entry contains the dictionary 
references of the statement label constants 
in the list. 

OFFSET and BASED; Second file statements 
are made and text references are inserted 
in the DECLARE statements for these 
attributes . 

AREA; Fixed-length specifications are 
converted to binary; second file statements 
are made for expressions; a code byte, 
followed by the length of text reference, 
is inserted in the DECLARE statement text. 

All other attributes, identifiers, or 
constants are skipped. 
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Phase EL (EK. BA) 



Phase EL, consisting of modules EK, EL, and 
EM, scans the chain of DECLARE statements 
constructed by the Read- In Phase. 

An area of storage known as the 
attribute collection area is reserved. 
This is used to store information about the 
identifiers, and has entries of a similar 
format to that for dictionary entries. 

Complete dictionary entries are 
constructed for every identifier found in a 
DECLARE statement. These identifiers can 
be one of the following types: 

1. Data Items (see Appendix C.4) 

2. Structures (in this case, the 'true* 
level number is calculated) (see 
Appendix C.U) 

3. Label Variables (see Appendix C.U) 
H. Files (see Appendix C.7) 

5. Entry Points (see Appendix C.2) 

b. Parameters (see Appendix C.7) 

7. Event Variables 

8. Task Variables. 

Identifiers appearing as multiple 
declarations are rejected and a diagnostic 
message is given. 

The attributes to be associated with 
each identifier are picked up in three 
ways. 

First, the attributes immediately 
following the identifier are stored in the 
attribute collection area. 

Secondly, any factored attributes and 
structure level numbers are examined. 
These are found by using the list of 
addresses placed in scratch storage by 
Phase EI. Each applicable attribute is 
marked in the attribute collection area, 
and any other information, e.g. dimension 
table address, or picture table address, is 
moved into a standard location in the 
attribute collection area. All conflicting 
attributes are rejected and diagnostic 
messages are given. 

Finally, any attributes which are 
required by the identifier, and which have 
not been declared, are obtained from the 
default rules. 

After the dictionary entry has been 
made, furtner processing (e.g. linking of 



chains, etc.) must be done in the 
following cases: 

1. DEFINED data 

2. Data with the LIKE attribute 

3. Files 

U. Strings with adjustable lengths 

5. Arrays having adjustable bounds 

6. GENERIC identifiers 

7. Structtire members 

8. Identifiers with INITIAL CALL 

9. Identifiers with the INITIAL attribute 

After the declaration list has been 
fully scanned and processed, it is erased. 

Phase EP 



Phase EP first conditionally marks later 
phases as 'wanted* or 'not wanted,' 
according to how certain flags in the 
dictionary are set on or off. This assists 
in the load-ahead technique. 

The entry type 1 chain in the dictionary 
is then scanned. For each PROCEDURE entry 
in the chain, each entry label is examined 
for a completed declaration of the type of 
data the entry point will return when 
invoked as a function. If this has 
previously been given in a DECLARE 
statement nothing further is done, 
otherwise entry type 2 and 3 dictionary 
entries are constructed from default rules 
(see Appendix C.2). If this default data 
description does not agree with the 
description derived from the PROCEDURE or 
ENTRY statement, a warning message is 
generated. 

At each PROCEDURE entry, the chain to 
the ENTRY statement entry type 1 is 
followed. Each statement is treated in a 
similar manner to that for a PROCEDURE 
entry type 1. 

The CALL chain is then scanned and, at 
each point in the chain, the dictionary is 
searched for the identifier being called. 
If the correct one is not found, a 
dictionary entry for an EXTERNAL procedure 
is made (see Appendix C.2), using default 
rules for data description. Before making 
the entry, the identifier is checked for 
agreement with any of the built-in function 
names. If there is agreement, a diagnostic 
message is generated, and a dummy 
dictionary reference is inserted. 
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If an identifier is found, it is 
examined to see if it is an undefined 
foxfmal parameter. If it is, the formal 
parameter is made into an entry point, 
again using default rules for data 
description. If it is not, or if the 
declaration of the formal parameter is 
complete, the type of entry is checked for 
the legality of the call. A. diagnostic 
message is generated if the item may not be 
called. In all cases, the item called is 
marked IRREDUCIBLE if it has not previously 
been declared REDUCIBLE. 



I Phase EW (EV) 



Phase EW is an optional phase, loaded only 
if any LIKE attributes appear in the source 
program. 

This phase scans the LIKE chain which 
has been constructed by Phase EK, and 
completes the dictionary entry for any 
structure containing a LIKE reference. 
When a structure in the LIKE chain is 
found, its validity is checked, and 
dimension data and inherited information 
are saved. The dictionary is scanned for 
the reference of the "likened" structure 
and the entry is checked for validity. 

This dictionary entry (see Appendix C.U) 
is copied into the dictionary, with 
alterations if there is a difference 
between the original structure and this 
structure with regard to dimensioned data. 
If both structures have dimensions a 
straight copy is made; if the structure 
with the LIKE attribute has dimensions and 
the likened structure has not, the 
dimension information is added to the copy; 
if the structure with the LIKE attribute is 
not dimensioned and the likened structure 
is, then the dimension data is deleted from 
the copy." Inherited data is added to the 
copy. If an error is found, the structure 
with the LIKE attribute is deleted and a 
base element copy of the master structure 
is inserted instead. Where copies of 
entries occur which refer to dimension 
tables with variable dimensions, the 
dimension table entry is copied, and new 
second file dictionary entries and 
statements are created. Similar entries 
must be made if the structure item has been 
declared to be an adjustable length string, 
or has been declared with the INITIAL 
attribute . 

Finally, the newly completed structure 
is scanned by the ALIGN routine in phase 
EV, to provide correct explicit/inherited/ 
default alignment attributes for its base 
elements. 



Phase EY 



Phase EY is an optional phase which 
processes all ALLOCATE statements. 

The second file is scanned first and all 
pointers to the dictionary are reversed. 
All ALLOCATE Statements using the DECLARE 
chain are then scanned, and the dictionary 
references of allocated items are obtained 
by hashing the respective BCD of each item. 
The attributes given on the ALLOCATE 
statement for an item are collected 
together. 

A copy of the dictionary entry of the 
allocated item is then -made (see Appendix 
C.U), and the ALLOCATE statement is set to 
point to it. The dictionary entry is 
completed by inclucling any attributes given 
on the ALLOCATE statement, and copying any 
second file statements from the DECLARE 
chain which are not overriden by the 
ALLOCATE Statement. 

In the case of an ALLOCATE statement in 
which a based variable is declared, no copy 
of the original dictionary entry is 
required. The BCD is replaced by the 
original dictionary reference. 

All pointer qualified references in the 
text are checked to determine that the 
qualified variable is based. For every 
occurrence of a variable with a different 
pointer a new dictionary entry is made. If 
the variable is a structure the entire 
structure is copied. A PEXP second file 
statement is made for the pointer and the 
•defined* slot in the new dictionary entry 
is set to point to it instead of to the 
declared pointer. 

The BCD of the pointer and the based 
variable in the text are replaced by the 
new dictionary reference followed by 
padding of blanks which will be removed by 
phase FA. 

The based variable can be the qualified 
name of a structure member. If this is so, 
the name is checked for validity. Only the 
first part or lowest level of the qualified 
name in the text is replaced by the 
dictionary reference of the member. It is 
preceded by a special marker to tell phase 
FA that a partially replaced name follows. 



Phase FA 



Phase FA scans the text sequentially. If, 
during the scan, qualified names are found 
with subscripts attached, they are 
reordered so that a single subscript list 
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appears after the base element name. The 
dictionary is scanned and references 
obtained for any identifiers which are 
contextually, file« event, pointer 
variables, or programmer-named ON 
conditions. If no reference is available, 
a new dictionary entry is made. The 
identifier is then replaced in the text by 
the dictionary reference. 

If a constant marker is found, the 
dictionary is scanned to check if the 
constant is present. If it is not, a new 
dictionary entry is made (see Appendix C.7) 
and the resulting reference replaces the 
constant in the text. 

If a P FORMAT marker is found, the 
dictionary is scanned for a picture entry 
in agreement. If there is no agreeing 
entry, a new dictionary entry is made (see 
Appendix C.7) and the picture chain is 
updated. The dictionary reference replaces 
the foimat roeurker in the text. 

The CALL chain is removed from CALL 
statements. The appearance of PROCEDURE, 
BEGIN, END, and DO statements results in 
adjustments to the level and count stacks. 
If statement introduction code bytes appear 
(such as SN, SL, CL, and SN2), the current 
statement number is updated. All data 
items associated with the PROCEDURE, BEGIN, 
ENTRY, and DECLARE statements are removed, 
leaving only the statement identification 
and the keywo:.:d. 



Phase FE 



When an identifier is found, the heish chain 
is used to scan the dictionary for a valid 
entry. If one is found, its dictionary 
reference replaces the identifier in the 
output text. If no valid entry is found, 
and the BCD does not agree with any entry 
in the tables of BCDs of PL/I built-in 
functions, then a dictionary entry is made 
as if the identifier was declared in the 
outermost procedure. However, if the BCD 
agrees with a function name, and it is not 
in a SETS position, a function entry is 
made in the dictionary, and its reference 
is used to replace the identifier. 

If a left parenthesis is found, the 
previous dictionary entry is checked for an 
array, function, or pseudo-variable. If it 
is one of these, the relevant marker is 
inserted in the text before the parenthesis 
(see Appendix D.l). 

Checks are also made fdr the positions 
of function references in assignment 
statements. Any dictionary references 
encountered in the input file are moved 
directly to the output file. 



PROCEDURE, BEGIN, DO, and END statements 
cause the current level count to be 
updated . 



Phase FI 



Phase FI scans the text and checks, where 
possible, the validity of dictionary 
references found. References in a GOTO 
statement are checked that they refer to 
labels or label variables and that the 
subsequent branch is valid. The code byte 
for GOTO is changed to GOOB (see Appendix 
D.l) if the branch is to a label constant 
outside the current PROC or BEGIN block. 
If the branch is to a label variable, GOOB 
is set up unless a label value list was 
given at the declaration, and all members 
of the list lie within the current block. 

List processing based variables in 
ALLOCATE, FREE, READ, WRITE, and LOCATE 
statements are marked as requiring a Record 
Dope Vector (RDV) . Variables in TASK and 
EVENT options on CALL statements are 
checked for validity. 

References are checked if they appear 
where a file is expected. Items in data 
lists are checked for validity, and Data 
Element Descriptors (DEDs) and symbol bits 
are set on for all variables found in the 
lists. 

Any errors which are found cause 
diagnostic messages to be generated and 
dumn^ references to be placed in the text 
in place of erroneous references. 



Phase FK 



Phase FK scans the attribute collection 
area for entries with the SETS attribute. 
The SETS lists in the dictionary entries 
are scanned, and their syntax checked. 
Identifiers are counted and replaced by 
their dictionary references. Constants are 
counted, converted to binary, and arranged 
in ascending order in the dictionary entry. 



Phase FO 



Phase FO makes a dictionary entry for each 
ON condition mentioned inside a block. For 
ON CHECK conditions multiple dictionary 
entries are made (see Appendix C.7), one 
for each BCD. If a similar condition is 
mentioned more than once in a block, only 
one dictionary entry is made for that 
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condition, except for file conditions, ON 
CONDITION, and ON CHECK, when separate 
dictionary entries are made for each 
different BCD name. 

SIGNAL and REVERT statements are treated 
in a similar manner to ON statements. 

The dictionary entries for each BCD name 
associated with file or CONDITION 
conditions are checked and, if in error, 
the ON, SIGNA.L, or REVERT statement is 
replaced by an error statement. A 
diagnostic message is generated. 

The BCD name of each file entry referred 
to in ON, SIGNAL, and REVERT statements is 
examined. If the BCD is SYSIN or SYSPRINT, 
the dictionary reference of the file entry 
is placed in a slot in the ccxnmunications 
region. 

A check is made to ensure that formal 
parameters do not appear in CHECK and 
NOCHECK lists. A single dictionair/ entry 
is created for each CHECK and NOCHECK list 
and a pointer to the entry is placed in the 
relevant entry type 1. 

When dictionary entries are made for 
CHECK lists, one of three different check 
codes is used depending on whether the BCD 
is an ENTRY LABEL, a LABEL CONSTANT, or a 
variable. 

List Processing POINTER and OFFSET 
variables in CHECK lists are treated as 
data variables. BASED variables may not 
appear in CHECK lists. 

A dictionary entry is made for the list 
processing AREA condition. This condition 
is always enabled and may not appeeu: in a 
condition prefix. 

Dictionairy entries are also created for 
each ON condition which is disabled for a 
particular PROCEDURE or BEGIN block, and 
for each ON condition whose status is 
changed within the block. Pointers to 
these dictionary entries are placed in the 
relevant entry type 1. 

All dictionary entries for ON conditions 
are placed in the AUTOMATIC chain for the 
relevant PROCEDURE or BEGIN block. 

A further, quite distinct, function of 
this phase is to substitute error 
statements for all statements containing 
dummy dictionary references (which have 
been inserted by previous phases on 
detecting a severe error). If a dummy 
reference is found in the second file, the 
compilation is aborted. 

Wherever an element of a label array is 
initialized by appearing as a statement 



label, an assignment to a compiler label 
has been inserted by the Read- In phase. 
Phase FO checks the validity of each such 
assignment; for each array with this type 
of initialization, a second file dictionary 
entry is made, and all assignments to the 
array are chained. 



Phase FQ 



Phase FQ checks the validity of each item 
in the PICTURE chain in the dictionary (see 
Appendix C.7). 

The precision for each correct picture 
is calculated, together with its apparent 
length, and stored in its dictionary entry. 
A data byte is created in the entry for use 
by Phase FT. 

Invalid pictures cause appropriate 
diagnostic messages to be generated. 



Phase FT 



Phase FT performs certain housekeeping 
tasks. These are as follows: 



1. The second file entries are scanned 
€uid pointers to each entry are 
inserted in the associated dictionary 
entry (see Appendix C.7). 

2. Each item which has a storage class is 
inserted into the appropriate chain 
for that class (see Appendix C.4). 

3. Constants are placed in the constants 
chain and their apparent precision is 
calculated. Sterling constants are 
converted to pence. 

U. Dimension tables are separated for 

items which are not in structures, but 
which are arrays having similar 
bounds, but with different element 
lengths . 

5. Items which are members of structures 
and which have "inherited" dimensions, 
i.e. are contained in a s-cructuris 
which itself is dimensioned, are made 
to inherit their dimensions. If a 
base element of a structure inherits 
dimensions which are not constant, 
second file statements (see Appendix 
D.8) are set up to initialize the 
bounds in the object time dope vector. 

6. Items which have expressions to be 
evaluated at prologue time, e.g. 
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parameter descriptions for entry 
points and defined items, are placed 
in the AUTOMATIC chain for the 
appropriate block. 

7. The dictionary entry for any item 
described by a picture is expanded by 
the precision and scale or string 
length, extracted from the picture 
table entry. Identifiers of different 
nrodes sharing the same picture table 
are now placed in separate tables. 

8. The 'dope vector required* bit (see 
Appendix C.5) is set on where 
necessary. 

9. V«hen a label array is found which has 
initial label statements for any of 
its elements, the chained statements 
are moved into the second file. The 
original statement is left in the 
text, to be removed by Phase FV. 

10. Dictionary entries similar to label 
ECD entries are made for all TASK 
variables. 



based variable is a structure this 
reference is propagated throughout the 
structure. The PEXP statement is then 
deleted. 

A similar procediure is performed for 
BVEXP (based variable expression) second 
file statements whereby the dictionary 
reference of the AREA is inserted into the 
dictionary entry of the associated OFFSET 
variable. 

ADV second file statements referring to 
a BASED variable are checked for compliemce 
with the (F) implementation rules. If the 
rules are obeyed, the dictionary entry of 
the 'bound* variable is inserted in the 
appropriate slot in the multiple table 
6ntry. 

If an MTF statement refers to a based 
variable the appropriate bound slot is 
copied from one multiple table entry to the 
other. 



Phase FX 



Phase FV 



Phase FV scans the second file and reverses 
the pointers to the dictionary. 

Dictionary entries for DEFINED data are 
completed (see Appendix C.4 and c.5). 
Overlay and correspondence defining are 
differentiated between, as are static and 
dynamic defining. A preliminary check of 
the validity of defining is also carried 
out. 

when PR0CEDX3RE and BEGIN statements are 
encountered, any second file statements 
associated with data in the AUTOMATIC chain 
for that block are inserted in the text 
following such statements. 

Vihen ALLOCATE statements are foiind, any 
second file statements associated with the 
item being allocated are inserted in the 
text following the statement. 

When a reference to dynamically defined 
data is found, the base reference is 
inserted into the text following the 
defined reference. 

When an initial label statement is 
encountered in the main text, it is not 
copied into the output string. 

The dictionary reference of a POINTER in 
a PEXP (pointer expression) second file 
statement is inserted into the defined slot 
of the associated based variable, if the 



Phase FX is an optional phase entered only 
if the ATR (attribute list) or XREF 
(cross-reference list) option is specified. 
It scans the STATIC, AUTOMATIC, and 
CONTROLLED chains, and the formal parameter 
lists. 

For each identifier it creates an entry 
in text scratch storage of the form: 



2 bytes 



3 bytes 



3 bytes 



I Dictionary JText reference! Text chain | 
I reference jto this item | j 

This entry is inserted into a chain of 
similar entries in the alphabetical order 
of the BCD of the identifier. 

If the XREF option is specified, the 
text is scanned for dictionary references. 
When the dictionary reference of an 
identifier is found in the text, an entry 
is created in a chain of entries from the 
dictionary entry of the identifier. If the 
identifier is that of a BASED item, an 
entry is also created in a chain of entries 
from the dictionary entry of the associated 
pointer . 

Each chain member thus represents a text 
reference to an identifier and has the 
form: 



2 bytes 



I Statement number | 
L X- 



3 bytes 
Text chain 



—1 

I 
.-J 
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Each reference chain for an identifier 
is in text scratch storage. 

The sorted chain of identifiers is then 
scanned, and for each entry in the chain 
the following actions take place: 

1. The statement number of the DECLARE 
statement, if any, in which the 
identifier was declared is printed 

2. The BCD of the identifier is printed. 

3. If the ATR option is specified, the 
dictionary entry of the. identifier is 
analyzed and its attributes are 
printed. For variables having 
constant dimensions and/or constant 
string lengths, these dimensions and 
lengths are printed. 

Except for file attributes, the 
attributes printed will be those 
obtaining after conflicts have been 
resolved and defaults applied, since 
the file attribute analysis does not 
take place until after the attribute 
list has been prepared (see Phase GA) , 
file attributes in the list are those 
supplied by the programmer, regardless 
of conflicts. 

4. If the XllEF option is specified, the 
reference chain for the identifier is 
scanned, and the statement number 
contained in each entry is printed 

Finally, all scratch storage is released 
and control is passed to the Pretranslator 
Phase. 



THE PRETRANSLATOR LOGICAL PHASE 



The purpose of the Pretranslator Phase is 
to expand those statements in the language 
that can be broken down into simpler 
statements, and to insert explicitly 
generated statements in place of implied 
ones. 

Second level markers (see Appendix D.l) 
are removed from internal compiler codes, 
and some of the I/O statements are changed 
into a f03rm more suitable for the 
pseudo-code phase. 

Argument lists are examined and the 
matching of arguments with parameter 
descriptions takes place, with temporary 
variables being created where necessary, 
e.g., where data conversions are required. 

If the compilation contains ON CHECK 
conditions the appropriate calls to the 
librairy routine are provided. 



Any structure assignments containing the 
BY NAME option are processed. 

If any structure assignment statements 
or structures in I/O lists are detected in 
the program, they are expanded into scalar 
assignments and DO groups. 

If the program contains any array 
assignments, or array expressions in I/O 
lists, these are expanded into DO loops and 
scalar assignments or expressions. 

If the program contains iSUB references, 
the subscripts are computed for the base 
array corresponding to the subscripts given 
for the defined array. 



Additions to the Text 



In addition to changing the content of the 
text, the Pretranslator introduces some new 
symbols and grammatical forms into the 
source text. These are as follows: 

The Umbrella Symbol; this is 
designated by the symbol code X'5E', 
which is used to introduce a literal as 
an operand. It is used only as a bound 
of a DO loop, or in a call of the dope 
vector pseudo^ variable. 

Statements within statements: a list 
of statements may be introduced within 
another statement. In this case the 
inserted list is enclosed in 
parentheses. Statements in the list 
are given no statement number field, 
but they have semi-colons at the end. 

I/O statements: the form of I/O 
statements is changed considerably 
duoring the pretranslator phases, as 
explained in the description of Phase 
G6. 

BUY and SELL statements: special 
statements are introduced for 
manipulating temporary storage at 
object time; they have a form similar 
to ALLOCATE and FREE statements. 

Tonporary Storage: Pretranslator 
phases create temporary variables for 
function and procedure calls where the 
arguments do not match the final 
parameters, where expressions appear as 
arguments, for control variables for DO 
loops in array and structure 
assignments, and for iSUB defined 
s\:ibscript lists. The Pretranslator has 
no mechanism for evaluating 
expressions. Therefore, temporaries 
which have no data type are created for 
expression arguments with no parameter 



UO 



description. Such temporaries are 
known as 'chauneleon' temporaries. The 
data type of these chameleon 
temporaries is completed by the 
Translator generic phase when the 
resultant data type of the expression 
has been determined. 



When the Pretranslator creates a 
temporary from an argument which 
contains any array with adjustable 
bounds or adjustable string length, 
compiler functions (see Appendix D.8) 
are generated in-line, to set up the 
adjustable quantities at object time, 
to enable storage of the correct size 
to be acquired by means of the BUY 
statement. 



The temporary variables created by the 
Pretranslator have dictionary entries 
similar to variables declared in the 
source program, except that the 
temporaries do not have BCD names. 



Phase GB (GO 



Phase GB, containing Modules GB and GC, 
processes I/O statements. GB removes all 
second level markers from internal 
character codes (see Appendix D.l). It 
then reorders the options so that either 
EDIT, DATA, or LIST options appear last. 

In data lists the DO specification is 
moved so that it precedes the relevant 
list, and the END statement is added. 

In format lists iteration factors are 
expanded. 

RECORD I/O statements for which the 
COBOL file option is recognized are 
examined for validity by GC. Diagnostics 
are put out for LOCATE and READ SET 
statements for which COBOL files are used, 
A temporary variable is created to assist 
such data tr2msfers as occur when a COBOL 
record is read into or written from a 
structure which does not consist entirely 
of one of the followig: 

• doubleword data 



Phase GA 



Phase GA is an optional phase which scans 
the STATIC chain for file constants and 
OPEN control block entries. 

For file constants a DECLARE control 
block is constructed from the file name and 
attributes, while checking the attributes 
for consistency. For file constants with 
the ENVIRONMENT Option a dictionary entry 
is constructed, chained frcxn the file 
constant, containing the storage image of 
the 56-byte DECLARE control block. 

For OPEN control block entries an OPEN 
control block is constrxicted from the 
attributes in the entry, a check is made 
for consistency, and another dictionary 
entry, chained from the OPEN control block 
entry, is constructed. This new entry 
contains the 8-byte storage image of the 
OPEN control block. 

When the COBOL option is encountered in 
the ENVIRONMENT string of a FILE statement, 
phase GA sets the low-order bit in the 
fifteenth byte of the FILE dictionary 
entry. Although this action overwrites the 
dictionary reference of the ENVIRONMENT 
string, it is permissible since GA is the 
only phase which processes this string. 

The EXCLUSIVE second level marker is 
recognised in the file attribute dictionary 
entjry during the diagnostic check and 
construction of the DCLCB or the OCB. 



• fullword data 

• half word binary data 

• character string data 

• aligned bit string data 

• a mixture of character string and 
aligned bit string data 

I/O activity found within a PROCEDURE or 
BEGIN block causes the bit X'lO* to be set 
to one in the optimization byte of its 
entry type 1. 



Phase GK 



Phase GK scans the source text for function 
references. If it finds one, it inserts a 
special marker byte before the argiunent 
list, followed by: 

1. Two code bytes giving information 
about the type of function, and 
whether it was called with the TASK 
option 

2. The current statement number 

3. The current block level and count 

This phase also inserts a special 
argument marker before each argument in the 
list, followed by the reference of the 
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corresponding parameter and a code byte to 
show whether or not the argument is 
specified in a SETS list. The number of 
arguments present is checked against the 
number given as required by the 
corresponding dictionary entry. 

NULL, NULLO, and EMPTY built-in 
functions are recognised and converted to 
constants . 



Phase GO 



This phase acts as a pre-processor for 
phase GP. 



Phase GP 



Phase GP scans the text for procedure and 
fxmction calls with arguments. These are 
detected by the special markers inserted by 
Phase GK. 



2. If the data types are incompatible, an 
error message is printed, and the 
parameter description is ignored 



When the argument is a single partially 
subscripted array which matches the 
parameter, a special temporary is created 
which has the same dimensionality as the 
number of cross sections in the subscript 
list, and it appears to be defined upon the 
original argument. Code is then generated 
to initialize the temporaries, multipliers, 
and virtual origin from the dope vector of 
the original argument and the subscript 
list. 



Whenever a temporary is created, a BUY 
statement contained in nested statement 
brackets is inserted in the output text, 
followed by the assignment of the 
expression or non-matching argument to the 
temporary. After the end of the PROCEDURE 
or function call, all the temporaries 
generated in the call are released by means 
of a SELL statement in nested statement 
brackets . 



Temporaries (see Appendix C.i+) are 
created for any arguments which are 
expressions. (An expression is defined as 
being any sequence of variables and 
operators, other than single variables 
followed only by a subscript list, or only 
by a defined subscript list and then a 
subscript list) . If a parameter 
description has been declared in an entry 
declaration, the temporary which is created 
is of the same type as the parameter 
description. Otherwise, a *cham.eleon' 
temporary of unspecified data type is 
created, its type being subsequently 
completed when the expression type has been 
determined by the Translator generic phase. 

Expressions are scanned for arrays 
(including partially subscripted arrays), 
structures, or the end of the expression, 
in order to determine the highest form of 
aggregate in the expression, so that the 
correct type of temporary may be created. 

Where the expression contains a 
partially subscripted array, a temporary is 
created with a dimensionality equal to the 
number of cross sections specified in the 
subscript list. 

When single arguments are specified 
together with parameter descriptions, the 
arguments are compared with the parameter 
description. If there is a lack of match, 
action may be taken in one of two ways. 

1. If the data types are compatible, a 
warning message is printed, and a 
temporary is created 



In all argument temporaries created by 
phase GP, other than those created for 
constants, a special flag bit is set on 
(see Appendix C.2), but in the case of 
temporaries created for arguments to 
built-in functions, this bit is turned off 
by phase IM. This bit is used in phase QU 
when halfword instructions replace fullword 
instructions in the manipulation of 
halfword binary operands which are 
temporary arguments. 

Temporaries are created for constants 
which are specified as arguments to 
functions defined by the programmer. 

If a TASK, EVENT, or PRIORITY option is 
present in a CALL statement, then any 
temporaries which are created are of the 
•not sold' type. 

If GENERIC entry labels are specified as 
argiiments to procedures, a special 
dictionary entry is made which contains the 
argximent and parameter description 
dictionary references, to enable the 
Translator generic phase to select the 
correct generic member. 

A warning message is printed whenever a 
temporary is created for an item declared 
in a SETS list. 

When subscript lists for the niamber of 
cross sections are being checked, a severe 
error message is printed if a subscript 
list contains too many subscripts, and the 
statement is deleted. 
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Phase GU 



Phase GU scans the source text for 
PftOCEDUFE, BEGIN, and END statements, and 
for stateirents that may raise a possible 
CfitCK condition. 

A list of all items currently checked is 
extracted from the CHECK and NOCHECK lists 
present in PROCEDURE and BEGIN statements. 

Items contained in statements that may 
raise a CHECK condition are examined and 
compared with the list of: currently checked 
items. If the item appears in the list, a 
SIGNAL CHECK statement is created for it, 
either before the statement concerned (for 
labels and entry names) or after it (for 
variables) . 



Phase HF 



The purpose of phase HF is to detect 
structure assignment statements, possible 
structure expressions in data lists in GET 
and PUT statements, and nested statements, 
in particular nested structure assignments. 

The leftmost structure in an expression 
or assignment is used as a basis for 
comparison, and if similar structuring is 
not found throughout the expression or 
assignment, diagnostic messages are issued. 
Any expression containing no structures is 
left unchanged. 

The base elements of the structures are 
found, and if the referenced structures are 
dimensioned, a temporary is created for 
each dimension. It is then added to the 
AUTOMATIC chain for the appropriate block. 
Iterative DO loops are constructed, with 
the temporaries iterating between the upper 
and lower bounds of that particular 
dimension. Base elements are assigned, 
with the temporaries as subscripts, and 
with scaiars remaining unchanged. END 
statements are created for the DO loops, 
and S£LL statements for the temporaries. 
Tne statenents which have been created are 
nested within the original statement. 



The leftmost array in an expression, or 
the leftmost array or scalar in an 
assignment is used as a basis for 
comparison, and if similar dimensions or 
bounds are not found in the array 
references, diagnostic messages are issued. 
Any expression containing only scaiars is 
left unchanged. 

For unsubscripted arrays which are 
egually spaced in storage only one 
temporary is bought. For all other arrays 
a temporary is bought for each dimension, 
except in the case of certain partially 
subscripted arrays where the nijunber may be 
minimized. Each temporary will be added to 
the AUTOMATIC chain for the appropriate 
block. If the ON-condition name 
SUBSCRIPTRANGE is enabled for any 
statement, a temporary will be bought for 
each dimension in all cases. Iterative DO 
loops are constructed: for an unsubscripted 
array expression of dimensionality N, the 
temporary will iterate between the lower 
bound of the Nth dimension and an evaluated 
product so that all elements of the array 
are processed; while for other arrays the 
temporaries will iterate between the lower 
and upper bound of the particular dimension 
of the array. The assignment statement is 
added to che output string with additional 
subscripts where necessary. End statements 
are created for the DO loops, and SELL 
statements for the temporaries. The 
statements which have been created are 
nested within the original statement. 

The syntax of pseudo-variables is also 
checked. 



Phase HP 



Phase HP scans the source text for 
references to items defined using iSUBs. 
For each reference found, the subscripts 
are computed for the base array 
corresponding to the subscripts given for 
the defined array. 

The subscripts of the defined .array are 
assigned to temporaries specially created 
for this purpose, which are then used to 
replace the iSUBs in the defining subscript 
list. The base array, with the subscript 
list so formed, replaces the defined array 
in the text. 



Phase HK 



The purpose of Phase HK is to detect array 
or scalar assignments, possible array 
expressions in I/O lists in GET and PUT 
statements, and nested statements, in 
particular nested assignment statements. 



THE TRANSLATOR LOGICAL PHASE 



The Translator Phase consists of two 
physical phases, the stacker phase and the 
generic phase. The purpose of the 
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Translator is to convert the output from 
the tretranslator into a series of 
"t;riples" (see Appendix D.it). A "triple" 
is in the form of an operator followed 
normally by two operands. 

The translation is achieved by using a 
double stack, with one part for operators , 
and the other part for operands, and 
assigning two weights to each operator. 
One weight (the stack weight) applies to 
the operator while it is in the stack, and 
the other weight (the compare weight) 
applies when the operator is obtained from 
the input string. 

Nhen an operator is obtained from the 
input string it is compared with the top 
stack operator. Depending on the result of 
the comparison, one or other of the two 
operators is switched on to determine what 
action is next to be performed. Apart from 
some special cases, this action is usually 
either to continue to fill the stack, or to 
generate a triple. The special cases lead 
to various maniputations of the stack 
items, after which the translation process 
continues . 

For the purposes of translation, the 
input text to the translator is considered 
to consist of operators and operands only. 
This means that I/O options, etc., are 
regarded as operators. 

After translation, the text string 
consists of operands and operators. All 
statements start with an operator to 
indicate a statement nuniber or label, 
followed by the statement type, which may 
be a single operator, as in the case of 
RETURN or STOP, or which may be an operator 
such as a function or subscript marker, 
followed by a list of arguments. This list 
may also include compiler generated 
statements, e.g., DO loops for I/O lists. 
All I/O options are regarded as operators 
and reguire no markers before them. The 
end of the source text will be marked by a 
special operator, and compiler generated 
code, which may follow this end-of-program 
marker, will appear between the marker and 
the special second-end-of- program marker. 
The end of a block of text will be marked 
by an EOB operator. The program is now 
assumed to be syntactically correct. 



Phase lA 



As operators and operands are 
encountered, they are stored in stacks. 
Tables give the priority of each operator 
as it appears in the input text and in its 
stack. 



When an operator is found during the 
scan of the source text, its compare weight 
(see Appendix D.U) is tested against the 
stack weight of the top operator in the 
stack. If the compare weight is the lesser 
of the two, then action is taken according 
to the compare operator. This is referred 
to as the compare action. Similarly, if 
the compare weight for the current operator 
found in the scan is greater than or equal 
to the stack weight of the top stack 
operator, action is taken according to the 
top stack operator. This is referred to as 
the stack action. Normally, the compare 
action is to place the compare operator in 
the stack, and to continue the scan, 
placing any subsequent operand in the stack 
until another operator is found. The 
normal stack action is to generate a 
triple, consisting of the top operator in 
the stack and the top two operands, 
eliminating the items from tho stack, and 
inserting a special flag as the operand of 
the triple which is now at the top of the 
stack. The source (compare) item is then 
compared with the new top stack item. 



The output text of the stacking phase is 
in the form of a series of triples, i.e. 
statement types with no operands, and 
operators with one or two operands. If the 
result of a triple operation is to be used 
in a later triple, the appropriate result 
is flagged accordingly. 



Certain phases are marked wanted or not 
wanted at this stage. If the source text 
contains an invocation by CALL or function 
reference. Phases IL and IM are marked 
wanted. If it does not. Phases IL, IM, IN, 
10, IP, IQ, MG, MH, MI, MJ, MK, MM, MN, and 
MO are marked not wanted. Phases MB and MC 
are marked wanted when the source text 
contains pseudo-variables or multiple 
assignments; otherwise, they are marked not 
wanted. The DO loop processing phases (LG 
and LH) are marked in co-operation with the 
dynamic initialization phases (LB and LC) . 
If LB and LC are requested, the marking of 
LG and LH is left until that stage of 
compilation; otherwise, LG and LH are 
marked by Phase I A independently. 



Phaae lA rearranges the source text into a 
prefix form, in which parentheses and 
statement delimiters have been removed, and 
the operations within a statement have been 
so arranged that those with the highest 
priority Sppear first. 



When ALLOCATE and FREE statements occur, 
phase NG is marked wanted. When LOCATE 
statements occur, phase NJ is marked 
wanted. 
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Phase IG 



Phase IM 



Phase IG is an optional phase which is 
loaded to process array and structure 
arguments to built-in functions. When 
aggregate arguments are given for built-in 
functions they are expanded by the 
structure and array assignment phases so 
that the built-in functions appear as base 
elements, subscripted where necessary. 



Phase GP examines these arguments, and 
ascertains whether it is necessaxry to 
create a dummy. If it is necessary, a 
scalar dummy is created, but the assignment 
of the argument expression is not inserted 
in the text, as this would be an invalid 
aggregate assignment. 



Phase IG examines the text for a BUY 
statement for a dummy for an aggregate 
argument to a built-in f\inction, and then 
inserts an assignment triple in the correct 
place in the text. 



Phase IK 



This phase immediately precedes the phase 
IL and shares with it the initialization 
processes required by tne main generic 
phase IM. It obtains text block storage 
and moves into it routines and a table that 
will be used later by the main generic 
phase. Part of the storage is reserved for 
use by the main generic phase as a nested 
function stack area, control is passed to 
phase IL. 



Phase IL 



This phase immediately precedes the main 
generic phase IM and completes the 
initialization process begun by phase IK. 
It obtains UK l^tes of scratch storage and 
places in it the entire built-in function 
table and a list of constants used by the 
main generic phase. Registers are set to 
point to the built-in function table, to 
the list of constants, and to the nested 
function stack area reserved by phase IK. 
Further text block storage is obtained for 
use by the main generic phase and a 
register is set to point to it. Control is 
passed to phase IM. 



This phase is the main generic processor. 
It scans the source text for procedure 
invocations by a CALL statement, procedure 
or library invocations by a function 
reference, and assignments to "chameleon" 
dummy arguments (see Phase GP) . 

Any procedure which is generic and is 
invoked by a CALL statement or function 
reference is replaced by the appropriate 
family member. If the invoked procedure is 
non-generic, it is ignored. A generic 
library routine invoked by a function 
reference is also replaced by the 
appropriate family member. 

The argiiments passed to library routines 
are checked for number and type, and a 
conversion inserted where necessary and 
possible. 

The type and location of the result of 
all function invocations is placed in the 
text which follows the end of the text 
which invoked the function. The resulting 
type of an expression assigned to a 
"chameleon" dummy is determined and set in 
the dictionary entry which relates to the 
dummy. 

The argument bit, set on for all 
argument temporaries created by phase GP, 
is turned off for arguments of built-in 
functions. 



Phase IT 



Phase IT scans the source text for function 
triples and, in particular, the built-in 
functions for which code will be generated 
in-line. Further tests are made to detect 
the functions which, according to the 
method used to generate in-line code, are 
optimizable. This applies only to the 
SUBSTR, UNSPEC, and INDEX functions. All 
references to 'chameleon* temporary 
assignments within the scope of these 
functions are removed subject to certain 
restrictions imposed by the function 
nesting situation. 



Phase IX 



Phase IX checks that POINTER and AREA 
references are used as specified by the 
language. This phase is loaded only if 
POINTER or AREA references are found, 
declared either explicitly or contextually. 
Error messages are produced if errors are 
found and the statement in error is erased. 
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Data type triples in the text are 
scanned and a stack of temporary results is 
created containing the values: 

XV40* for POINTER 

X»02* for AREA 

X*00' for any other data type 

The iriaximum peinnitted number of 
temporaries at any one point in a program 
is 200. The compilation is terminated if 
this figure is exceeded. 



Phase JD 



the chain, and placed in the appropriate 
AUTOMATIC chain. 



Phase JK 



This phase scans the AUTOMATIC, STATIC, and 
CONTROLLED chains for arrays, structures 
(including COBOL structures), adjustable 
length strings, DEFINED items, AREA, and 
POINTER arrays and structures, TASK and 
EVENT arrays, and TASK and EVENT arrays in 
structures . 



Phase JD scans the text for concatenation 
and unary prefixed triples with constant 
operands. These are evaluated and the 
results are placed in new dictionary 
entries. The references are passed through 
a stack into the corresponding result slots 
in the text. 



TliE AGGREGATES LOGICAL PHASE 



For the base elements of structures 
without adjustable bounds or string 
lengths, the following calculations are 
made: 

The offset from the start of the major 
structtire 

The padding required to align the 
elements on the correct boundary 

All multipliers of arrays of 
structures. 



The Aggregates Phase consists of three 
physical phases, the preprocessor (phase 
JI) , the structure processor (phase JK) and 
the DEFINED chain check (phase JP) . 

The structure processor phase carries 
out the mapping of structures and arrays in 
order to align elements on their correct 
storage boundaries. 

The DEFINED chain check ensures that 
iteros DEFINED on arrays and structures can 
be iRapped consistently. 



Phase JI 



The first function of phase JI is to obtain 
scratch storage in which the text skeletons 
contained in phase J J are to be held. 
Pnase JJ is then loaded^ and its contents 
are moved to the scratch storage for 
subsequent use by phases JI and JK. Phase 
JJ is then released and control is returned 
to phase JI- 

The main function of phase JI is to 
expedite data interchange activities. A 
scan of static, automatic, and controlled 
chains is performed. The chains are 
reordered so that all data variables appear 
before non-data items. Adjustable PL/I 
structures and arrays are detected. Each 
entry in tne COBOL chain is mapped as far 
as possible at compile-time, removed from 



For all minor structures and major 
structures the following calculations are 
made: 

Size 

The offset from the preceding alignment 
boundary with the same value as the 
maximum appearing in the structure 

Where a structure contains adjustable 
bounds or string lengths, code is generated 
to call the Library at object time. 

For arrays, the multipliers are 
calculated, unless the array contains 
adjustable items, in which case the Library 
performs the calculations. 

For adjustable structures, arrays, or 
strings, code is generated to add a 
symbolic accumulator register into the 
virtual origin slot of the dope vector, and 
the accumulator register is incremented by 
the size of the item. 

Calculations are made in a similar 
fashion for arrays of strings (in 
structures or otherwise) with the VARYING 
attribute.. In addition, code is generated 
to set up an array of string dope vectors 
which refer to the individual strings in 
the array using the dope vector. Code is 
also generated to convert the original dope 
vector to refer to the array of string dope 
vectors, instead of to the storage for the 
array. 
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The routine which generates code for 
arrays of VAilYING strings is also used to 
generate code for the initialization of 
arrays of TASK, EVENT, and AREA variables. 

DEFINED items are processed in the 
following way: 

Code is generated to set the 
multipliers and virtual origin address 
of correspondence defined arrays 
without iSUBs in the dope vector of the 
DEFINED items frc»n the defining base 
dope vector. 

Code is generated for overlay DEFINED 
items if they do not fall into the 
class which is to be addressed 
directly. The code first maps the 
DEFINED item, if necessary, calculates 
the address of the start of the storage 
to be used by the DEFINED item, and 
finally, relocates the DEFINED item 
using this address. 

Dope vector descriptor dictionary 
entries and record dope vector dictionary 
entries are made for items which need to be 
mapped at object time, or which appear in 
RECORD-oriented input/output statements. 



Phase JP 

Phase JP scans the DEFINED chain, and 
differentiates between the following: 

1. correspondence defining 

2. Scalar overlay defining 

3. Undiirensioned structure overlay 
defining 

4. Mixed scalar-array- structure- string 
class overlay defining 

In correspondence defining, this phase 
differentiates between arrays of scalars 
and arrays of structures. It also checks 
that the elements of the defined item which 
may validly overlay the elements of the 
base belong to the same defining class, and 
that the base is contiguous. 

In scalar overlay defining, this phase 
checks that the defined item may validly 
overlay the base. 

For undimensioned structure overlay 
defining, this phase checks that the 
elements of the defined item may validly 
overlay the elements of the base. 

For mixed scalar-array-stmicture-string 
class overlay defining, this phase checks 



that all elements of the defined item and 
all elements of the base belong to the same 
defining class (bit or character) , and that 
the base is contiguous. 



THE OPTIMIZATION LOGICAL PHASE 



The optimization logical phase consists of 
several physical phases and is loaded if 
0PT=2 is specified in the PARM field of the 
EXEC statement. 

The work done during the Optimization 
Phase can be split into two parts. The 
first consists of testing the text and 
dictionary to see if optimization is 
permissible. As a result of these tests, 
tables are built pointing to optimizable 
text. The second part consists of code 
generation and modification requiring 
scanning of the tables built in the first 
part, and direct references to the text and 
dictionary . 

All code generation resulting in text 
expansion is placed in a patch file, and 
the point of insertion in the text is 
overwritten with a PTCH triple pointing to 
the patch. The last physical phase merges 
the patch text into the main program text. 

Optimized code is produced for subscript 
address calculations and iterative DO- loop 
control. In the case of subscripts most of 
the optimized code consists of reordered 
triples, but optimized loop control code is 
generated as pseudo-code using BXLE, and 
BXH instructions. 

Only simple loops and subscript lists 
are optimized, and the variables involved 
must be real, fixed binary, scalar integers 
and the constants must be decimal integers. 

The two main problems in deciding 
whether it is permissible to optimize code 
are: 

1. Aliasing of variables 

2. The action of the program for 
exceptional conditions 

Optimization is inhibited where it is 
difficult, or impossible, to decide that 
optimization will produce an object program 
which will execute according to the rules 
of PL/I. The keyword REORDER, indicates to 
the Optimization Phase, that ON-units for 
exceptional computational conditions may be 
ignored. This enables more cases to be 
optimized than for the default setting of 
ORDER. 
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Three types of subscript optimization 
are performed: 

1. Transformation Where possible, a 
control variable used as a subscript 
is transformed such that, instead of a 
•subscript ♦ multiplier + virtual 
origin* address calculation, each 
iteration produces a simple increment 
of a register to access the next 
element. 

2. Invar iance Where possible, an 
invariant subscript calculation inside 
a DO- loop is moved outside. 

3. Comrooninq Where possible, a common 
subscript expression is only 
calculated once and this value is 
placed in a register to be used at 
later occurrences. 

For array expressions an attempt is made 
to combine the incrementing of a 
transformed control variable with the BXLE 
or BXH of the optimized loop control code. 

The text is optimized starting from the 
innermost of a nest of iterative DO- loops 
and working outwards. This enables patch 
code, which moves out of a DO- loop, to be 
included in the processing of the enclosing 
DO- loop, hence moving out code as far as 
possible in a nest of loops. 



Phase KA (KB) 



Contains utility routines and common data 
space used by the later optimization 
phases. Details of the utilities are given 
in Appendix K. 

The utilities enable the optimization 
phases to build and process tables in text 
blocks without concern for physical block 
boundaries, status of text blocks, or 
maintaining pointers to first, last, and 
current table entries. 

The facilities provided: 

1. Define a table using a table control 
block area. 

2. Add new entries to the end of a table. 
Table entries may be of fixed or 
varying length and a table can contain 
more than one type. 

3. Scan a table forwards or backwards. 

U. Make direct reference to table 
elements . 

5. Delete a table. 



6. Specify locking of entries. 

7. Remove all locks on table entries. 

Phase KG 



Phase KC scans the text for DO- loop 
specifications. If the loop is potentially 
optimizable, then any expressions in the 
initial, the TO, or the BY specifications 
are assigned to temporary variables. The 
expression and the assignment are moved 
outside the loop and are replaced in the 
specification by a simple reference to the 
temporary variable. 

Text is also scanned for ON-units. The 
occurrence of each type of ON- unit is 
recorded by the appropriate bit in the mask 
used by Phase KG. 



Phase KE 



Phase KE performs a scan of the dictionary 
and a scan of the text. The purpose of 
these scans is to mark variables 'unsafe' 
if they can possibly be affected by changes 
to other variables (i.e., aliases). 
Variables are marked unsafe if they are 
EXTERNAL, DEFINED, defined upon, BASED, or 
PARAMETERS, or if they are (or might be 
through being arguments of procedure calls) 
arguments of the ADDR built-in function. 

In addition, during the text scan, the 
DO MAP table is created. This table 
contains an entry for each DO- loop and 
procedure in the source text. Each entry 
contains information describing the loop or 
procedure and giving its location in the 
text. A chain is constructed through these 
entries giving the order in which they are 
to be processed by subsequent K phases. 



Phase KG 



Phase KG scans the text corresponding to 
each DO MAP entry in turn and builds up two 
lists which are chained off the DO MAP 
entry. The USE list is a list of all the 
real, fixed binary, scalar integer 
variables which are used within the loop. 
A flag byte indicates whether the variable 
is assigned to or is invariant in the loop. 

The SUBS/REGION list consists of two 
types of entry: 

1. A SUBS entry which contains the text 
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reference of a SUBSCRIPT triple 
referring to an array for which 
SUBSCRIPTRANGE is not enabled. 



2. A REGION entry which contains the text 
reference of a triple which results in 
an assignment to one or more 
variables. There are four types of 
REGION botindaries: 



a. A GLOBAL region boundary which 
contains the text reference of a 
point where the value of any 
variable could be changed. 



A PARTIAL SAFE boundary which 
contains the text reference of a 
point where an assignment is made 
to a variable which is a SAFE real 
fixed binary scalar integer, 
followed by the dictionary 
reference of this variable. 



A PARTIAL UNSAFE region boundary 
which contains the text reference 
of a point where cm assignment is 
made to an UNSAFE variable (not 
just a scalar) . The dictionary 
reference is not inserted in this 
case. 



An ITDO region boundary which 
contains the text reference of an 
ITDO triple corresponding to an 
enclosed loop. 



Phase KJ 



Phase KJ creates the SUBS TABLE from the 
SUBS/REGION list produced by phase KG. The 
DO KAP created by KE provides the order of 
processing and further information. 

The Region entries from the SUBS/REGION 
list are copied directly into SUBS TABLE 
whenever they occur. The SUBS entries from 
the list are expanded to contain 
information on the type of expression 
involved at this point. The USE list 
created by KG provides information during 
this analysis. The SUBS/REGION list is 
deleted by this phase. 

The iterative specification triples of 
each DO-loop are inspected, and the spare 
operands uaed to set flags to indicate 
whether this loop is optimizable for BXLE 
or BXH loop control code. 



Phase KN 



Phase KN provides initialization of the 
scratch storage area used by phase KO. 

An initial text scan is made in DO MAP 
sequence, to remove offsets from 
optimizable subscript lists and produce 
hash totals for optimizable subscript 
expressions. The hash totals are placed in 
the SUBS/REGION table and are used in phase 
KO to speed up the matching process. 



Phase KQ (KP,KQ) 



Phase KO processes text in the order 
specified in the DO MAP, i.e., working 
through a nest of iterative DO-loops and 
procedures from innermost outwards. 

The three types of subscript 
optimization: transformation of the control 
variable; invariance; and commoning; are 
performed and optimized code is generated 
and inserted in a patch file. The code to 
be replaced in the original text is 
overwritten with NOP's and a PTCH triple 
points to the patch text. 

All three types of subscript 
optimization require searches for multiple 
occurrences of the same expression in the 
text. This is done by scanning the SUES 
TABLE for matching triple expressions in 
optimizable subscript lists. When a match 
is found a chain is constructed in the SUES 
TABLE between the matched elements. The 
code is generated for one chain at a time) 

Code generated for optimized subscripts 
may be inserted: 

1. Before the ITDO triple, i.e., where an 
invariant subscript calculation is 
moved out of a loop or where the 
initial setting of a transformed 
control variable is required. 

2. Before the ITD' triple, i.e., for the 
incrementing code of a transformed 
control variable. 

3. After the ITD' triple, i.e., the 
DROP'S for symbolic registers used in 
the optimized code. 

U. At the point of use in the subscript 
list. 

For array expressions the incrementing code 
for a transformed control variable will be 
deleted if a BXLE or BXH can be generated 
which will increment the transformed 
control variable and control the number of 
iterations of the loop. 
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USSL declarations may be inserted in the 
optiiTiized code to indicate that registers 
have priority and need not be saved and 
restored at branch points. The register 
allocator phase gives these registers 
priority over normal symbolic registers. 



Phase KT 



Phase KT is a renamed replacement of phase 
LA which is now obsolete. It is always 
loaded. This phase is a utility phase 
which remains in storage throughout the 
remainder of the Optimization Phase and the 
whole of the Pseudo-Code Phase. It 
provides the main scanning routines to 
handle input and output of text containing 
triples and pseudo-code. 

The routine/subroutine directories in 
Chapter 3 give a complete list of the 
routines provided, together with brief 
descriptions of their functions. 



Phase KU(yv) 

Phase KU has three main functions performed 
during a single text scan. 

The first function is DO-loop control 
optimization. Each ITDO triple encountered 
during the text scan is checked to 
determine whether or not it has been 
flagged as being opt imiz able by a previous 
phase. If not flagged the scan is 
continued. All DO-loop control 
specifications headed by an ITDO triple 
flagged as optimizable are replaced in text 
by an optimized pseudo-code group \3sing the 
BXB and fiXLE instructions. There are three 
basic forms to this optimized pseudo-code 
control specification, the particular one 
used for any loop depending on the type of 
step. 

The second function is to detect each of 
the PTCH triples inserted into text by a 
previous phase. The corresponding patches 
are obtained from patch file text blocks 
and are processed as necessary before being 
inserted into text in place of the PTCH 
triple. 

The last function is that of the 
subscript list processing. Each innermost 
subscript list encountered, as indicated by 
the presence of a SUBS triple in the main 
text, is checked for the occurrence of COMA 
or COKR triples within it. The SUBS triple 
is then altered as may be necessary. 



THE gSEUDO-CODE LOGICAL PHJ^E 



The Pseudo-Code Phase accepts the output of 
the Translator Phase, and converts the 
triples into a series of machine- like 
instructions. The transformation into 
pseudo-code is achieved by a series of 
passes through the text; each pass removes 
certain triples and replaces them by 
pseudo-code, until the entire text is in 
pseudo-code form. On completion of this 
phas^, control is handed to the Storage 
Allocation Phase. 



Pseudo-Code Design 



Pseudo-code is essentially a one-for-one 
symbolic representation of machine code, 
designed so that it can be transformed 
directly into executable machine code by an 
assembly process. 

Pseudo-code is constructed in basic 
units, the majority of which have a 
standard size of three or five bytes. A 
variable sized unit, however, is also 
available to allow flexibility, its length 
being specified by a length code within the 
unit. The formats of pseudo-code 
instructions are shown in Appendix D.6. 

A unit consists of a one-byte operation 
code followed by normally, a two- or 
four-byte field, or on the other occasions 
by a variable length field. The bit 
pattern of the operation code indicates the 
type of unit which it heads. 



Pseudo-Code Items 



In addition to there being one pseudo-code 
item for each machine instruction which 
could be generated, there are also 
pseudo-code items which are produced to 
convey information from one phase of the 
compiler to another. 

These items of information have the same 
format as a pseudo-code item, so that the 
handling and scanning of the source text is 
standardized. They do not, however, appear 
in the final object code. 



Register Description 



In all cases where a general purpose 
register appears in pseudo-code, it will be 
described symbolically. When conventional 
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registers are required in, for example, 
calling sequences, the registers will be 
referred to physically, as they will be in 
all cases of floating-point register usage. 



The Use of Symbolic Unassigned Registers 



Whenever a new register is required while 
pseudo-code is being generated, a symbolic 
register counter is incremented by one and, 
subject to this new value not being greater 
than 16,383, it is used as the symbolic 
name of the required register. When this 
register is no longer required a DROP 
pseudo-code it^n is inserted into the text 
to indicate to the Register Allocation 
Phase that the physical register allocated 
to this symbolic register may be 
reassigned. 



The Use of Physical Registers 



Temporary Workspace 



A block of temporary workspace is used to 
store intermediate results obtained in 
evaluating expressions at object time. 
Pseudo-code phases allocate the next 
available workspace location within the 
block, and then update the location 
pointer, whenever the necessity to save an 
intermediate result arises. The location 
of the intermediate result is then 
described for later phases by a TMPD in the 
text. Intermediate results are only 
required during the execution of single 
PL/I statements; they are never preserved 
from one statement to another. 



At the end of the pseudo-code phases the 
maximum size of the temporary storage 
required in each PL/I program block is 
placed in a dictionary entry. The required 
amount of workspace is then allocated in 
each Dynamic storage Area (DSA) by Phase 
PT. 



Physical general purpose registers will be 
used either as arithmetic registers or as 
parameter registers. 

With arithmetic registers, it is the 
responsibility of the pseudo-code 
generation phases to save and restore the 
registers as necessary. This will apply 
both to the general purpose arithmetic 
registers (namely 14 and 15) and to the 
four floating-point registers. Although 
this is of primary interest to the 
expression evaluation phases, it should be 
realised that all phases which generate 
calling sequences must be aware of the 
current status of arithmetic registers, and 
generate code to save and restore them as 
necessary. 

In the case of parameter registers, 
however, the Register Allocation Phase will 
be able to save and restore them as 
required. 



Temporary Descriptors 



As expressions are evaluated, a series of 
intermediate tanporary results are 
obtained. These results, or their 
addresses, may be contained in symbolic or 
assigned registers, in a dictioneury 
reference, with or without an index 
register, or in workspace. Temporary 
descriptor triples (TMPD) are inserted in 
the text to enable the correct pseudo-code 
instructions to be generated from the 
triples. The format of IMPD triples is 
described in Appendix D.9. 



Phase LB 



Phase LB scans through the text for 
PROCEDURE, BEGIN, and ALLOCATE statement 
triples . 

Whenever one of these is found, a scan 
is made through the immediately succeeding 
second file statements; this is for any IDV 
(initial dope vector) stat^nent referring 
to a variable replication factor in the 
array initial strings Processing of these 
statements and of the corresponding array 
initial strings is then carried out. 

On completion of this secondary scan, 
the action taken depends on which triple 
was originally found: 

1. For PROCEDURE or BEGIN triples, a scan 
is then made of the AUTCK4ATIC chain in 
the dictionary. For any scalar 
variables that have been declared 
INITIAL, a set of triples is created 
and inserted into the text. For any 
array declared INITIAL, the initial 
string is scanned, and a mixture of 
triples and pseudo-code is generated. 

2. For ALLOCATE triples, if the item has 
been declared INITIAL, the initial 
string is scanned, and a mixture of 
triples and pseudo-code is generated. 

Phase LB also marks Phase LG (DO-groups) 
as wanted or not wanted; this is done in 
co-operation with Phase lA. 
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Phase LD 



Phase LD scans the STATIC chain for any 
variables which have been declared INITIAL. 

When a scalar variable is found, the 
phase constructs two dictionary entries: 
one for the constant, and one for the 
converted constant. 

For arrays, the phase scans the initial 
value string, creating an initialization 
table in the dictionary. Replication 
factors are converted and inserted into the 
table; treatment of the constants is then 
as described for scalar variables. 

Phase oS converts the constants to their 
specified inteimal form. 



Phase L6 



Phase LG scans the text for DO loops. A 
stack is maintained with each entry 
containing a description of a DO group. 
The stacking reflects the nesting of the DO 
groups. For each DO or iterative DO triple 
a new entry is made at the top of the 
stack. 

DO specification triples are analyzed 
and expressions are assigned to 
temporaries; subscripts in the control 
variable are assigned to binary integer 
temporaries if they are themselves 
variable. At the end of each 
specification, pseudo-code and triples are 
generated to control the loop. 

Triple operators (see Appendix D.4 ) 
peculiar to the specification of DO loops 
are removed frcMn the text. 

For control variables, other than simple 
scalars, text is placed in the DO stack and 
used at every appearance of the control 
variable in the generated text. During 
this time, a scan is also made for 
pseudo-variables, subscripts, ftinctions, 
and argument markers. 



Phase Lti 



The purpose of Phase LR is to save space 
during the expression evaluation phase, LS. 
It provides the initialization for Phase LS 
by obtaining 4^096 bytes of scratch storage 
and setting stack pointers. The scan phase 
is initialized and Phase MP is marked. 



The translate table for scanning 
triples, and the constants for expression 
evaluation are included in this phase and 
are moved to the first IK area of scratch 
storage. Subroutines required by phase LS 
are also moved into scratch storaae at this 
time. Finally, control is passed to Phase 
LS. 



Phase LS 



Phase LS scans the source text to convert 
expression triples to pseudo-code. If a 
triple produces a result, it is added to 
the t«nporary work stack. 

For the arithmetic triples +,-,*,/,♦*, 
prefix +, and prefix -, the operands are 
combined to give the base, scale, mode, and 
precision of the result. If conversion is 
necessary, an assignment triple, with the 
target and source types as operands, is 
inserted in the text. In-line pseudo-code 
is generated for all operators except ♦♦ 
and some complex type ♦ and / operators. 
In these cases, library calling sequences 
are generated. An intermediate result is 
always produced and the triple is removed 
from the text. 

The operands of comparison triples GT, 
GE, equals, NE, LE, and LT are combined and 
converted as for the arithmetic triples. 
In-line pseudo-code is generated and the 
triple is removed from the text, unless 
both operands are string type, in which 
case a temporary is created. If the next 
triple is a conditional branch, a mask for 
branch- on- false is inserted. Otherwise, 
the result is a length 1 bit string. 

For the string triples CAT, AND, OR, 
NOT, and string comparisons, if an operemd 
is zero, TMPD triples, containing the 
intermediate result from the top of the 
stack, are inserted in the text after the 
triple. The result is a CHARACTER or BIT 
string or a compare operator. 

When subscript triples appear, a 
symbolic register number is inserted in the 
triple. The result contains the dictionary 
reference of the array and the symbolic 
register. 

For function triples, a description of 
the workspace for the function result is 
inserted in the TMPD triples which follow 
the fxmction triples. The function result 
is added to the intermediate stack. 

For add, multiply, and divide functions, 
the function and argument triples are 
removed from the text. Arithmetic type 
in-line pseudo-code is generated, with 
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modifications for the precision and scale 
factor, and the result is added to the 
intermediate stack. 

With pseudo-variable triples, a special 
marker is added to the intermediate result 
stack. 

other triples which may use an 
intermediate result, are examined. If an 
operand is zero, two or three TMPD triples, 
containing the intermediate result from the 
top of the stack, are inserted in the text 
after the triple. If both operands are 
zero, the TMPDs for the second operamd 
precede those for the first operand. 



Phase LV 



Phase LV provides string handling 
facilities for the pseudo-code phases. 

It converts any type of data item to a 
CHARACTER or BIT string, and an assignment 
triple, with the target and source types 
used as the operands, is inserted in the 
text. 

A string dope vector description is 
produced from a standard string 
description. 



Phase LX (LW. LY) 



Phase LX consists of three modules, LW, LX, 
and LY. Module LW acts as a pre-processor 
for LX and LY, moving constants into 
scratch storage prior to loading the 
string-handling modules. 

Phase LX scans the source text to 
convert string triples to pseudo-code. If 
a result is produced it is added to a stack 
of intermediate string results. 

For the comparison triples GT, GE, 
equals, NE, LE, AND LT, both operands are 
already string type. If one operand is 
zero, the operand is obtained from the 
associated TMPD triples. In-line 
pseudo-code is generated if the operands 
are aligned and are of kno%m lengths less 
than or equal to 255 bytes; otherwise, 
library calling sequences are generated. 
The triple and any TMPD triples are removed 
from the text. 

In the case of the string triples CAT, 
AND, OR, and NOT, the operands are 
converted to string type by phase LV. Zero 
operands are obtained from associated TMPD 
triples. In-line pseudo-code is generated 



when operands are aligned and are of known 
lengths less than or equal to 255 bytes. 
For the CAT operator, the first operand 
must be a multiple of 8 bits unless the 
strings involved are less than or equal to 
32 bits in length. In-line code is also 
generated for the following cases involving 
non-adjustable varying strings: 

1. Character string concatenation of 
varying strings with lengths less than 
256 bytes. 

2. Bit string operations for AND, OR, 
NOT, concatenation, and comparison 
where the strings are aligned and are 
less than 33 bits in length. 

Otherwise, library calling sequences are 
generated. The triple and any TMPD triples 
are removed from the text, and the string 
result is added to the intermediate result 
stack. 

For TMPD triples, if the intermediate 
result described by the TMPD triples is a 
string, a complete string description is 
moved from the top of the intermediate 
stack to the TMPD triples. If the TMPD 
triples do not describe a string, they are 
ignored. 

In-line code is generated for the BOOL 
functions AND, OR, and EXCLUSIVE OR, when 
the third argument is a character or bit 
string constant and the first and second 
arguments are aligned and of known lengths 
less than or equal to 255 bytes. Otherwise 
library calling sequences are generated. 
Subscript and function triples may produce 
intermediate string results. 



Phase MA 



Phase MA generates pseudo-code for both the 
in-line invocations of TRANSLATE and VERIFY 
and for the invocations which call a 
library routine. It is optional depending 
on the presence of the TRANSLATE or VERIFY 
function in the source program. 

Three kinds of tables are handled: 

1. Compile-time created (up to three) 

2. Floating, initialized by in-line code 

3. Floating, initialized by library 
subroutine 

When three constant tables have been 
created at compile-time, any further 
occurrence of this case, will cause the 
constants of both the second and third 
arguments to be handled via the library. 
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Blocks which have RECURSIVE, TASK, or 
REENTRANT attributes will have their own 
table, otherwise one table will be used for 
many blocks. 



normal function processor phase is loaded. 
When the end-of-program marker is 
encountered the terminating routine is 
entered. 



Phase MB 



Phase KB scans the text for pseudo- variable 
markers and multiple assignment markers. A 
stack of pseudo- variable descriptions is 
maintained, together with the left hand 
side descriptions of multiple assignments 
when they occur. Pseudo-code and triples 
are generated for pseudo-variables and the 
left hand side descriptions of multiple 
assignments are put out in the correct 
sequence. 



Phase MG 



Phase MG identifies functions which are to 
be coded in-line, and generates, in their 
place, the pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line 
function. 



Phase MD 



Phase WD uses the SCAN routine to scan the 
text for ADDR and STRING built-in functions 
for which it generates in-line code. It 
appears before the normal function 
processor phase and removes all trace of 
the in-line function. The general SCAN 
routine passes control when these functions 
are found. 

For all cases of ADDR the generated code 
establishes the start address of the 
argument. If structure name arguments are 
present the structure chain is hashed for 
the first base-element. For array names 
the address of the first element is 
calculated. 

If the argument to the STRING function 
is contiguous in main storage, and its 
length is known at compile-time, an 
adjustable string assignment is generated. 
Otherwise the library routines IHESTGA and 
IHESTGB are called to produce the 
concatenated length and to concatenate the 
elements of the array or structure 
argument. 



Phase ME; 



Phase ME identifies all invocations of the 
SUBSTB function and pseudo- variable, all 
UNSPEC, STATUS, and COMPLETION ftmctions, 
and those invocations of the INDEX function 
which can be implemented in-line; and 
generates pseudo-code to perform these 
fimctions at object time. The scan of the 
text is conducted by the general SCAN 
routine, and all trace of the invocations 
of these functions is removed before the 



The scan of the text is conducted by the 
general SCAN routine, and control is handed 
to the present phase when one of the 
following functions is found: 



ALLOCATION 


FLOOR 


BINARY 


BIT 


IMAG 


DECIMAL 


CEIL 


REAL 


FIXED 


CHAR 


TRUNC 


FLOAT 


COMPLEX 




PRECISION 


CONJG 







Control is also passed to this phase if 
ABS is found with real argtiments. The 
arguments are collected, and the 
appropriate routine is entered to generate 
the pseudo-code. When the end-of-program 
marker is encountered the terminating 
routines are entered. 



Phase MI 



Phase MI identifies functions which are to 
be coded in-line, and generates , in their 
place, pseudo- code to perform the relevant 
function. This phase appears before the 
normal function processor phase and removes 
all trace of the in-line function. 

The scan of the text is conducted by the 
general SCAN routine and control is handed 
to the present phase when one of the 
following functions is found: 



M70C 
MIN 



MOD 
ROUND 



If the number of arguments to the MAX or 
MIN functions is greater than three, a 
library call is generated. 
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Phase MK 



Phase MK identifies functions which are to 
be coded in-line, and generates, in their 
place, pseudo-code to perform the relevant 
function. This phase appears before the 
normal function processor phase and removes 
all trace of the in-line function. 

The scan of the text is conducted by the 
general SCAN routine, and control is passed 
to the present phase when one of the 
following functions is found: 

DIM HBOUND 
LBOUND SIGN 
LENGTH FREE 



strings or temporaries, which were created 
by Phase GK. On entering this phase, the 
BUY triples precede the code compiled to 
evaluate the length of storage required for 
the VDA. This evaluation code is included 
between fuirther BUYS and BUY triples, which 
themselves are between the BUY triple being 
considered and its associated SELL triple. 
Phase MP extracts these sections of code 
and places them before the BUY triple of 
the adjustable string temporary. Since 
such BUY triples may be nested, the phase 
maintains a count to record the nesting 
status. 



Phase MS 



Phase ML 



Phase ML scans the source text for generic 
entry name arguments to procedure 
invocations. 

Such entry names may be floating 
arithmetic built-in functions or 
programmer-supplied procedures with the 
GENERIC attribute. When one is found, the 
correct generic family member to be passed 
is selected by this phase, depending on the 
entry description of the invoked procedure. 



Phase MS scans the source text for 
references to subscripted array elements. 

If references are found, pseudo-code is 
generated to calculate the offset of the 
siobscripted element in relation to the 
origin of the array. If necessary, further 
pseudo-code is generated to check the 
subscript range. 

Optimization of constant subscript 
evaluation is carried out on arrays having 
subscripts which are integer constants, and 
for which the corresponding dope vector 
multipliers are constant. This applies to 
arrays with fixed-length elements. 



Phase MM 



Phase NA 



Phase MM scans through the source text for 
procedure invocations by a CALL statement, 
or for procedure or library routine 
invocations by a function reference. 

Procedure invocations are replaced by an 
external standard callinq sequence, and 
library routine invocations are replaced by 
an external or internal standard calling 
sequence as appropriate (see Appendix 
D.IO). 

If a CALL is accompanied by a TASK, 
EVENT, or PRIORITY Option, library module 
IHETSA is loaded rather than IHESA, and the 
parameter list is modified to include the 
addresses of the TASK and EVENT variables 
and the relative PRIORITY. 



Phase MP 



Phase MP reorders the BUY and SELL 
statements involved in obtaining Variable 
Data Areas (VDAs) for adjustable length 



Phase NA generates pseudo-code for the 
following triples: 

For PROCEDURE* and BEGIN* triples a 
Library call is generated to the FREEDSA 
routine . 

For RETURN triples a library call is 
generated, unless a value is to be returned 
as the result of a function invocation, in 
which case code is first generated to 
assign the result to the target field, and 
then the library call is made. If the 
function may return the result as more than 
one data type, a switch would have been set 
at the entry point to the function, and the 
RETURN statement would test the switch 
value, so that the data type appropriate to 
the entry point is returned. 

GOTO triples either will be invalid 
branches detected by Phase FI, in which 
case they will be deleted, or they will be 
branches to statement label constants in 
the same PROCEDURE or BEGIN block. In this 
case, they will be compiled as 
one-instruction branches. 
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GOLN triples are compiled into 
one-instruction branches to the compiler 
label number in operand 2 of the triple. 

A GOOB (Go Out Of Block) triple is a 
branch to a label variable, possibly 
subscripted, or to a label in a higher 
block than the current one (a branch to a 
lower block is invalid). A call is 
generated to a library epiloaue routine, 
pointing at a double-word slot containing 
the address of the label and the 
Pseudo-Register Vector (PRV) offset (for a 
label constant), or the invocation count 
(for a label variable). 

STOP and EXIT statements are implemented 
simply by invocation of the appropriate 
library routine. 

For IF triples, if the second operand is 
an identifier, or the result of an 
expression which is not a comparison, code 
is generated to convert it to a BIT string, 
if necessary. This BIT string is compared 
to zero, either in-line, or by a call to 
the library. 

The second operand may be a mask which 
will have been inserted by the expression 
evaluation phase as a result of the 
comparison specified in the IF statement. 
This mask is put into a generated 
instruction to branch if the condition is 
not satisfied, i.e., either to the ELSE 
clause or to the next statement. 

For ON triples, code is generated to set 
flag bits and update the ON-xinit address in 
the double-word ON slot in the DSA. 

For SIGNAL arithmetic condition triples, 
in-line code is generated to simulate the 
condition. For all other conditions, a 
library error routine is called. 

REVERT triples generate code to set flag 
bits in- the double-word ON slot in the DSA. 



Phase NG 



Phase NG generates the calling sequences to 
the library for DELAY and DISPLAY and WAIT 
statements. 

It generates code to call the library 
routines which handle ALLOCATE and FREE 
statements whose argiiments are BASED 
variables. 

For DELAY statements, the argument has 
to be a fixed binary integer, and, if 
necessary, code is generated for 
conversion. 



For DISPLAY titrttements, the message must 
be a CHARACTER string, or, it necessary, 
converted to one. A parameter lint is 
built up to pass to the library. 



For WAIT statements, the pdrameter list 
is built up in workspace. It consists of 
the address of the scalar expression 
(converted to a fixed binary integer), 
followed by the addresses of the 
event -names that appear in each WAIT 
statement. If the scalar expression option 
does not appear, the address of the total 
nximber of event-names is used. 



For the tasking option WAIT, whose 
argument is an EVENT array, the phase makes 
a 4-byte entry in the parameter list, 
containing the number of dimensions 
involved, and the address of the EVENT 
array dope vector. If the WAIT statement 
contains an EVENT array and no scalar 
expression, the first byte of the parameter 
list is set to X'FF'. 



For ALLOCATE and FREE statements, with 
based variables as arguments, a parameter 
list is built in workspace before a call is 
made to one of the entry points to IHELSP. 
The parameter list is an 8-byte RDV 
followed by the address of the AREA 
variable from the IN option if present. 

For ALLOCATE, the pointer- variable in 
the SET option is given the value returned 
by IHELSP. 



Phase NJ 



Phase NJ and its supporting block, NK, 
generate the calling sequences to the 
library module for the RECORD- oriented 
input/output statements: DELETE, LOCATE, 
READ, REWRITE, UNLOCK, and WRITE. 

For each of these calls, the information 
contained in the options of the source 
statement is passed by a parameter list, 
constructed as follows: 

DC A(DCLCB) 

DC A (RDV I COUNTS | PNTR^ | SDV^ ) | 

DC A(EVENT|LABEL'*) |0 

DC A(SDV.KEYTO|SDV.KEYFROM|SDV.KEY) 10 

DC A ( REQUEST_CODES ) 

1 expr in IGNORE (expr) 

2 pntr in READ SET (pntr) 

3 SDV of varying string in READ INTO 

(varying string) 
H Compiler label as result of LOCATE 
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PEQUEST_CODES is a full-word containing 
four control bytes with the following 
meanings: 

Byte Operation code 



1. 



Byte 1 



Byte 2 



Byte 3 



00 


READ 




ou 


WRITE 




08 


REWRITE 




oc 


DELETE 




10 


LOCATE 




lU 


UNLOCK 




Group 1 options 


code 


00 


SET 




OH 


IGNORE 




08 


INTO) FROM 




Group 2 options 


code 



04 KEYTO 
08 NOLOCK 

Group 3 options code 
04 VARY INTO 
08 VARY KEYTO 
OC BOTH 



2. 



For CONTROLLED or BASED aggregates. 
Phase NJ creates a library call to 
IHESTRA, passing the following 
arguments through registers: 



Register 1 
Register 2 
Register 3 



A(D.V) 
A (DVD) 
ACRE SULT . RD V . SLOT ) 



B'or CONTROLLED or BASED strings, the 
phase generates code to construct the 
RDV in the workspace storage of the 
statement, using the dope vector of 
the string. 



The IGNORE expression is taken from the 
IGNORE option of the statement and if 
necessary, converted to an integer. 



The EVENT scalar is taken from the EVENT 
option of the statement. 



Note that null arguirients in the 
parameter list or REQOEST_CODES are 
indicaheti by zeros. 



Both the parameter list and the 
REQUEST_CODES word are constructed in 
STATIC storage. However, if the argument 
of any of the options refers to AUTOMATIC, 
CONTROLLED, or BASED Storage, the parameter 
list is iTiOved to the workspace storage for 
the statement; the argument is then 
provided just before the library call is 
made. 



The KEYTO SDV is derived from the KEYTO 
option of a READ statement. 



The KEY SDV and KEYFROM SDV are derived 
from their respective options. If 
necessary, they are converted to character 
strinqs . 



The PNTR is taken from the SET triple of 
the statement or from the BASED variable of 
the LOCATE triple if no SET triple appears. 



In the case of the LOCATE statement, the 
phase is responsible for generating code to 
set the pointer variable with the pointer 
value returned in the first word of the RDV 
by the library. If the BASED variable was 
a structure with a REFER option in an 
extent definition, it is also responsible 
for generating code to initialize the 
extent variable named in the REFER option. 



The DCLCB parameter is taken from the 
FILE option of the statement; the FILE 
option rust be either a file constant or 
file parameter. 



The record dope vector (rdv) is assiamed 
to have been constructed by earlier phases, 
except in the case of COiMTROLLED or BASED 
variables or CONTROLLED or BASED 
aggregates, when the procedure is as 
follows: 



Phase NM 



Phase NM generates the calling seguences to 
the library modules for OPEN, CLOSE, GET, 
and PUT statements. 



For OPEN and CLOSE statements, a 
parameter list is constructed from the 
options given. The options are first 
checked for validity with respect to 
multiple specifications. The arguments on 
the options are checked and converted, if 
necessary, to the correct data type. If no 
file is specified in an OPEN or CLOSE 
statement, it is ignored. The parameter 
lists are as follows: 
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OPEN DC A(DCLCB) 

DC A(OCB) 

DC A(TITLF.SDV) 

DC A(IDENT.SDV) 

DC A(IDENT.DED) 

DC A(KEYI.ENGTH) 

DC A(LINESIZE) 

DC A(PAGESIZ£) 

CLOSE DC A(DCLCB) 

DC A(IDENT.SDV) 

DC A(IDENT.DED) 

Null arguments are indicated by zero 
address constants. 

For GET and PUT statements, the library 
call is in three parts. The 
initialization, data transmission (Phase 
NU) , and the termination. The 
initialization call requires a parameter 
list to be constructed from the given 
options. The options are checked for legal 
combinations and the argisroents examined. 

The parameter list when a file is 
specified is : 

DC A(DCLCB) 

DC A ( next statement ) 

DC A (binary integer) if SKIP or 
LINE is given. 

For GET and PUT STRING, the argxunent to 
STRING is checked, and the parameter list 
formed is: 

DC A(SDV of string argument) 

DC A(DED of string argument) 

The termination library call has no 
parameters. As for the initialization, the 
routine used depends on the options given 
in the statement. 



Phase NT 



This phase, which is a preprocessor for 
Phase NU, has two functions: 

1. Initialization of a block of scratch 
storage for use by Phase NU 



2. Setting up of INCLUDE matrix and 
library routine entries for 
edit- directed, STREAM-oriented I/O 
statements 

The phase contains all pseudo-code 
skeletons used by Phase NU. 4096 bytes of 
scratch storage are obtained and the 
pseudo-code skeletons are copied into it. 
The address of the scratch area is th«n 
passed to Phase NU. 

If a flag has been passed from Phase NM, 
indicating the presence of edit-directed 
I/O, a scan of the text is performed. Data 
and format list items encountered during 
the scan are associated as far as possible, 
and a sufficient set of library modules are 
identified for the edit-directed 
transmission specified in the program. The 
INCLUDE matrix is updated and dictionary 
entries are made for the required library 
format-director routines. 



Phase NU 



Data/format lists in I/O statements produce 
an internal library calling sequence (see 
Appendix D.IO) for each data item and 
format item pair, using registers to point 
at the data item, the data item DED, and 
the FED for the format item. 

Iterations of data items, as in array 
input or output, and of format items, are 
achieved by making DO loops out of the 
iterations . 

The data items are transmitted serially, 
with program flow going from an item in the 
data list, to the corresponding format item 
and then to the relevant library I/O 
module. On return from the library module, 
control goes to the code for the next data 
item or, in the case of repeated data 
items, to another iteration of the DO loop. 

Remote format statements are executed in 
a similar way. After the R format item is 
met, control is passed directly from the 
data list to the format statement until the 
end of the format statement. Control then 
returns to the item in the in-line format 
code of the EDIT statement following the 
appropriate remote format item. However, 
if no format elements remain but some data 
list elements are still present, control is 
passed back to the beginning of the format 
statement. 

An R format item referring to a label 
which is not attached to a format statement 
will cause an object time error condition 
to be raised, and the execution to 
terminate. 
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Phase 06 



Phase OB scans through the text for 
coir.piler functions and compiler 
pseudo- variables (see Appendix D.8). When 
a compiler function is found, pseudo-code 
is generated to access the operands of the 
compiler functions (e.g., string length, 
array bound) , and to place the operand in 
the location specified by the TMPD 
following the function. Assignments to 
compiler pseudo-variables are treated in 
reverse; the result from the TMPD following 
the assignment is stored in the array bo\ind 
or string dope vector slot specified in the 
compiler pseudo- variable . 

Phase OB also scans the text for BUY, 
SELL, and BUY ASSIGN statements. The 
temporary operands of these statements are 
examined, and if they are CAD or short 
fixed-length strings, they are allocated 
the next available workspace offset, and 
the BUY and corresponding SELL statements 
are removed from the text. 



Phase OD 



This phase contains the translate and test 
table used 1:^ SCAN, and other tables and 
constants for phase OE. A block of scratch 
storage is obtained into which the tables, 
routines, and constants are moved. A 
pointer to the beginning of this area is 
passed to OE in a register. 



Phase OE 

Phase OE translates the following triples 
into pseudo-code: 

Assignment 

Multiple source assignment 

Multiple target assignment 

ALLOCATE, FREE, BUY, and SELL 

Special assignment 

In-line code is generated for the 
following types of ASSIGNMENT triples: 

1. Floating-point to floating-point 

2. Fixed binary to fixed binary 

3. Fixed decimal to fixed decimal 

i\. Numeric field to numeric field, if the 



pictures given for the operands are 
identical 



5. CHARACTER string to CHARACTER string, 
if the operands are fixed length and 
not more than 256 characters 

b. BIT string to BIT string, if the 

operands are aligned and not more than 
20 UO bits 

7. Label to label 

8. File constant to file parameter 

9. POINTER/OFFSET to POINTER/OFFSET 

10. FIXED CHARACTER string to VARYING 

CHARACTER String and VARYING CHARACTER 
string to VARYING CHARACTER string 
provided that: 

1. The length of the source operand 
is not greater than 256 bytes 

2. The length of the target string is 
not greater than 256 bytes, if the 
maximum length of the source 
string is not known. 

3. For FIXED CHARACTER string to 
VARYING CHARACTER String the 
length of the FIXED string is not 
greater theui 256 bytes. 

Library calling sequences are compiled 
for those cases of CHARACTER string to 
CHARACTER string and BIT string to BIT 
string codes not compiled in-line. 

After checking bot:h AREA operands, AREA 
assignments are performed by the library. 

All other assignment triples are 
translated into the CONV pseudo-code macro. 

If the source operand is a constant, the 
type of the target operand is inserted in 
the constant dictionary entry, for 
processing by the constant conversion 
phase, and the assignment is translated 
assuming the target type. 

MULTIPLE ASSIGNMENT triples produce the 
same code as for single assignment, except 
that the registers used by the operand 
concerned must not be changed or dropped. 

Library calling sequences are generated 
for ALLOCATE, FREE. BUY, and SELl " triples, 
and pseudo-code markers are left in the 
text for insertion of code by Phase QF. 

With SPECIAL ASSIGNtCNT triples, if the 
target is a varying or adjustable string, 
storage is obtained if the target is 
AUTOMATIC, or allocated if the target is 
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CONTROLLED, 
translated. 



The assiqnment is then 



Phase OG (OL) 



Certain FIXED DEC to PICTURE 
conversions, which phase OG cannot itself 
efficiently detect to be uneconomic when 
performed in-line, are recognized by phase 
OM, which inserts the calls to the 
appropriate library routines. 



Phase OG converts to pseudo-code all 
statement ntunbers, statement labels, 
PROCEDURE, BEGIN, PROCEDURE*, BEGIN*, and 
end-of -program triples. 

The CONVERT pseudo-code macro is 
examined in conjunction with the 
OPTIMIZATION parameter and pseudo-code is 
generated in one of three forms: 

1. Code to call the library conversion 
package 

2. Code to perform the conversion 
"in-line" 

3. A modified CONV macro which is passed 
to phase OM or OP for processing. 

In-' line conversion phases which are 
not required (OM and/or OP) are marked 
unwanted. 

IGN pseudo-code items and JMP triples 
are removed. The amount of temporary 
working space required by each block of 
program is calculated and placed in the 
workspace dictionary entry (see Appendix 
C.7). 

The format of the text is converted so 
that a pseudo-code item does not span 
blocks. 

The INCLUDE card matrix is formed for 
all the conversion modules required. 



Phase 01^ 



Phase OP 



Phase OP generates in-line code to perform 
BINARY to BIT String, BIT string to BINARY, 
and FLOAT to FIXED BINARY conversions. 



Phase OS 



Phase OS scans through the constant chain 
in the dictionary and converts the 
constants to the required internal form. 
These are then stored in a constants pool, 
and the offset of each constant from the 
start of the pool is saved in the 
dictionary entry for that constant. 

To permit the correct alignment of the 
constant pool, three scans are made of the 
constant chain; first to convert all double 
word constants, secondly to convert all 
single word constants, and thirdly to 
convert all unaligned constants. 

In the first two scans only one pool 
entry is made for constants having the same 
internal form and value. 

A fourth scan is made of the constant 
chain and all constants required to 
initialize static are converted, but 
instead of inserting these constants in the 
constant pool, they are moved into special 
dictionary entries constructed by Phase LB. 



Phase OM is called when either optimization 
levels 00 or 01 are specified. This phase 
scans the pseudo-code for the CNVC macros, 
which phase OG has placed into the text as 
28-byte entries containing a transfer 
vector to select the appropriate conversion 
routine within OM, and replaces any such 
macros with in-line code. 

The conversions inserted by phase OM are 
controlled by phase OG. When OPT=0, 
certain of the simpler FIXED DEC to 
PICTURE, PICTURE to FIXED DEC, and FIXED 
DEC to FIXED BIN conversions are passed to 
OM. When 0PT=1, the remainder of the 
feasible FIXED DEC to or from PICTURE and 
FIXED DEC to FIXED BIN conversions are 
passed to OM together with FIXED DEC to 
CHAR conversions. 



THE STORAGE ALLOCATION LOGICAL PHASE 



The purpose of the Storage Allocation Phase 
is to ensure that every item requiring 
storage in a PL/I object program obtains a 
unique location of the correct size, 
located on the correct boundary. Items 
requiring storage include PL/I source 
program variables, dope vectors, dope 
vector skeletons, temporary variables, work 
areas, data descriptors, symbol tables, 
addressing slots, register save areas, flag 
areas, etc. Storage locations are 
allocated to items in order of descending 
alignment requirement to avoid wasting 
storage by padding to the required 
alignment. 
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The Storage Allocation Phase is also 
responsible for generating prologues. In 
generating the prologues, expressions which 
determine size of variables, code generated 
by the aggregates phase to initialize dope 
vectors, and code generated by the initial 
values phase, must be extracted and placed 
in the correct sequence in the text. Also, 
when a variable depends for its size or 
initial value upon another variable, the 
requests for dynamic storage must be 
arranged so that the dependant variable 
obtains its storage after the variables 
upon which it depends. 

since all AUTOMATIC and CONTROLLED 
storage is obtained dynamically at object 
time, the Storage Allocation Phase 
generates code to relocate dope vectors 
when the allocated storage address is 
known. 



label, label constant, external (entry type 
4) entry, built-in function, or EXTERNAL 
item. For each EXTERNAL item the size of 
the external control section is calculated 
and stored in the dictionary entry. 



The constants chain is scanned and the 
offsets of the storage and dope vectors for 
constants in the constants pool are 
relocated. 

The current size of the STATIC INTERNAL 
control section is computed and the result 
is passed via the communications region to 
the next phase. 



Phase PH 



Phase PA 



The purpose of phase PA is to determine the 
eligibility of the automatic chains of any 
block for STATIC DSAs. Any chain not so 
far found to be ineligible for a STATIC DSA 
is scanned to determine the DSA size. 
STATIC DSAs are generated for any chains of 
less than 512 bytes. 

Dictionary entries are generated for 
STATIC DSAs. This phase also acts as a 
spill area for routines used in phases PD 
and PH. 



Phase PD 



Phase PD is the first STATIC storage 
allocation phase. It scans the text, and 
for every second file statement encountered 
sets up a pointer in the associated 
dictionary which points to the second file 
statement. It then sorts the STATIC chain 
so that the dictionary entries occur in the 
order in which the storage for their items 
will be allocated. 

Storage is allocated for simple 
non-structtared, non-external variables, 
RDVs, DEDs, SAVE/RESTORE entries, and the 
BCD of entry labels and label constants. 
Storage is also allocated for dope vectors 
for all items in the STATIC chain requiring 
them, with the exception of EXTERNAL items. 
A full word address slot is allocated in 
STATIC for each STATIC DSA. 

The external section of the sorted 
STATIC chain is scanned and a U-byte 
addressing slot is allocated for each entry 



Phase PH is the second STATIC storage 
allocation phase. It scans the AUTOMATIC 
chain and CONTROLLED chain for all items 
requiring a dope vector. 

For each such item a skeleton dope 
vector dictionary entry is generated in the 
STATIC chain (see Appendix C.7). This 
dictionary entry contains a bit pattern 
equal in length to that of the dope vector 
and containing all those values which are 
knovm at compilation time. In particular, 
it contains as much of the relative virtual 
origin as is known at compilation time, the 
constant bounds and string lengths, and the 
constant multipliers. 

Skeleton dope vectors are not put into 
the STATIC chain for AUTOMATIC variables in 
any block whose DSA is in STATIC, except 
when the variable dimensions bit is set to 
one. 

If the item is dynamically DEFINED, then 
the dope vector is preceded by one extra 
four-byte slot. (In the case of structures 
there is one extra slot for each element of 
the structure. ) If the item is a dynamic 
temporary (temporary type 2) or a 
CONTROLLED scalar string, the virtual 
origin slot is relocated by the length of 
the dope vector. 

In all cases the skeleton dope vector 
dictionary entry is pointed at by the 
dictionaxy entry of the associated item. 

The sorted STATIC chain is scanned from 
the first skeleton argument list entry. 
For each such entry, space is allocated in 
the STATIC INTERNAL control section 
according to the assembled length of the 
argument list. The offset of each skeleton 
argument list is stored in the OFFSETl slot 
of the dictionary entry. 
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RDV and DVD entries are found on this 
same scan of the STATIC chain. RDV entries 
are allocated eight bytes; DVD entries are 
allocated the specified length. 

A scan is made of the section of the 
STATIC chain containing STATIC INTERNAL 
arrays. Storage is allocated for each 
array according to its size (computed by 
Phase JK) and the offset of the relative 
virtual origin is relocated to the start of 
the STATIC INTERNAL control section. If 
the array is of the VARYING type and it 
needs a dope vector « then storage is 
allocated for the secondary dope vector. 
The number of elements is calculated for 
INITIAL arrays and stored in the associated 
INITIAL dictionary entry. 

The section of the STATIC chain 
containing STATIC INTERNAL structures is 
scanned. Storage is allocated for each 
structure according to the size of the 
structure (computed by Phase JK), and this 
storage is placed on the correct boundary 
on information supplied by Phase JK. The 
structure member chain for each structure 
is scanned and the relative offset of each 
member is relocated to the start of the 
STATIC INTERNAL control section. Further, 
on the structure member scan, secondary 
dope vectors are allocated when required, 
and the number of elements is calculated 
for INITIAL arrays. 



When a variable is found which requires 
a DED, it is determined vi^ether or not the 
DED describes a standard type; there are 
eight standard types, which consist of the 
different kinds of real coded arithmetic 
data that can be obtained by the 
combination of the attributes FIXED/FLOAT, 
BINARY/DECIMAL, LONG/SHORT (default 
precisions only) . 

If the DED is of a standard type, a 
check is made for an identical DED that may 
have already been encountered, so that 
there will be only one allocation of 
storage for any one type of standard DED. 
If the DED is not of a standard type, it is 
allocated storage of its own. 

If the variable does not already have a 
symbol table dictionary entry (which 
contains space for DED information), a DED 
dictionary entry is constructed, and the 
offset of the DED in the STATIC control 
section is stored in it. A pointer in the 
new entry in the dictionary entry for the 
variable is also set up. 

When all data element descriptors and 
symbol tables in the compilation have been 
processed, all STATIC storage has been 
allocated and the total size of the STATIC 
control section is placed in a slot in the 
communications region. 



Phase PL 



I Phase PP (PO) 



Phase PL scans the STATIC, AUTOMATIC, 
CONTROLLED, structure, and PROCEDURE block 
chains for variables which require storage 
for their symbol tables and/or data element 
descriptors. 

When a variable is found which requires 
a symbol table, the variable is joined onto 
the chain of symbol variables for the 
particular block. A symbol table 
dictionary entry is created for the 
variable (see Appendix C.7), and a chain is 
set up to and from the dictionary entry for 
the variable. The new dictionary entry is 
joined onto the STATIC chain. 

The size of the symbol table is 
calculated, and its offset from the start 
of the STATIC control section is stored in 
the symbol table dictionary entiry. 
Throughout the allocation of STATIC storage 
a location counter is maintained to contain 
the next free location in STATIC; this 
counter is increased appropriately. 

All symbol variables require a DED and a 
branch is taken to the routine vrtiich 
allocates them. 



Phase PP extracts all ON condition entries 
and places them at the head of the 
AUTOMATIC chain. It then extracts all 
temporary variable dictionary entries from 
the AUTOMATIC chain and places them in the 
zone following the ON conditions in the 
chain. 

All dictionary entries which are totally 
independent of any other variable are 
extracted, and also placed in the zone 
following the ON conditions. 

The phase then extracts all dictionary 
entries %ihich depend upon some other 
variable in containing blocks or in the 
zones already extracted, and places them in 
the next following zone. Dependency 
includes expressions for string lengths, 
expressions for array bounds, expressions 
for INITIAL iteration factors, and defined 
dependencies. This is repeated recursively 
until the end of the chain. If some 
variable depends upon itself, a warning 
message is issued. 

A special zone delimiter dictionary 
entry is inserted between each zone in the 
AUTOMATIC chain (see Appendix C.7). A code 
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byte is ini-tialized in the delimiter to 
indicate to Phases PT and QF whether its 
following zone contains any variables which 
require storage (i.e.« it does not consist 
entirely of DEFINED items, which do not 
require storage) , and whether or not the 
following zone contains any arrays of 
VARYING strings. 



Phase PT 



Phase PT allocates AUTOMATIC storage, scans 
the CONTROLLED chain, and determines the 
size of the largest dope vector. It scans 
the entry type 1 chain, and for each 
PROCEDURE block or BEGIN block it allocates 
storage for a DSA and compiles code to 
initialize the DSA. 

A two- word slot in the DSA is allocated 
for each ON condition in the block, and 
code is compiled to initialize the slot. 
Space for the addressing vector and 
workspace in the DSA is also allocated. 

Tvo words are allowed for tasking 
information in the DSA if the TASK option 
is on the external PROCEDURE of the 
compilation. 

The AUTOMATIC Chain is scanned and dope 
vectors are allocated for the items 
requiring them. Code is c<^piled to copy 
the skeleton dope vector, and to relocate 
the address in the dope vector. 

Where there is a block with its DSA in 
STATIC, dope vector initialization is not 
performed for the variables in the first 
region of the AUTOMATIC chain. Address 
slots in dope vectors for variables in the 
remainder of the chain are relocated. 

Storage is allocated for addressing 
temporaries type 2 and for addressing 
controlled variables, and for the 
parameters chained to the entry type 1. 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for double 
precision variables, single precision 
variables, half word binary variables, 
CHARACTER strings, and BIT strings, in that 
order. 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for 
arrays, relocating the virtual origin. For 
arrays of strings with the VARYING 
attribute, the secondary dope vector is 
also allocated and code is ccanpiled to 
initialize the secondary dope vector. 
Correctly alligned storage is allocated for 
structures. If a structure contains any 
arrays of strings with the VARYING 



attribute, the storage for the secondary 
dope vector is allocated at the end of the 
structure. 



A pointer is set up in the AUTOMATIC 
chain delimiter to the second file 
statement which has been created. 

The remaining regions of the AUTOMATIC 
chain are scanned and code is compiled to 
obtain a Variable Data Area (VDA) for each 
region. Code is compiled to copy the 
skeletons into the dope vectors and to 
relocate the addresses in the dope vectors. 
During this pass, any DEFINED items which 
are to be addressed directly have the 
storage offset and the storage class copied 
from the data item specified as the base 
identifier. 



Phase QF 



Phase QF, which constructs prologues, scans 
that text which is in pseudo-code form at 
this time with end-of-text block markers 
inserted. 

When a statement label pseudo-code item 
is found, it is analyzed and one of three 
things happens: 

1. The item is saved if it relates to a 
PROCEDURF statement 

2. The item is omitted if it relates to a 
BEGIN or ON block 

3. The item is passed if it relates to 
neither of the first two conditions 

When a BEGIN statement is found, a 
standard prologue of simple form is 
generated, and code is inserted from second 
file statements (if there are any) to get 
the DSA, either dynamically, or in the case 
of eligible bottom-level blocks, by using 
the supplementary LWS made available at 
initialization time. Code is also inserted 
to initialize the DSA and to allocate and 
initialize any VDAs. 

When a PROCEDURE statement is found, it 
is first determined whether it heads an ON 
block or a PROCEDURE block. If it is an ON 
block, a standard prologue (similar to that 
for a BEGIN block) is generated. If it is 
a PROCEDURE block, a specialized prologue 
is generated. This takes account of the 
manner of getting the DSA, the number of 
entry points, the number of entry labels on 
a given entry point, the number of 
parameters on each entry point, and whether 
the PROCEDURE is a function. 



Chapter 2: The Compiler Logical Phases 63 



Prologue code is generated for AUTOMATIC 
scbilar TASK, EVENT or AREA variables, in 
order to perfoann the initialization 
required when these variables are 
allocated. 



storage accumulator with the dope vector 
size. Phase JK generates code to increment 
the accumulator register by the size of the 
item. 



The code generated by the prologue 
construction phase is partly in pseudo-code 
and partly in machine code. The machine 
code (which is delimited by special 
pseudo-code iteons) has the same form as the 
code produced by the Register Allocation 
Phase (see Appendix D.7). 

DSA optimization is performed under 
certain conditions (see Appendix H). 

At the end of the prologue, the 
statement label item saved earlier is 
inserted to mark the- apparent entry point. 
Code is produced to effect linkage to BEGIN 
blocks in such a way that general register 
15 contains the address of the entry point, 
and general register lU contains the 
address of the byte beyond the BEGIN 
epilogue. 

At the end of the text, any text blocks 
that are not needed are freed, and control 
is passed to the next phase. 



If the item has no adjustable 
parameters, code is generated to increment 
the accumulator by the size calculated at 
compilation time. If this size is greater 
than 1,096, Phase JK generates a constant 
dictionary entry, which is used in this 
code. 



If the item has any arrays of varying 
strings, the size of the array string dope 
vector is added to a second accumulator 
register. Code is generated to add the two 
accumulators into the second one, which is 
a parameter to a library routine. A 
routine is then called which extracts the 
library call inserted by pseudo-code and 
places it in-line in the text. 



Code is inserted after the library call 
to initialize the dope vector in workspace 
to point to the allocated storage. Code is 
generated to transfer the dope vector from 
the workspace to the allocated storage. 



Phase QJ 



Phase QJ scans the text for ALLOCATE, FREE, 
and BUY statements. 

On finding an, ALLOCATE statement, a 
routine is called which does a 'look ahead* 
for initialization statements associated 
with the allocated variable, e.g., 
adjustable array bounds or adjustable 
string lengths, and places the text 
references of each statement in the 
dictionary entry associated with each 
statement. 

If the allocated item has a dope vector, 
code is generated to move the skeleton dope 
vector generated by Phase PH into a block 
of workspace in the DSA of the current 
block . 

Any adjustable bound expressions or 
string length expressions are then 
extracted from the text references, and the 
expressions are placed in-line in the text. 

Any information required from previous 
allocations (specified by ♦ in the ALLOCATE 
statement) is extracted from the previous 
allocation, and copied into the workspace. 

Code generated by Phase JK to initialize 
multipliers, etc., is extracted and placed 
in-line, after first loading the variable 



The code generated by phase JK to 
initialize arrays of varying strings, 
tasks, events, and areas is then inserted 
in the output stream. 



Any initial value statements associated 
with the ALLOCATE statement are extracted 
and placed in-line. The initialization 
statements are then skipped, and the scan 
continues. The last two steps are also 
performed for LOCATE (based variable) and 
ALLOCATE (based variable) statements. 
Action for a BUY statement is similar to an 
ALLOCATE Statement, with the following 
exceptions : 



1. Bound and string length code is 
in-line, bracketed between BUYS and 
BUY statements - there is therefore no 
look ahead 

2. There is no initial value code 
associated with temporaries 

3. A slot in the DSA is updated with the 
pointer to the allocated storage for a 
temporary 

The action on encountering a FREE 
statement is to generate code to load a 
parameter register with the pointer to the 
allocated storage for the FREE VDA Library 
call inserted by the pseudo-code. 
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Phase QD 



Phase QU scans the pseud o- code text in 
search of instructions which have 
misaligned operands. (A misaligned operand 
has the UNALIGNED attribute and is not 
aligned on the boundary appropriate to its 
data type). When such an instruction is 
found, QU inserts a move character (MVC) 
instruction in the pseudo-code text to move 
the operand to or from an aligned workspace 
area, and substitutes the address of this 
workspace for the operand address in the 
original instruction. If the address of a 
misaligned operand is loaded into a 
register, a note is made of that register. 
QU thereafter treats the instructions which 
refer to it as if they referred to the 
operand itself, by inserting a move 
character instruction, and substituting the 
workspace address for the reference in the 
instruction. 

In handling misaligned operands, phase 
QU uses storage beginning at offset 32 from 
register 9 for its workspace. 

Whenever a load address (LA) instruction 
is found which lies within the calling 
seguence of a library routine and which 
loads the address of a misaligned argument 
of that routine, an aligned workspace 
address is substituted in the instruction, 
and the requisite move character 
instruction is stacked. It is not inserted 
in the output text until the instruction is 
encountered that loads register 15 prior to 
the exit to the library routine, or in the 
case of EDIT-directed I/O routines, until 
the appropriate branch-and-link (BALR) 
instruction is encountered. The stacked 
move character instruction is inserted into 
the output before the exit to the routine 
if the argument in question is an input 
argument to the routine, and after the 
return from the routine if it is an output 
argument. 

Whenever a fixed binary temporary of 
precision < 16 is encountered in the text, 
the dictionary is checked to see if this is 
a member of an argument list (phase GP will 
have set bit). If it is, the instructions 
referring to it are altered to half word. 
The displacement in any Load Address 
referring to the temporary is incremented 
by 2. 

References to halfword binary items are 
replaced by halfword instructions where 
PL/I permits. Where possible and 
desirable, fullword instructions are used 
to perform calculations, and only LH/STH 
instructions used to access storage. 

Fullword conversion is inserted into the 
library calls marked by phases LS and NG. 



In handling halfword binary items, phase 
QU uses t» bytes, beginning at offset from 
register 9, for workspace. • 



Phase QX 



Phase QX is the 'AGGREGATE LENGTH TABLE' 
printing phase. It is entered only if the 
ATR (attribute list) or XREF (cross 
reference list) options are specified. It 
scans the STATIC, AUTOMATIC, CONTROLLED and 
COBOL chains, and, for each major structure 
or non- structured array that is found, an 
entry is printed in the AGGREGATE length 
table. 



An AGGREGATE LENGTH TABLE entry consists 
of the source program DECLARE statement 
number, the identifier and the length (in 
bytes) of the aggregate. In the case of a 
CONTROLLED non- BASED aggregate no entry is 
printed for the DECLARE statement, but an 
entry is printed for each ALLOCATE for the 
aggregate, the source program ALLOCATE 
statement number being printed in the 
'statement number* column. 

Where the length of an aggregate is not 
known at compilation the word "ADJUSTABLE" 
is printed in the 'length in bytes' column 
of the entry for that aggregate. If an 
aggregate is dynamically defined, the word 
"DEFINED" appears in that column. An entry 
for a COBOL mapped structure (i.e., a 
structure which a COBOL record is read into 
or written from) , has the word " (COBOL) " 
appended, but such an entry will appear 
only if the structure does not consist 
entirely of one of the following: 

• doubleword data 

• fullword data 

• halfword binary data 

• character string data 

• aligned bit string data 

• a mixture of character string and 
aligned bit string data 

If a COBOL entry does appear, it is 
additional to the entry for the PL/I mapped 
version of the structure. 

Before printing begins the aggregate 
length table entries are sorted so that the 
identifiers appear in collating sequence 
order. 
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THE REGISTER ALLOCATION LOGICA.L PHASE 



The purpose of the Register Allocation 
Phase is to insert into the text the 
appropriate addressing mechanisms for all 
types of storage, and to allocate physical 
general registers where symbolic registers 
are specified or reguired as base 
registers. 

This phase comprises two physical 
phases, each with a specific function. The 
first. Phase RA, processes the addressing 
mechanisms, while the second phase. Phase 
RP, allocates the physical registers. 

An additional phase RD is called in 
between RA and RF when the optimization 
option is 2 or greater. This phase 
attempts to optimize the storing and 
loading of registers in use over compiler 
generated branches. 



Phase RA {RB,RC) 



Phase RA scans the text for dictionary 
references, the beginninas and ends of 
PROCEDURE and BEGIN blocks, and the 
starting points of the original PL/I 
statements. 

A dictionary reference, when found, is 
decoded into a word-aligned dictionary 
address and a code. These are used to 
deteririne what is being referenced. The 
corresponding object time address as an 
offset and base is then calculated. 

If the address required has an offset 
less than 4,096 and a base which is either 
an AUTOMATIC or STATIC data pointer, no 
extra instructions are generated. If this 
is not so, extra instructions are inserted 
in the text stream to calculate the 
reguired address. The calculation of this 
address is broken down into logical steps 
in a 'step table.' On completion, the table 
is scanned backwards to determine whether 
an intermediate result has been previously 
calculated. The steps which have not been 
previously calculated are then assembled 
into the pseudo-code. 

The compiled code is added either to the 
output stream or to a separate file. The 
code in the separate file is terminated by 
a store instruction to save the calculated 
address. The extra "insertion file" is 
placed in the prologue of the relevant 
block by the next phase. Instructions are 
stored in-line if the referenced item is 
CONTROLLED, if it is a parameter, if fewer 
instructions are required to recalculate 
the base rather than load the stored 



address, or if the reference itself is in 
the prologue. 



If no addressing code is generated, a 
special item is put in text to tell phase 
RF what base to use. 



All relevant information for PROCEDURE 
and BEGIN blocks is stacked and unstacked 
at the start and end of the blocks 
respectively. 



At the start of PL/I statements, code is 
compiled to keep the required PREFIX ON 
slots in the Dynamic Storage Area updated. 
On meeting the pseudo-code error marker, 
the calling sequence to the library error 
package is generated, and the error marker 
removed . 



If the STMT option has been specified, 
code is generated at the start of each PL/I 
statement to keep the statement number slot 
in the current DSA up to date. 



Phase RD 



Phase RD examines all EQUs and determines 
their uses. A table is set up in scratch 
text blocks containing a four- byte slot for 
each EQU. The ntamber of text blocks 
required is calculated from the value in 
the 2MAXEQ field in the ' communications 
region. The first text block, containing 
the slots for the first N-4 EQU values 
(where N = text block size) , is locked into 
main storage so that these slots can be 
accessed by direct addressing. 

The other slots are accessed via their 
text references, and their text blocks are 
brought into storage as needed, by the 
compiler control routines. A dictionary of 
text block numbers f or . each range of EQU 
values is kept in the phase. This allows 
for a maximum of 6U text blocks, i.e., 
under the smallest SIZE parameter a maximum 
of 16K EQU values are allowed. 

The table is built up during a pass of 
the program text. At the end of the text 
pass the table is scanned. Any EQU which 
is not used is deleted. Any EQU which is 
either before the first use or used more 
than once is flagged by setting the first 
bit of the EQU value on. During this scan 
of the table, the current table text block 
is locked into storage and released when 
the scan is completed for the block. 
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I Phase RF (RG.RH) 



Phase RF scans the text for register 
occurrences, implicit and explicit, and the 
start and end of PROCEDURE and BEGIN 
blocks. At the beginning of PROCEDURE amd 
BEGIN blocks all relevant information is 
stacked, and is later unstacked at the 
corresponding end. 

Registers are classified as assigned, 
symbolic, or base. 

Assigned registers require the 
explicitly mentioned register to be used. 
If that register is not free it is stored. 
Symbolic registers may occupy any register 
in the range 1 through 8. An even-odd pair 
may be requested. Base registers may 
occupy any of registers 1 through 8. 

When a register is requested, a table of 
the contents of registers is scann&d, to 
determine whether the register already has 
the required value. If it does, that is 
used. If it does not, and it is not an 
assigned register, a search is made for a 
free register and this is allocated if one 
is found. Should no register be free, a 
look-ahead is performed to determine which 
register it is most profitable to free. 

If a register contains a base it need 
not be stored on freeing. If a register 
contains a symbolic or assigned register, 
it may require to be stored when freed, 
depending upon whether it has had its value 
altered since any storage associated with 
it was last referenced. 

At a BALR (Branch and Link) instruction 
it is ensured that all the necessary 
parameter registers are in physical 
registers, and not in storage. 

No flow trace is carried out by the 
compiler. Therefore, the register status 
is made zero at branch- in and branch-out 
points. An exception is at a conditional 
branch. Here the registers are not freed 
after having been saved. 

Any coded addressing instructions are 
expanded when found in-line. At a specific 
"insertion point" in a prologue, any 
addressing instructions in the "insertion 
file" are brought in and expanded. 



of machine operation codes for pseudo-code 
operations, and the replacement of PL/I and 
compiler inserted symbolic labels by offset 
values. 

Loader text is generated for program 
instructions, DECLARE control blocks, and 
OPEN file control blocks, initial values 
defined in the source program, parameter 
lists, skeleton dope vectors, symbol 
tables, etc. ESD and RLD cards are 
generated for external names and 
pseudo- registers. An object listing of the 
code generated by the compiler is produced 
if the option has been specified by the 
source programmer. 



Phase TF 



Phase TF scans the text, assigns offsets to 
compiler and statement labels, and 
determines the code required for 
instructions which reference labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
A location counter of machine instructions 
is also maintained. 



Phase TJ 



Phase TJ scans the text until no further 
optimization can be achieved in the final 
assembly. 

A location counter is maintained for 
assembled code, and offsets are assigned to 
labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
The amount of code required for 
instructions to reference labels is also 
determined, while attempting to reduce this 
from the amount estimated by the first 
assembly pass. 

This phase also attempts to reduce the 
number of Move (MVC) instructions by 
searching for consecutive MVC instructions 
which refer to contiguous locations. 



THE FINAL ASSEMBLY LOGICAL PHASE 



Phase TO (TQ) 



The Final Assembly Phase converts the 
pseudo-code output of the register 
allocation phase into machine code, the 
principal functions being the substitution 



Phase TO sets the four byte slot ZPRNAM, in 
the communication region, to contain the 
first four characters of the first entry 
label of the external, procedure, for the 
purpose of object deck serialization. 
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Phase TO also produces ESD cards for the 
compiled program. It first makes up six 
standard entries for: 



1. Program Control Section (CSECT) (SD 
type) allowing room for the compiler 
subroutines if these eu:e present. 



2. STATIC internal CSECT (SD type) 



3. Invocation count (PR type) 



U. Entry points to library routines, 
IHESADA and IHESADB (ER type) 



5. IHEQERR (PR) 



6. IHEQTIC (PR) 

If the external procedure has the MAIN 
option, an entry for a one-word CSECT (SD 
type) is rOlade up. An entry is made for the 
CSECT IH entry and entries are made up for 
all entry labels in the external procedure 
(LD type) . 

The entry type 1 chain is scanned and an 
entry (PR type) is made up for each block 
and procedure. 

The external section of the STATIC chain 
is scanned and entries are made up for; 

1. Built-in functions and library 
functions (ER type) 

2. Files (ER type) 

3. STATIC external variables (SD type) 

*». External entry names (ER type) 

5. Programmer ON condition names (SD 
type) 

The CONTROLLED chain is scanned and an 
entry is made up for each CONTROLLED 
variable and task name (PR type). 

The size of the program control section 
is incremented to include the compiler 
subroutines. 

All STATIC DSAs are put into the STATIC 
INTERNAL control section, their combined 
sizes being allowed for when the size of 
the CSECT is calculated. 

Module TQ is used to produce a list of 
library conversion routines required for 
execution of the program. ER type entries 
are made up for each name in the list. 



Phase TT 



Phase TT scans the text and maintains a 
location counter for assembled code. 

Loader text (TXT) and relocation 
directoiry (RLD) cards for requested 
combinations of load and punch files are 
generated. 

Nested procedures are unnested at object 
time by suitable manipulation of the 
location counter. The offset of each 
procedure from the start of text is left in 
the PROCEDURE entry type 1. 

Compiler labels are numbered for use by 
the object listing phase, and trace 
information is set up at entry points. 
Phase TT also generates the text for the 
compiler subroutines. These siiibroutines 
are put out in one of the following 
combinations i 

1. EPILOGUE subroutine 
DYNAMIC PROLOGUE subroutine 
STATIC PROLOGUE subroutine 

2. EPILOGUE subroutine 
DYNAMIC PROLOGUE subroutine 

3. EPILOGUE subroutine 
STATIC PROLOGUE subroutine 



Phase UA 



Phase UA generates text for the static 
internal CSECT; initializes a CSECT for 
each static external variable; and, 
optionally (if the LIST option is present), 
lists all the text produced for the static 
internal CSECT and provides suitable 
comments. 

The phase first scans to the start of 
the external section of the STATIC chain, 
generating text for entry labels, label 
constants, compiler labels, file 
attributes, label variable BCDs, and DEDs 
for temporaries. Simple variables found on 
this scan are used, together with the 
labels, to mark the start of the character 
string section of the chain. 

The phase then scans to the end of the 
external section of the chain, initializing 
address constants for external variables, 
external entry names, built-in and library 
functions, programmer-defined ON-condition 
names, external files, and label constants. 
Text is ma«3e up for the constants pool. 

The third scan of the STATIC chain 
starts at the point left by the previous 
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scan, and generates text for dope vector 
skeletons, argument lists, RDVs and DVDs, 
and symbol tables. The scan is terminated 
at the end of the chain. 

Phase UA makes up RU) cards for the 
address slots for STATIC DSA's and for the 
address slot of the start of the epilogue 
subroutine, if generated. 

Text cards are output to initialize all 
AREVs, EVENT'S, and TASK'S. Arrays of 
AREA'S, will have a text card for each 
element. 



The phase then executes its final scan, 
which extends over the external section of 
the chain, to initialize a CSECT for each 
external variable or external file. 

Finally, any incomplete text and RLD 
cards are punched out, and an END card is 
produced for the compiled program. If the 
06JNM parameter is present for batch 
compilation, phase UD punches a NAME card 
to follow the END card. 



Phase UP (UH) 



Phase UD 



Phase UD generates RLD and TXT cards to set 
up dope vectors at link- edit and load time. 

TXT cards are generated for each STATIC 
DSA, containing its length, which is found 
in the STATIC DSA entry. 

TXT and RLD cards are generated to set 
up the dope vectors for structured items 
imd any non-structured items appearing in 
the AUTOMATIC chains. The TXT cards are 
derived frcxn the skeleton dope vector 
entries. The RLD cards are generated for 
each virtual origin slot. 

When the last STATIC DSA has been 
processed control is released from phase 
UD. 



Phase UE 



Phase UE initializes those items on the 
STATIC chain not processed by Phase UA. 

The phase first scans to the start of 
the external section of the chain, making 
up text for simple data, and listing label 
variables. 

The second scan starts at the head of 
the character string section of the chain, 
and initializes dope vectors for all static 
internal variables which need them. 

The third scan corresponds in extent to 
the third scan in Phase UA, but generates 
text for arrays, and simple and interleaved 
structures. At the end of this scan, a * 
test is made to determine whether the 
external procedure of the program has the 
r^AIN option. If so, a one-word CSECT 
(IHEMAIN) is made up, to contain the 
address of the principal entry point to the 
compilation. 



Phase UF scans the text, and lists, in 
assembly language format, machine 
instructions compiled for the source 
program. It inserts comments in the 
listing for statement numbers, statement 
labels, entry points, prologues, and 
procedure bases. 

Phase UF contains module UH which 
generates NAME frc»n a dictionary reference. 
UF also lists the text for the compiler 
subroutine. This is done t^ releasing UH 
and loading module UI which performs this 
function. Upon termination of this phase 
module Ul passes control to phase XA. 



THE ERROR EDITOR LOGICAL PHASE 



The Error Editor Phase is entered at the 
end of all compilations. The first phase. 
Phase XA, examines the dictionary and 
determines whether th^re are any messages 
to be printed out. If there are none, this 
phase terminates the compilation. If there 
are diagnostic messages to be printed out, 
phase XB is loaded euid the third section of 
the phase directory is completed. Phase XC 
is then loaded and this together with phase 
XA causes further modules (XF, and blocks 
XG to YY) to be loaded^ which process the 
error dictionary ^itries and print out the 
appropriate messages. 



Phase XA 



Phase XA examines the heads of the error 
chains in the first dictionary block, and 
the programmer options which specify the 
severity level of messages required. If 
there are no diagnostic messages to be 
printed, this phase prints out a completion 
message and completes the compilation. If 
diagnostic messages are required, the phase 
loads module XB which completes the phase 
directory for Compiler Control. Phase XB 
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is then released and phase XC and the 
message address block XF are loaded. 

The error editor then scans down the 
error message chains and marks each error 
dictionary entry with an indication of 
where the associated message is to be 
found. This information is obtained from a 
table in module XF. 

The text of all error messages is kept 
in modules XG through YX . The messages are 
ordered, by severity, within these modules. 
Module XA will have listed those modules 
which contain messages required for a 
particular ccxnpilation. Module XC loads 
and releases these modules, one at a time, 
and extracts the required messages. Having 
loaded a particular module, the phase scans 
down the associated error message chain in 
the dictionary for error entries associated 



with the module. It accesses the error 
message text and scans it. 

The message to be printed is built up in 
a print buffer in internal compiler code. 
This involves a translation from EBCDIC 
mode, which is used for the message text 
skeleton. The message is completed by the 
insertion of a statement number, an 
identifier, or a numeric value as specified 
by the message dictionary entry. The 
message is segmented, where necessary, to 
avoid spilling over a print line, 
translated to external code, and finally 
printed out. 

When all error message dictionary 
entries have been processed, module XB 
returns control to phase XA, which passes 
control to module AA for termination of the 
compilation . 
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CHAPTER 3; FLOWCHARTS. TABLES, AND ROUTINE DIRECTORIES 



No-te; For descriptions of terms and 
abbreviations used in the text during a 
c<^pilation which are mentioned in this 
chapter, refer to Appendix D.ll. 

This chapter provides a complete guide 
to the compiler logic, in the form of 
flowcharts and associated tables and 
routine directories, arranged in phase 
order . 



Flowcharts 

The flowcharts are presented at three 
levels of detail — overall, logical phase, 
and physical phase. The overall compiler 
flowchart (Chart 00) points to the logical 
I phase flowcharts (Charts 01 through 11) , 
each of which appears at the head of the 
set of physical phase flowcharts to which 
it points. The physical phase flowcharts 
point (by means of identifiers placed next 
to the blocks) to the various routines 
used. Entry points to physical phases are 
labeled. 

Where transfer is effected between 
modules within a physical phase, the entry 
label into the entered module is shown as 
follows: 

1. Where the means of transfer is a 
transfer vector, an asterisk is shown 
as the label on the flcMchart, and a 
note at the foot of the chart states 
that the transfer vector table is 
located at the start of the module. 

2. When transfer is made frcan a decision 
block, the block representing the entry 
is labeled. 

With the exception of ■fall-through* 
branches, all branches from decision blocks 
are labeled where possible. Where the 
branch is actually a branch table, this 
fact is indicated on the chart, and the 
label of the branch table is given. 



In scHne cases, additional labels have 
been given, to assist in following the 
program flow. 



Tables and Routine Directories 



For each physical phase, a table is 
provided, which lists the operations 
performed and identifies the routines and 
subroutines involved. Where applicable, a 
routine directory follows the table. This 
provides an alphanumerically arranged list 
of the routines and subroutines contained 
in the phase, and states their function. 

In some cases, a physical phase 
comprises more than one module; this means 
that routines contained in different 
modules may be listed together in one 
routine directory. To assist in 
cross-reference to the compiler listings, 
the following convention has been adopted: 
if a routine is contained in a module whose 
label is not identical to that of the phase 
under discussion, the label of the 
containing module is inserted in 
parentheses after the routine name in the 
directory. 

In the case of a phase sharing a routine 
contained in another phase, the label of 
the containing module is indicated in 
parentheses after the routine name in the 
"Subroutines Used" column. The routine 
will not then appear in the routine 
directory for the phase under discussion, 
but will be found in the routine directory 
for the containing phase. 



Chart and Table Identification 

Identification of tcJales and physical 
phase flowcharts is based on the phase 
label. 



chapter 3: Flowcharts, Tables, and Routine Directories 71 



• Chart. 00. Overall Compiler Flowchart 



» * 

► ttlTRY * 

» 4 

»*»*»♦♦»♦»»♦♦♦♦ 



>* COMPILER » 
* CONTROL * 
♦INITIALIZATION * 



COMPILER CONTROL PERFORMS IllITIALIZRTIOii, 
OVERSEES PHASE LOADING, RESOLVES SYMEOLIC 
TEXT AND DICTIONARY RtFERENCES AND CO.ITKOLS 
ALL INTERFACES BETWEEN THE COMPILER AND 
THE OPERATING SYSTEM. 



•-*-*-*-*-*-*-*-* 



THE COMPILE-TIME PRE-PROCESSOR ACCEPTS INPLT CO;n'AINING 
THE COMPILE TIME STATEMEOTS OF PL/I A.ID 
PRESENTS THE COMPILER WITH THE SOURCE TEXT 
RES0LTIt«3 PROM EXECUTION OF THESE STATEhE.iTS. 



t **************** 



****D1*** ****** 
• * 

» RETURN * 

> * 

*************** 



*****D2*** ******* 

* * 

* EXECUTE FORTY * 
*EIGIfr CHARACTER* 
*PRE-PROCESSOR * 

* * 
***************** 



*****£2* ********* 



♦ READ-IN * 

* * 
***************** 



*-*-•-*-•-*- 



* DICTIONARY ♦ 

* * 
***************** 



THE FORTY EIGHT CHARACTER SET PREPROCESSOR 
ACCEPTS SOURCE PROGRAMS WRITTEN IN THE FORTY 
EIGHT CHARACTER SYWTAX OF PL/I ANL CONVtRTS THEM 
INTO SIXTY CHARACTER SYNTAX. 



CHARACTERS AND LEAVES CERTAIN CHAINS IN THE 
PROCESSED TEXT TO AID LATER PHASES. 



THE DICTIONARY LOGICAL PHASE CONSTRUCTS THE 
DICTIONARY OF IDENTIFIERS FROM INFORMATION IN 
DECLARE STATEMENTS AND FROM CONTEXT, IT ALSO 
REPLACES BCD IDENTIFIERS IN THE TEXT BY REFERENCES 
TO THE DICTIONARY. 



***G1*********** 
PRINT OUT 
♦ATTRIBOTE AND * 
CROSS REFERENCE <- 
* TABLE * 

**************** 



*****K1* ********* 

* 07* 
*-*-*-*-*-*-*-•-* 

* *< 

* OPTIMIZATION * 

* * 
***************** 



*****H2*** ******* 

* OU* 

*-*-*-*-*-*-*-*-• 

* * 
*PRE-TRANSLATOR * 

* * 
***************** 



*-*-•-*-*-*-•-•-* 

* * 

* TRANSLATOR * 

* * 
***************** 



* AGGREGATES • 

* « 

***************** 



VARIABLES WHERE PARAMETERS DO NOT HATCH THEIR 
CORRESPONDING ARGUMENTS, CONVERTING ARRAY AND 
STRUCTURE ASSIGNMENTS TO DO LOOPS, AND REMOVING 
ISUB EXPRESSIONS. 



THE TRANSLATOR LOGICAL PHASE CONVERTS THE 
PL/I SOURCE TEXT TO A COMPUTER-ORIENTED FORM 
CALLED 'TRIPLES'. GENERIC SELECTION IS ALSO 
CARRIED OUT. 



THE AGGREGATES LOGICAL PHASE MAPS ALL 
STRUCTURES AND ARRAYS TO ALIGN ELEMENTS 
OH CORRECT STORAGE BOUNDARIES. PSEUDO-CODE 
IS PRODUCED TO CARRY OUT INITIALIZATION AT 
OBJECT TIME. 



***** 
*00 * 
* A2* 

* * 
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Chart 00. Overall Compiler Flowchart (cont'd) 



****hi*** ****** 
» * 

* 0OA2 * 

» 4 

*************** 



NO .♦ ♦. 

♦. ATR OPTION .♦<- 

♦ . .♦ 



***C1*********** 

• PRINT COT • 
AGGREGATE 
• LENGTH TABLE • 

***•**•*•••***** 



**«**A2** ******** 

* 08* 
*- *- *-*-*- *- *- *- * 

->♦ PSEODO-CODE ♦ 

* LOGICAL PHASE * 

* * 
***************** 



*****B2********** 

* 09* 
*-*-*-*-*-•-*-*-* 

-* STORAGE * 

* ALLOCATION * 

* LOGICAL PHASE * 
***************** 



*****D1*** ******* 

* 10* 
*.*.*.*.*.*.*.*-* 

* REGISTER *- 

* ALLOCATION * 

* LC^ICAL PHASE • 

***************** 



*****Q2*********"« 

* 11* 

*- *- *- *- *- *- *- *- * 
->*FINAL ASSEMBLY * 

* LOGICAL PHASE * 

* * 
***************** 



NO .* IS LIST *. 

♦. OPTION ON . 

*. .* 



***F2** ********* 



* PRODUCE 
OBJECT LISTING 



**************** 



THE PSEUDO-CODE LOGICAL PHASE PERFORMS MANY 
PASSES OVER THE TEXT. EACH PASS CONVERTS SOME 
OF THE TEXT CONTEXT TO A FORM ALLIED TO 
ASSEMBLY LANGUASB, CALLED PSEUDO-CODE. 



THE STORAGE ALLOCATION LOGICAL PHASE SCANS THE 
DICTIONARY AND ALLOCATES OBJECT TINE STORAGE FOR 
ALL IDENTIFIERS, TEMPORARIES AND ADMINISTRATIVE 
REGIONS. PROLOGUES ARE CONSTRUCTED. 



THE REGISTER ALLOCATION LOGICAL PHASE PERFORMS AN 
ANALYSIS OF OBJECT TIME ADDRESSIBILITY AND ALLOCATES 
PHYSICAL REGISTERS IN PLACE OF SYMBOLIC ONES. 



THE FINAL ASSEMBLY LOGICAL PHASE ESTABLISHES 
OBJECT TIME BRANCH ADDRESSES AND COMPLETES 
TRANSLATION TO MACHINE CODE. LOADER TEXT IS 
PRODUCED. 



.*. 



NO .* ANY *. 
*. DIAGNOSTICS .* 



.* 
. .* 
* YES 



***H2*********** 

* PRINT OUT * 
DIAGNOSTIC 
* MESSAGES * 

**************** 



J2 ♦. 

.* ANY ♦. 
.* MORE *. YES 

*. COMPILATIONS .* , 

*. IN THIS .* 
*. BATCH.* 

*. .* » 




> NO ***** 

♦ 00 * 

* A2* 

* * 
* 


♦***K2* 
* RETUl 
♦CALLING 


»*****•* 
RN TO ♦ 
PROGRAM* 



******••**•**** 
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• Chart AA. Resident Control Phase Logic Diagram (Modules AA through AM, and JZ) 



* asTKi rtm * 

*CALLZII6 PROGRMI*- 

« • 



n 



••***B1********** 



* RELEASE TOat * 



•«***•****•***••• 



HO .* IF THIS A *. YES 

*. BATCB JOB .♦ 

♦ . .♦ 



• LOAD * 
~>*IHITIALI£ATION *- 

• PHASE lEMAB • 

• • 



.* EXTENDED *. NO 

. DICTIONARY .* 

•.RBQOIRED .* 



OPHFILES 

* OPEN SYSIN, * 



» • 

» C3 • 



• * 
<-♦ B2 « 

• * 
MO**** 



r'aiBU-Xl. SI9UXJ •- 

*GBT STORAGE {TC* 



**•*«*•*••*••**•• 



*****B3** ******** 

* • 

* * 
->* LOAD lEHAN *- 

* * 

•*•****•****•**«• 

*•** 

* * 

* C3 * — 1 



» uj '——1 



.* IS SAME *. YES 
— >*.TXPB OF DICT..* — 
*. REQUIRED . 



*••• 
» « 
» B2 • 
» * 

**•• 



r — >* LOAD IBHAC 



1 



**«**C3********** 

* • 

* * 

* LOAD IDIAL * 

* * 

* * 
***•***•**•*•*•** 



*•*• 

* * 

* Bl» * 

* * 
•*** 



• ••* 

* « 
» Dl « 

» « 
**** 



**••*******•***•* 



**** 

* * 

* E2 ♦ 

* * 
**** 

I 

***E2*********** 



•***•****••**•*** 

***« 

* • 

* Fl * — 1 

* * 1 
*«** V 

.*. 

Fl ♦. 

.*'l 

*. 



.*. 
Gl *. 



**************** 



* * 

* RELEASE * 
->*INITIALIZATION *- 

• PHASE lEHAB * 

• * 
***************** 



*****F2********** 

* * 

* EXECOTE lEHAC * 
->*T0 OPEN SYS0T3 * 

* FOR INPUT * 

* * 
***************** 



*****62********** 

* * 

* EXECOTE IEMA6 * 
->* TO TIDY OP *- 

* AFTER READ-IN * 

* * 
****••*•*••**•*** 



* BUILD FIRST • 
->* HALF OF PHASE *- 

* DIRECTORY * 

* • 
*•******•*•••*•** 

• **• 

* * 

* B« *~ 



*LOAD lEMAF AND 
->*PROCESS OPTIONS 
• LIST 



• * J 

**** V 



• *** 

* * 

♦ E2 •<-, 

• • I 

*•** I 



• *** 

* * 

* Bt * 

* • 

• *** 



*****C<t ********** 

* * 

* * 

* OPEN SYSPUNCH •- 

* * 

* * 
•***•*******•*•** 



* * 

* Dl * 

* * 
• •** 



* LOAD lEHAH TO * 
->* NARK LATER *- 

* PHASES * 

* • 
***************** 



NOTE: 

lENXX IS ANY ONE 
OF THE PHYSICAL 
PHASES DESCRIBED 
IN THE FOLLOWING 
CHARTS 



***• 

* * 

* E5 ♦ 

* * 
**** 



*****t;5********** 



***************** 



*****F5* **•**•**• 

*IEHXX * 

*-*-*-*-*-*-*-*-* 

-*CALL A COMPILER* 

* PHASE * 

* * 
***************** 



*****QI|«t •******• 

* * 

->* RELEASE lEHAC * 

* * 

* • 
•****•*****•**•*• 



.*. 

HI ♦. 

• • ♦• 



*****H2********** 

* EXECOTE lEMFl * 

* TO SEE IF * 
•>* SYNTAX CHECK •• 

*SBOULD TERMIN- * 
*ATE COMPILATION* 
***************** 



>• E5 * 



.♦. 

Jl *. 
.*EMD OF *. 
.*FIRST HALF *. YES 
*. PHASE LIST .* 



*. 



,* 






NO 



J3 *. 
.* HAS *. 
.*THERE BEEN 
. A TERMINAL 
ERROR . 



ZEND 

*****Jlt********** 

• CLOSE DATA * 

SETS, TIDYUP 



•••***•**•**•*••* 



• . 



*. 



->*PICKUP SEVERITY* 
* CODE * 



***************** 



*****JS********** 

* CLOSE SYSUTl • 

* SCAN BATCB * 
DELIMIIER * 

* RECORD FOR * 

* SYNrAX ERRORS • 
***************** 



->* 



•****K2********** 

* LOAD CLOSING * 

* MODULE AK * 
->*UPDATE SEVERITY*- 

*CODE FOR BATCH * 

* * 
***************** 



.* ANY MORE * 
->*. COMPILATIONS 
*.IN BATCB •* 



*****K<I********** 

* * 

* * 

* RELEASE AK •- 

* * 

* * 
***************** 



****K5********* 

* RETURN TO * 
->• CALLING PROGRAM* 

* • 
*************** 



**•• 

* « 

* Btt * 

* * 
*«•* 
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►Chart AT. Phase AT Overall Logic Diagram 



• *«* A^ ********* 
•ENTRY FROM RDCD* 

* IN AB *- 

* • 
*************** 



A2 ♦. 
.♦ ♦. 
.* IS THIS h *. NO 

->*. TRACE CONTROL.* 

♦ . CARD . * 



1r****^2********** 

* CONSTRUCT A ♦ 

* CONTROL TABLE * 
-*ENTRX. READ THE* 

* NEXT CARD * 

* * 
***************** 



A3 *. 
.♦ARE *. 
.* PHASES *. NO 

->*. LOADED BEFORE.* 

♦. AT IN- .* 
*VOLVED.* 
*. . * 
* YES 



CNTRL V 

•*««*B3 •**«****** 

* CARRY OUT ANY * 

* REP OR VERIFY * 

* REQUESTS IN *• 

* THEM • 



***************** 



*****BU********** 

♦ INSERT ANY • 

* TRACE MARKERS * 
->*IF REQUESTED IN*- 

• THEM • 

* * 
***************** 



•••*BS ********* 
•RETURN TO RDCO • 
->* IN AB » 

• * 



****C1*** ****** 

* ENTRY FROM * 

* PHASE LOADING * 
» ROUTINE IN AA * 

*************** 



. NO 
LOAD 

C2 ♦. 

.•WAS REP^. 
.* OR VERIFY * 

>•. REQUESTED IN 

♦. THIS .« 
•.PHASE.* 



PATCLOAD 

•••••C3** ••**•••• 
•REP AND VERIfY • 

♦ AND PRINT ♦ 
>• MESSAGES IF •- 

• NECESSARY * 

* * 
***************** 



CH *. 
•• IS A *. 
. * TRACE 
->*. WANTED IN 
*. THIS 
•.PHASE.* 
♦ . . • 

YES 



TRACLOAD 9 
*****D(I 



• INSERT THE • 

* START OR END *• 

• TRACE MARKERS • 

* * 
***************** 



****DS* ******** 

* RETURN TO * 
->*LOADING ROUTINE* 

• IN AA * 

*****•*•*•*•**• 



••••£!••••*•••• 

• ENTRY FROM * 
•PHASE DELETING 4 

* ROOTINE IN AA * 
****•*••«•***** 



TRACRELS 

^0**mB2********** 



* UPDATE TRACE 
->^CONTROL TABLES 



•***£3********* 

• RETURN TO * 
-> •DELETE ROUTINE * 

• IN AA ♦ 
*************** 



***************** 



***«pi********* 

* ENTRY FROM * 

* INTBRRDPT • 

* BAMOLBR IN AA • 
••••••••••*•••* 



TRACEIT . • . 

F2 •. 
.•IS THIS^. 
.•A START OR 

>•. END TRACE 

•. MARKER . 
• . .• 
•. . * 
NO 



****G2**^^^^*^^ 

* RETURN TO * 
» INTERRUPT 4 

* HANDLER IN AA * 
*************** 



.♦ . 
F3 ♦. 
.* * . 
•• IS IT A *. NO 

->•. START TRACE .• 

•. MARKER .• 
• . . • 
♦ . •• 
• YES 



G3 



. • * . 
.* IS THE •. NO 

•.STMTFLG FLAG .• 

•. SET •• 
• . •• 
• . .* 
• YES . 



***««|]3*******«*« 
•RESTORE OPCOie.^ 

• OVBRHIRTE • 
•PREVIOUS OPCODE^ 

• WITH START • 

• TRACE MARKER • 
••••«•*******•••• 



*****J3********** 



•SET OFF STMTFLG^ 
♦ FLAG •- 



***************** 



*****Fi| ********** 

* REMOVE END • 

• TRACE MARKERS • 
->• AND INSERT •- 

• START TRACE • 

* MARKERS • 
***************** 



GU 



♦ . 



.•IS TRACE TO^. NO 
->♦. START YET .• 

• . .• 

• . .• 
• . . * 
YES 



*«***!] I|********** 
*PRINT HEADINGS • 

• CHANGE RETURN • 
•ADDRESS IN PSW • 
•IN PIE TO THAT • 

• OF TRACE RTN • 
***************** 



****jil ********* 

• GO VIA ♦ 

• SUPERVISOR TO • 

• TRACE ROUTINE • 
********••*•*** 



****F5********* 
•RETURN CONTROL * 
->^VIA SUPERVISOR * 
* TO PHASE * 

*************** 



*****gg********** 

•RESTORE OPCODE.* 

•OVBIWRirE NEXT * 

->• OPCODE HIIU * 

* START TRACE * 

* MARKER * 
***************** 



*****(]5*****«**** 



•SET ON STMTFLG 
• FLAG 



***************** 



****JS********* 
•RETURN CONTROL « 
— >*VIA SUPERVISOR < 
* TO PHASE • 

***•***•**•**** 



***«]U,********* 
•ENTRY TO TRACE • 

• ROUTINE • 

* * 
*************** 



TRACE V 

*^*^*ji2********** 
•PUT INSTRUCTION^ 
•AND ITS ADDRESS^ 
>• INTO TRACE •- 

• PRINT LINE • 

* * 
***••••••***••••• 



*****{(3** ******** 

•EXECUTE INSTRN.* 

•PUT CC. CHANGED^ 

->• REGISTERS AID •- 

• STORAGE INTO • 

• LINE • 
***************** 



***1H^m********** 



* PRINT TRACE 
LINE 



*••*•**•••••••** 



•****K5* ********* 



GET NEXT 
INSTRUCriON 



«***«**•********• 



EXIT FROM THE ABOVE LOOP MILL OCCUR WHEN A PRIVILEGED OPERATION 
INTERRUPT OCCURS ON ENCOUNTERING AN END TRACE MARKER IN THE 
CODE BEING TRACED. 
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Table AA. Module AA Compiler Control Resident Control Phase 

I T T 

Main Processing 
Statement or Operation Type 

Initializes the compiler 



— 1 



Parameters passed ; General register 1 points at 



the passed parameters 

Entry to the operating system ; GETMAIN(R), 



TIME, LINK, SPIE 

Deletes a list of loaded phases 



Parameters passed ; PARI — address of list of 



phases to be deleted 

Entry to the operating system : DELETE 



Deletes a list of loaded phases and passes 
control to either the next requested phase or 
the next named phase 

Parameters passed ; PARI — address of list of 



phases to be deleted; PAR2 — address of name 

of phase to which control is to be given, or 

zero 

Parameters returned ; PARI — load point of new 



phase 

Entry to the operating system ; DELETE, 



LOAD(EPLOC), LOAD(DE), LINK 

Loads the required phase and returns control to 
the caller. The phase may be loaded again 

Parameters passed ; PARI — address of name of 



phase to be loaded 

Parameters returned; PARI — load point of 



phase 

Entry to the operating system ; LOAD(DE) 



Routine 






ZINIT 



RELESE 



RLSCTL 



Routine Called 



LOADW, ABORT 



ZUERR, ABORT 



Module AD if inter- 
phase dumping is req- 
uired; Module AE if it 
is end of Read- In 
Phase; ZUERR, ABORT 



•H 



LOADX 



ZUERR, ABORT 



■H 



Marks phases as 'wanted' and 'not wanted* 
Parameters passed ; PARI — address of 



REQEST 



ZUERR, ABORT 



list of phase names to be marked • wanted;* 
PAR2 — address of list of phase names to be 
marked 'not wanted* 
Entry to the operating system ; None 



Puts a record out to SYSLIN 

Parameters passed ; PARI — address of output 






ZULF 



LFERRX 



record 

Entry to the operating system ; PUT LOCATE (QSA14) 



Puts a record out to SYSPUNCH 

Parameters passed ; PARI — address of output 



+ 

ZUSP 



SPERRX 



record 

Entry to the operating system ; PUT LOCATE (QS AM) 
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Table AA. Module AA Compiler Control Resident Control Phase (cont'd) 



Statement or Operation Type 



T T 

Main Processing 
Routine 



Routine Called 



-^ 



Deletes currently loaded phases and passes 
control to the Error Editor 

Entry to the operating system ; LOAD(EPLC)C) if 
dump option specified 



Z ABORT, ABORT 



Module AD if dump op- 
tion specified; RLSCTL 



-^ 



Picks up completion code and returns control to 
the program that called compiler 

Entry to the operating system ; TIME, FREEMAIN, 



ZEND 



DELETE 

Handles all program checks 

Parameters passed ; ARINT holds address of 



PIH 



routine wanting to handle interrupt. ARMASK 
holds mask indicating which interrupts it is 
desired to handle 

Entry to the operating system ; None 



ZUPL 



ZOERR 



H 



._j 



Table AAl. Module AA Routine/Subroutine Directory 

r T 

I Routine/Subroutine | 



Function 



H 



ABORT 
BLKERR 

CONSLD 

CONSLT 

DFftEE 

LFERRX 
LOADX 

LOADW 

FIE 

PLEPRX 

RDERRX 

REfiDX 

KELESE 

REQEST 

ftLSCTL 



Deletes currently loaded phases, passes control to error editor. 

Enters message "REFERENCED BLOCK NOT IN USE", then terminates 
compilation. 

Takes dictionary reference and points at relevant slot in dictionary 
control block area (DSLOTS) . 

Takes text reference and points at relevant slot in text block 
control area (TSLOTS) . 

Finds dictionary block which can be written on disk to make room for 
a new block in storage. 

Marks error on SYSLIN data set. 

Loads required phase and returns control to caller. The phase may 
be loaded again. 

Loads required phase and returns control to caller. 

Handles all program checks. 

Prints record on SYSPRINT data set. Pagination (paging action) is 
performed automatically. 

Marks error on SYSIN data set. 

Reads a block from disk. 

Releases all loaded phases. 

Marks phases as 'wanted* or 'not wanted.' 

Releases all loaded phases and passes control to next required or 
named phase. 
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Table AAl. Module AA Routine/ Subroutine Directory (cont'd) 



I Routine/Subroutine \ 

jSPERRX 

I 

I ZABORT 

1 

I ZEND 



I 
I 
I 

JZINIT 

1 
JZULF 

I 
IZOSP 



Function 
Marks error on SYS PUNCH data set. 
Deletes currently loaded phases and passes control to error editor. 



-1 

I 

H 



Picks up the ccanpletion code for the coirpilation and returns control 
to ZINT to continue the batch, or to the operating system at the end 
of a single or batch compilation. 

Initializes the compiler. 

Puts record out to SYSLIN data set. 

Puts record on to SYSPUNCH data set.. 
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Table AB. Module AB Compiler Control Initialization 

r ^ _ ^ 

Main Processing 
Statement or Operation Type 



Issues a BLDL macro instruction on all phases 
in compiler, and constructs a compacted phase 
dictionary 

Entry to the operating system : BLDL 



Routine 
PROPEN 



Routine Called 



None 



-H 



•H 



Prints initial heading and performs scan of 
option list. Default options are taken where 
necessary 

Parameters passed ; General register 1 points to 
option list passed at invocation time 
EnLry to the operating system ; TIME, 
PUT LOCATE (QST^) 



OPTPROC 



None 



-H 



Makes the initial space allocation for text and 
dictionary blocks. Sets up communication 
region 

Entry to the operating system ; GETMAIN(R) 



OPENR 



Opens spill file if text and dictionary blocks 
are IK 

Entry to the operating system ; OPEN 



OPENSP 



obtains the guaranteed UK of scratch storage 
Entry to the operating system ; GETMAIN(R) 



GETSCR 



Loads inteannediate file writer (Module AC). 
;=etr5 buffer sizes for SYSUT3 and opens the data 
set 

Entry to the operating system : LOAD (EPLOC) , 
OPEN 



NODUMP 



Prints out list of options for this compilation 
Entry to the operating system : None 



NDMP 



None 



None 



+ 

None 



ZUPL (AA) 



ZUPL (AA) 



-H 



i 



■H 



— ^ 



-H 



•H 



■H 



Enters error messages generated when SYSIN, 
SYSPRINT opened 

gntry to the operating system : None 



PJ13 



Reads first card and stores. Uses as heading 
if required 



RDCD 



Return to pre-initializer in lEMAA 



ABOUT 



ZUERR (AA) 



ZURD, ZUERR, ZUPL 
(all in AA) 



None 



Opens SYSPUNCH if MACDCK specified 
Entry to the operating system ; OPEN 



Loads dictionary handling control routines 
(phase lEMAN or lEMAL depending on normal 
dictionary or extended dictionary being 
specified in the options) 

Entry to the operating system : LOAD , 



MCD 



ILODCNTL 



ZUERR 



None 






._j 
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Table ABl. Module AB Routine/Subroutine Directory 



1 Routine/Subroutine | 
ABODT 
GETSCR 
NOMP 
NOOUMP 



Function 

Returns control to pre-initializer in Module AA. 

Obtains scratch storage. 

Prints lists of options for current compilation. 

Loads intermediate file writer module AC. Sets buffer sizes for 
SYSUT3 and opens data set. 

OPENR (Makes initial space allocation for text and dictionary blocks. Setsj 

up communications region. 

OP£MSP I Opens spill file. 

OPTPROC I Prints initial heading and performs scan of option list. 

PJ13 (Enters diagnostic messages generated when SYSIN and SYSPRINT data 

sets are opened. 

PROP£N (Issues BLDL macro instruction and constructs phase directory. 

RDCD (Reads first card. 



Table AC. Module AC Compiler Ccfntrol Intermediate File Control 



Statement or Operation Type 



(Writes a record onto SYSUT3 
I 



( Parameters passed ; PARI — address of output 
(record; PAR2 — length of record ( 

( Entry to the operating system ; PUT LOCATE (QS AM) j 



(Main Processing 

j Routine 

+ 

(lEMAC 

I 

I 




(Link to file switching routine (Module AG) (ENDED 

I I 
( Entry to the operating system ; LINK ( 
L : J. 



Table AD. Module AD Compiler Control Interphase Dximping 



Routine Used 



r T T- 

( (Main Processing( 

j Stat.ement or Operation Type ( Routine j 

(Debugging aids. This routine contains a dump- j lEMAD j ZDRPAB, ZTXTAB, ZUPL | 

(ing progra:n which is invoked by use of the DUMPJ ((all in AA) , [ 

(option ( (DUMP ( 

L X X J 



Table ADl. Module AD Routine/Subroutine Directory 

( Routine/Subroutine ( Function ( 

i. + ^ 

(OUj^^P (Converts contents of specified area of main storage to hexadecimal, ( 
( (prints the result. j 

L J. J 
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Table AE. Module AE Compiler Control Clean-Up Phase 

Main Processing 
Statement or Operation Type 



Routine 



Routine Called 



^ 



Input and intermediate file control. Current 
input file is closed and lEMAC is deleted if 
present 

Entry to the operating system ; CLOSE ( current 
input file) , DELETE 



lEMAC 
(Module AC) 



None 



■H 



^ 



Opens SYSLIN and SYSPUNCH data sets if required 
Entry to the operating system : OPEN 



N0TU8 



+— 

NOTDCK 



ZUERR (AA) 



Expands the number of blocks in storage to four 
text and four dictionary, if running with the 
UUk size option 

Entry to the operating system ; GETMAIN 



None 






Table AEl. Module AE Routine/ Subroutine Directory 



r T* 

I xioutine/Subroutine | 



I 

H 

I 

I 

I 
J 



Function 



W0148 

i 

j NOTDCK 
L 



j Opens SYSLIN and SYSPUNCH data sets as required, 

I 

I Expands number of blocks in storage. 



Table AF. ^5odule AF Compiler Control Sysgen Options 



Function 



I 

Y + 

{This module contains no executable instructions. It is I None 

I generated at SYSGEN time and passes the default options j 

jand values to the compiler | 

L L 



Subroutines 



— 1 



-H 



—J 



Table AG. Module AG Compiler Control Intermediate File Switching 

^ ^ — r 

I Function I 



^ 

I Switches SYSUT3 from an output file to an input file 

I 

i Entries to the operating system ; OPEN and CLOSE 



Subroutines. 



-+ 

I None 



H 



—J 



Table AK. Module AK Compiler Control Closing Phase 

j Function 

I Closes files, frees scratch core and deletes unwanted 
1 phases 

I If batch compiling, scans batch delimiter card for correct 
I syntax and updates completion code. 

I 

[ Entries to the operating system ; TIME, CLOSE, FREEPOOL, 

I DELETE, and FREEMAIN 

L 
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Table AL/AN. Modules AL/AN Extended Dictionary /Dictionary Phases 



Stat«ement or Operation Type 



Main Processing 
Routine 



Routine Called 



H 



Releases scratch storage allocated by ZUGC 

Parameters passed ; PARI — a count of the 
number of entries to ZUGC to be released 
Entry to the operating system ; FREEMAIN if 
storage being replaced is outside the guaran- 
teed 4k block 



ZURC 



ZUERR, ABORT 



■H 



Inserts diagnostic message in the dictionary 

Parameters passed ; PARS — numeric parameter 
(if any) ; PAR6 — message number; PAR7 — add- 
ress of text (if any) or dictionary reference 
(if any); PARS — length of text (if amy) 
Entry to the operating system ; None 



ZUERR 



ZDRFAB, ZDICRF, ZDICAB 



■H 



Takes a dictionary reference and points at the 
relevant slot in the dictionary block control 
area (DSLOTS) 

Parameters passed ; PARI — dictionary 

reference 

Parameters returned ; Address of slot in GRA 

Entry to the operating system ; None 



CONSLD 



None 



Takes a text reference and points at the 
relevant slot in the text block control area 
(TSLOTS) 

Parameters passed ; PARI — text reference 
Parameters returned ; Address of slot in GRA 
Entry to the operating system ; None 



+-^. 



CONSLT 



-+— 



■H 



Allocates space for a text block 

Parameters passed ; Relative track address of 
the block (if block is on disk) in RDTTR. 
Otherwise RDTTR is zero 

Parameters returned ; Address of blbck in GRO 
Entry to the operating system ; GETMAIN(VC) if 
storage available. OPEN if no space left 
for text blocks 

Allocates space for a dictionary block 

Parameters passed ; Relative track address of 
block (if block is on disk) in RDTTR. Other- 
\«ise RDTTR is zero 

Parameters returned ; Address of block in GRO 
Entry to the operating system ; GETMAIN(VC) if 
storage available. Open if no space left for 
dictionary blocks 

Investigates the dictionary block control used 
(DSLOTS) , to find which block can be written on 
to disk to make space for a different block in 
storage 



TRYMRT 



DFREE, TPREE, ZUPL, 
ABORT 



■H 



TRYMRD 



DFREE, TFREE, ZUPL, 
ABORT 



DFREE 



CONSLD, ZUERR, ABORT, 
WDREAD, WRTRD, tfDWRIT 



Parameters passed ; Relative track address of 

block required in storage in RDTTR. RDTTR=0 

if a block is being created 

Parameters returned ; Address of block in 

storaoe in BLOKAD 

Entry to the operating system ; None 



._j 
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Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases (cont'd) 



Statement or Operation Type 



T T 

Main Processing 
Routine 



Routine Called 



-■ ! 



Investigates the text block control area 
(TSLOTS) , to find which block can be written 
onto disk to make space for a different block 
in storage 

Parameters passed ; Relative track address 

block required in storage in RDTTR. RDTTR=0 

if a block is being created 

Parameters returned ; TFREE 

Entry to the operating system ; None 



TFREE 



CONSLD, ZUERR, ABORT, 
WDREAD, WRTRD, WDWRIT 



Create space in storage by writing on disk 

Parameters passed ; RDTTR=0, BLOKAD contains 
address of block that can be written out 
Parameters returned : BLOKAD contains address 
of block in storage that is now available 
Entry to the operating system : WRITE ( BSAM) , 
CHECK, NONE 



WDWRIT 



WRITEX 



■H 



Writes a block onto disk and reads a second one 
into its place in storage 

Parameters passed ; RDTTR contains relative 
track address of clock to be read. BLOKAD 
contains address of block to be written 
Parameters retiarned ; NOTTR contains relative 
track address of block in storage 
Entry to the operating system : WRITE ( BS AM) , 
CHECK, NOTE 



WRTRD 



READX, WRITEX, ZUERR, 
ABORT 



■H 



Reads a block from disk into space already 
available in storage 

P?raroeters passed : RDTTR holds relative track 

address of block to be read. BLOKAD holds 

address of space in storage 

Parameters returned ; BLOKAD holds address of 

block in storage 

Entry to the operating system ; None 



WDREAD 



Writes a block onto disk 

Parameters passed ; TEMPt* holds relative track 

address of space on disk 

Entry to the operating system ; XDAD(WI), WAIT 

Reads a block from disk 

Parameters passed ; TEMP** holds relative track 

address of block on disk 

Parameters returned ; PARI — address of input 

area 

Parameters returned ; PAR2 — record length 

Entry to the operating system ; GET MOVE (QSAM) 



WRITEX 



READX 



+ 

ZUPL, ZEND 



READX 



ZUPL, ZEND 






Reads a record from SYS IN 

Parameters passed ; PARI — address of input 

area 

Parameters returned ; PAR2 — record length 

Entry to the operating system ; GET MOVE (QSAM) 



ZURD 



None 



-H 



._j 
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Table AL/AN. Modules AL/AN Extended Dictionary /Dictionary Phases (cont'd) 



Statement or Operation Type 



T T 

Main Process itig 
Routine 



Routine Called 



Puts a record out to SYSPRINT. Pagination 
(paging action) is performed automatically 

Parameter!; passed ; PARI — address of output 

buffer. PAv?3 — address of output buffer 

containing page heading (if any) 

Entry to the operating system : PUT LOCATE 

(QSAM) 



ZUPL 



PLERRX 



■H 



Finds a new text block. Optionally chains the 
new block to the current block and changes the 
status of the current block 

Pararoeterii passed ; PARI — optionally, a 

reference to the current block. PAR2 — a 

status and chain indicator 

Parameters returned ; PARI — reference to new 

block; VPd\2 — absolute address of the 

beginning of block 

Entry to the operating system ; t^one 



ZUTXTC 



CONSLT, TRYMRT, ZUERR, 
ABORT, BLKERR 



-^ 



Finds the next text block in the chain. 
Optionally, changes the status of the current 
block 

Parameters passed ; PARI — a reference to the 
current block; PAli2 — a status indicator 
Parameters returned ; VKRl — reference of the 
next block in the chain. PAR2 — absolute 
address of next block in chain 
Entry to the operating system ; None 



ZCHAIN 



Changes the status of the referenced text block 

Parameters passe d: PARI — a reference to the 
block. PAR2 +3 — required 'status' byte 
Entry to the operating system ; None 



ZALTER 



CONSLT, TRYMRT, BLKERR 



CONSLT, BLKERR 



H 



Converts a text reference to an absolute 
address and optionally, does not change status 
of the block 

Parameters pasoed ; PARI — reference to be 

converted and option indicator bit 

Parameters returned ; PARI — the absolute 

address 

E ntry to the operating system ; None 



ZTXTAB 



CONSLT, TRYMRT, BLKERR 



Converts an absolute address to a text 
reference 

P arameters passed ; PARI — a text reference to 

the block containing the absolute address; 

PAR 2 — the address to be converted 

P arameters returned ; PSRl — the required text 

reference 

Entry to the operating system ; None 



ZTXTRF 



CONSLT, BLKERR, ZUERR, 
ABORT 



Enters messaae 'REFERENCED BLOCK NOT IN USE' 
into dictionary and then terminates compilation 
E ntry to the operating system ; Wone 



BLKERR 



ZUERR, ABORT 



._J 
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Table AL/AN. Modules AL/AN Extended Dictionary /Dictionary Phases (cont'd) 



H^ 



Statement or Operation Type 






Supplies storage space for scratch purposes. 

Allocation is made in 512 bytes at a time 
Parameters passed ; PARI — a count of the 
number of 512 byte blocks required 
Parameters returned ; PARI — address of the 
allocated storage 
Entry to the operating system ; None 



CONSLD, ZUERR, ABORT, 
BLKERR 



Converts an absolute address to a dictionary | ZDABRF 
reference 

Parameters passed ; PARI — any reference to 

the block containing the absolute address; 

PAR2 — the absolute address to be converted 

Parameters returned ; PARI — '• the required 

dictionairy reference 

Entry to the operating system ; None 

ZDRFAB |C0NSl6, TRYhDlD, BLKERR 



Converts a dictionary reference to an absolute 
address 

Parameters passed ; PARI — the dictionary 

reference 

Parameters returned ; PARI — the absolute 

address 

Entry to the operating system ; None 






Makes an unaligned dictionary entry and 
returns an absolute address 

Parameters passed ; PARI — address of entry to 

be made; PAR2 — length of entry 

Parameters returned ; PARI — address of entry 

in dictionary. PARM — some reference to the 

block 

Entry to the operating system ; None 



Main Processing 
Routine 



ZUGC 



ZNALAB 



Routine Calles 



TRYMRT, ZUERR, ABORT 



■-^ 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 



-H 



Makes an aligned dictionary entry and returns 
an absolute address 

Parameters passed ; PARI — address of entry to 

b€ Bjade; PAR2 — length of entry 

Parameters returned ^ PARI — address of entry 

in dictionary. PAR*i — some reference to the 

block 

Entry to the operating system ; None 



ZDICAB 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 



Makes an unaligned dictionary entry and 
returns dictionary reference 

Parameters passed ; PARI — address of entry to 

be made; PAR2 — length of entry 

Parameters returned ; PARI — reference of 

entry in dictionary. PAR4 — absolute address 

of the entry 

Entry to the operating system ; None 



ZNALRF 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 



^ 

ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 



Makes an aligned dictionary entiry and returns a 
dictionary reference 

Parameters passed ; PARI — address of entry to 

be made; PAR2 ~ length of entry 

Parameters returned ; PARI — reference of 

entry in dictionary. PAR4 — absolute address 

of the entry 

Entry to the operating system ; None 



ZDICRF 



8U 



Table ALl/ANl. Modules AL/AN Routine/Subroutine Directory 

I Routine/Svdaroutine | Function 

TFREE I Finds text block which can be written on disk 

to make space for a new block in storage. 



TRYMRD 
TRYMRT 
UDREAD 
WDWRIT 

WRITEX 
WRTONL 
WRTRD 

ZALTER 
ZCHAIN 
ZDABRF 

ZDRFAB 

ZDICAB 

ZDICRF 

ZNALRF 

ZNALAB 

ZTXTAB 

ZTXTRF 

ZUERR 

ZURD 

ZUGC 

ZURC 

ZUPL 

ZDTXTC 



Allocates space for a dictionary block. 

Allocates space for a text block. 

Reads a block from disk into storage. 

Creates space in storage by writing a block on 
disk. 

Writes a block on disk. 

Writes on last block on disk. 

Writes a block onto disk, reads a second one 
into its place in storage. 

Changes status of referenced text block. 

Finds next text block in chain. 

Converts an absolute address to a dictionary 
reference. 

Converts a dictionary reference to an absolute 
address. 

Makes an aligned dictionary entry and returns 
absolute address. 

Makes an aligned dictionary entry and returns 
dictionary reference. 

Makes unaligned dictionary entry and returns 
dictionary reference. 

Makes unaligned dictionary entry and returns 
absolute address. 

Converts text reference to an absolute address. 

Converts absolute address to a text reference. 

Inserts diagnostic message in dictionary. 

Reads a record from SYSIN. 

Supplies storage space for scratch purposes. 

Releases scratch storage. 

Puts record out to SYSPRINT data set. 

I Obtains a new text block. 
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Table AM. Module AM Compiler control Phase Narking 



j Function 

I Marks all non-optional phases and 
jail phases influenced by compiler 
I invocation-time options 



JMain Processing! 
I Routine | 
4 +, 



Routines Used 



JIEMAM 

I 

I 

.X 



JREQEST* RLSCTL (both in AA) 



•Table AT. Module AT Compiler Debugging Module 



Entered each time a phase is 
deleted and updates control tables 
Entry to the operating system ; None 



Statement or Operation Type 






Reads in control cards and 

constxructs control tables 

Entry to the operating system ; None 






Entered each time a phase is loaded 
so that replacing (REP) or 
verifying may be done. Inserts 
start or end trace/flow markers 
(privileged operations) 
Entry to the operating system ; None 






Entered frcMn Interrupt Handler in 
module AA after privileged 
operation encountered (0C2 
interrupt) signifying trace/flow 
marker. Carries out initialization 
before starting or after ending 
trace/flow 
Entry to the operating system ; None 



Analyzes each instruction to be 
traced. Executes the instruction 
and prints a line containing; the 
instruction, its address, the 
resulting condition code, and the 
subsequent contents of registers 
and storage used by the 
instruction. 
Entry to the operating system ; PUT 



MODE (QSAM) 



Main Processing 
Routine 



INIT 



LOAD 



TRACRELS 



TRACEir 



TRACE 



Routines Used 



CNTRL,NXTFLD,TROFFSET,ZUPL(AA) , 
ZURD(AA) 






PATCLOAD, TRACLOAD , ATCALL, HEXOUT, 
JBPT 



None 




CALL, FULLSUB, FULL2, JBPT, FULLAD 



..J 
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r T- 

I Routine/Subroutine | 



Table ATI. Module AT Routine/Subroutine Directory 

Function 
Calls the print routine and then clears the print line. 
Similar function to ATCALL but contained within TRACE routine. 



ATCALL 



+- 



^ 



CALL 
CNTRL 

FULLAD 

FULLSUB 

FULL2 

HEXOUT 
INIT 

JBPT 
LOAD 
NXTFLD 
PATCLOAD 

TRACE 

TRACEIT 

TRACLOAD 

TRACRELS 

TROFFSET 



Carries out replacing (REP) and verifying in phases loaded before 
AT. Inserts start trace markers in phases loaded before AT. 

Determines address of storage to be altered by instruction currently 
being traced. 

Translates hexadecimal to a character representation of hexadecimal. 
Used in TRACE routine. 

Analyzes instructions to be traced and moves information to the 
print line. 

similar function to FULLSUB. Used in routine LOAD. 

Builds control fields using information from control cards in the 
input. 

Prints a line of trace information. 

Controls subroutines PATCLOAD and TRACLOAD. 

Skips blank characters on input control cards. 

Carries out replacing (REP), if requested, after each phase is 
loaded. 

Traces each instruction and prints trace information. 

Describes whether TRACE/FLOW must start or end. 

Inserts start trace markers in phases after they have been loaded. 

Updates control tables when a phase is deleted. 

Translates character representation of hexadecimal to hexadecimal. 



—J 



Chapter 3; Flowcharts, Tables and Routine Directories 86.1 



chart 01. Compile-tiine Processor Logical Phase Flowchart 



•***A1********* 
* FKCH PHASE AA 



**t»*H2*** ******* 
♦RESIDENT AS* 

>• CONTROLS * 
• ICADIBG OF » 
*FHASES AV.ec.BG* 
************ tl*** 



***»*B2*** ******* 
*IHITIALIZN AV* 
*-••*-*-*-*.*-*-• 
* INITIALIZES * 
*CCKH. REGION I * 
*£CBATCH STORAGE* 



*****C2********** 
*INITIAL SCAN BC* 
*•*.*-•-•-*.•.*.* 
->* INITIAL SCAN * 
*AND TRANSLATION* 



•****D2** *•••••*• 
*fINAI. SCAN BG* 
*-*•*-*-•-*.*.*.* 

* FINAL SCAN AND * 

* REPIACEMENT • 

* PHASE * 
**•**••**•****•** 



nS .* IHCLODED *. 
I ♦. TEXT 

*eik:ou(itbred* 



-•-*-*-*.*-• 
* DIAGNOSTIC * 
*HSSSAGE CONTROL* 



*****G2**** ****** 

* PHIMTS * 

* DIAGNOSTICS * 

* IN DICTIONARV * 

* * 
*****•*•••*••**•* 



*****H2********** 
*CLEAN>DP BH* 
*-*.*-*.*-*-*.*.* 

* RE-INITIALIZE • 

* COHM. REGION * 
» AND TABLES ♦ 




**** 

• 02 • 

l->* Al * 
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Chart AS. Phase AS Overall Logic Diagram 



► EKTBK ' 

• FBCM • 

• PHASE »A < 



INITIALIZE 

FCINTERS AKD 

SWITCHES 



• C2 »- 
**** 



LOADW 

YAG2 « 

*****C 2***** *-***** 

* PHASE BC * 

■—>* 'load ' "* 

* phase bc into * 

* STORAGE * 

************ *.*»*4 



»»»**ji2* ********* 

* 4 

* USE PHASE BC • 

* TO PROCESS * 

* 'INPUT' TEXT • 

***************** 



t****'£2* ********* 

• TURN * 

• INCLUDE-SW • 
» OFF * 

t ************!**** 



LOADW t 

*****^ 2* ********* 

* PHASE EG ♦ 

* LOAD » 
« PHASE BG INTO » 

* STORAGE * 
*************)**** 



^****Q2* ********* 

* DSE PHASE BG • 

* TO PRODUCE * 
» OUTPUT • 

*************:**** 



.* », ♦ » » ♦ 

♦ IS *. KES * • 

INCLUDE-SH .* >* C2 « 



****J 2* ******** 
* RETURN « 

» TO * 

> PHASE AA • 
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Chart AV. Phase AV Overall Logic Diagram 



INITIALIZE 

COMMUNICATIONS 

REGION 



*****A3**»**»*«* 

• CREATE IHPUT 

* AND OUTPUT 
>• BUFFERS lA 

•SCRATCH STCRAGL 
• 



• MOVE T0K3CN 
« TABLE IHTO 
•SCRATCH STORAGE 



•*•*•••••*•« 



♦ ALLOCATE PDS 

♦ IN SCRATCH 

♦ STORAGE 



»«*»»D3» •♦•»*♦♦♦* 
» SET OP DCB'S » 
» AND BUFrER ♦ 
> AREA FOR USER • 
* AND SVSLIB * 
» INCLUDE FILES » 



****>E3* •******•* 

♦ SET UP * 

* KEYWORD TABLE * 
» IN SCRATCH ♦ 

* STORAGE * 

• * 
***************** 



* SET_OP TABLES • 

* TO TRANSLATE • 

* EXTERNAL CODE * 
» TO EBCDIC ♦ 



vmoBCD V 

*****G3* ******** 

• MAKE 

* DICTIONARY 
*EHTRY FOR BUILT 

♦ IN PUNCTION 

• SOBSTB 
**************** 



*****II3* •*•**•**• 

* SET UP TEXT * 

* BLOCKS FOR * 
*PROCEDURE TEXT * 

* AND IVB'S * 

* * 
*•******«**••**** 



HWCHNBEG 

*****J3* ********* 

* CREATE * 

* DICTIONARY * 

* ENTRIES FOR * 

* DECIMAL ONE, 



*****K3 ********** 

* • 

* CREATE IVB'S * 
*FOR VALUES TRUE*- 

* AND FKLSE * 

* * 
***************** 



*****K4 ********** 

* * 

* SET UP BASIS * 
->* FOR UNDEFINED * 

* ENTRY CHAINS * 

* * 
***************** 
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chart BC. Phase BC Overall Logic Diagram 



**•**••**•*«****» 



**** 
» « 

* C3 •-> 



• « 

» D2 * 



**** 
FIUDPC 

*****C3* ********* 

* PUT CHARS * 

* INTO TEXT * 

* BLOCKS OWriL * 
*HIT NEXT MACRO * 

* STATEMENT * 
***************** 



t****bM*** **•*••* 

• * 
*SET OP SPECIAL * 

>* EXIT LABEL * 
» IN DICT. * 

* * 
•*******•»•***•** 



***************** 



•****£1*********4 



***************** 



PROCESS * 
PROCEDURE * 
STATEMENT * 

* 
**************** 



**•* 

* * 

* D2 * 

* * 
**** 



LIAZ 
YES . 



L1A3 V 

»****(r2********* 

PROCESS 

LABELS 

ATTACHED TO 

STATEMENT 

*************** 



LIEOP 

•****G2* ********* 

* ENCODE STMNT * 
•-*-*-*-*.*-*-*-* 
*USES AND TESTS * 

* A PUSH DOHN * 

* STACK * 
***************** 



INCLUDE-SW 






***E<>******** 

PUT 

END-OF-TEXT 

CODE INTO 
TEXT BLOCK 



***************** 



■>* B3 

* * 
**** 



* ADD CODE * 
*T0 CALL CLEANUP* 

* TO TEXT * 

* BLOCK * 

* * 
***************** 



->* B3 

* * 

• *•* 



* WAS IT *. YES 

THE END FOR .* 

* . PROC . * 



*****H3* ********* 



***************** 



**** ,* *. 

* * YES .* IS *. NO 

* D2 *< *. PHOC SW ON .* 



-4 



»*** 

* * 

* C3 * 

* * 
***• 
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Chart BG. Phase BG Overall Logic Diagram 






PR2SCN V 

*****B3********** 
•GET NEXT TOKEN • 

* STARTS FROM * 
♦TOK-PTR TO GET • 
» NEXT TOKEN » 



WHAT IS IT 

♦. 

*. .♦ 



• END OP TEXT * 



•*****•***••*«•** 



****F1********* 

• RBTORH • 

• TO CALLER « 

• « 



•****G1********* 



••••*••••••*•*•• 



OAEOB 

» SET LEV-BIT. • 

* TOK-PTR FROll • 

• STACK TOP * 






IDENTIFIER 



•••*••**•••***•** 



ACTIVATED 



**** 

• * 

♦ DIt * 

* * 



* ON ARGS. GET * 

* VALUE rOR * 

* PROCEDURE • 



DACLN 

*****F3** ******** 

* CALL CLEANUP * 
*-*-•-*.*.*.*•.*-* 

* THROHAMAY * 

* INOjUDED TEXT * 

* SET TOK-PTR * 
**•••******•*•••* 



L 



V DAPRTC V 

* 

**************** I ••»***•*••»«**•• 

**** I 



• D« * 

* * 
• *•• 



**** 

♦BH • 

->♦ Al • 



*-*-*-*-•-*-*-*-• 

• • 

• OUTPUTS TOKEN * 

• • 
***************** 



INTPRT 

•••**B3*****«**** 

* INTBtPRET 



*****•*••****•*•* 



TOK-PTR 
« VALUE ONTO « 

* STACK • 

* • 
••**•**•***•**•*• 



****K2********** 

* 

LEV-BIT « 1 ♦ 

* 
••*•*•**•*•*••** 



*****K3****«***** 

* * 

• TORN 

* INCUIDE-SN 

♦ ON 
• 
*•*•*****••••**• 



n 



***** 

♦BC ♦ 
• A3* 
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Chart BM. Phase BM Overall Logic Diagram 



*****/,i********« 



*******•*****•••« 



t*tt*f^2*** ******* 

* ESTABLISH • 

* LEVEL OF • 
>♦ DIAGNOSTIC * 

» PRINT OUT » 

* 4 
***************** 



XAl 
YES 



B2 ». 
. ♦ ANY * . 
,» ENTRIES *. NO 

TO BE . * 

♦.PROCESSED.* 



***B3********** 



**************** 



*****Q\** ******** 

* LOAD * 

* MESSAGE • 

* ADDRESS »- 

* BLOCK * 

* * 
***************** 



* * 
» SCAN ♦ 

>* MESSAGE »- 

* CHAINS * 
» * 
***************** 



*****C'i* ********* 

* MAKE UP • 
» LIST OF » 

>* BLOCKS « 

* i4EEDED 4 

* * 
***************** 



**»**CH********** 

* RELEASE • 

* MESSAGE * 
>* ADDRjiSS * 

* BLOCK ♦ 

* • 



***** 
*BH * 
» Al* 



*****K1**** ****** 



XA12A 

***EII*** ******* 4 
PRINT OUT 
* APPROPRIATE » 
> SEVERITY HEADER 



**************** 



***************** 



**************** 



* GET TO » 
r — >* NEXT ENTRY ♦- 

* IN CHAIN * 

* • 
***************** 



.* SKELETON *. HO 

->*. IN CURRENT .* 

*. BLOCK .* 



*****H2* ********* 

* MESSAGE * 

* NUMBER * 

* TO PRINT *- 

* BUFFER * 

* * 
***************** 



NO 
***• 

* * 
->• Gl ♦ 

* * 
**•* 



. * HAS * . 
.♦ IT GOT *. YES 

->*. A STATEMENT .* 

*. NUMBER .* 



*****HU* ********* 

* STATEMENT • 

* NUMBER * 
>♦ TO PRINT * 

* BUFFER • 

* * 
***************** 



*****J1* ********* 

* * 

* ACCESS * 

* MESSAGE .♦- 

* SKELETON • 

* * 
***************** 



•****j2* ********* 

* * 

* SCAN * 
>* MESSAGE *- 

* SKELETON * 

* * 
***************** 



->* 



*****J3* ********* 

* BUILD * 

* MESSAGE * 
TEXT IN « 

* PRINT * 
» BUFFER • 
***************** 



• **jll*********** 

* PUT OUT * 
> DIAGNOSTIC 
* MESSAGE ♦ 

t»* ************* 



.* HAS ♦. *♦*♦ 

JO .* THIS *. YES * * 

■ — *. LAST FNTRY .* >» D« * 

*.IH CHAIN .* * ♦ 
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Chart BW. Phase BW Overall Logic Diagram 



Ri-'LEASE 

AMY LOADFD 

PHASES 



» » 

• RELEASE ALL • 
♦ACTIVE TEXT ANP* 

* DICT BLOCKS » 



♦ F^EE 
» ANY 

♦ OUTSTANDING 
*3CRATC.| STORAGI 



* 

♦ REALLOCATE 

♦ TEXT AND 

♦ DICT BLOCKS 

**************** 



***D2* *♦*•♦*••** 



. »COKPH 
♦ . REQU] 


^ATION*. NO 

RED . •— — — 


* 


PRINT 
SYSUT3 


• 


.♦* 


* 


• ""1 


'•. .« 








♦. . • 


• •«* 


>•******** 


** i/ 


♦ YES 






***** 










*AA » 

* * 










* 


• CLOSE SYSUTl ♦ 

• AND SYSPUNCH ♦ 

• * 














• 


• 









t****G2********** 



• . TEXT BLOCKS .♦ >« 



»****•***••***••• 



♦♦•*H1» *••*••♦♦ 

SET UP 

COHKUNICATIONS 

REGION 



• *** 

•CI • 
->• Al • 
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Table AS. Phase AS Resident Phase for Compile-time Processing 

r T r 

I , I Main Processing! 

I Statement or Operation Type | Routine | Subroutines Used 

|. + 1 

I Initializes switches for |ADRP j None 

I compile-time processor | | 

^ + ^. 

{Loads phases for compile-time |ADRP |LOADX (7^) 

I processor | | 

^ + + 

(Determines whether Phase BC should jADRP (None 

I be reloaded | | 

L L X 



9H 



Table ASl. Phase AS Routine/subroutine Directory 



i Rout ine/Subr out. ine 1 



— 1 

I 



F\3nction 
^ + 

lADRP Unitializes switches for compile- time processor. 

IBCKUP2 I Backs up token pointer two places. 

ICHBLK {Changes currently busy IVB block status and gets a new block 

CLSBUF (Handles calls to close and write out the buffer. Loads and bases 

phase BJ if necessary. 

ICOMENT (Scans the limits of a comment, transfers each character into the 

output buffer. 

lENDIVB (Closes an IVB chain. 

IFREVAL (Releases a chain of IVBs containing a no longer needed value and 

returns chain to free list. 

IGETIVB (Removes an IVB from the free chain for use by the calling routine. 

IGNC (Updates TOKPTR to point to the next character in a particular input 

stream. 

I HASH j Accepts an EBCDIC identifier as input and outputs an index. The 

index indicates the beginning of the HASH chain with which the 
identifier is associated. 

INCTST (Determines whether Phase BC needs to be reloaded on return from 

Phase BG. 

INPUT (Reads in an input record from the source data set or from included 

I text . 

INBO (Reads physical records from the included data set; unblocks and 

sends them back one logical record at a time. 

NXTTXT JGets a new text block and sets up address slots. 

OUTPTC (Outputs a single character into one of the three output media; 

|IVB*s, text blocks, or external records. 

SRHDIC (Searches the dictionary for the presence of a named item. 

STRING (Scans the limits of a string constant, transfers each character to 

1 output . 

ITOKSCN (Examines text, character by character recognizing and returning eachj 

logical unit of text (called a token). Tokens include identifiers, 
[constants, operators, delimiters, etc. 

lUPMEWL (Updates temporary linecount slot. 

|YAG2 (Loads processor phases for the corapile-time processor. 

L X J 
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Table ftV. Phase AV Macro Processing Initialization 



Statement or Operation Type 



I Main Process ingj 
I Routine I 



Subroutines Used 



-H 



Initializes conununication area for JINIT 
compile-time processing \ 



V- 



I None 



-H 



(Allocates push down stack from | INIT 

I scratch storage j 

J. + 

j Allocates translation tables | INIT 
|. + 

I Enters SUBSTR into dictionary UNIT 



^ 

I Creates dictionary entries and 
lvalues for constants pool 

L 



-+-- 



I None 



-+ 

I None 

-+ 

I None 






INIT 



JNone 
I 



._j 



Table AVI. Phase AV Routine/ Subroutine Directory 
I Routine/Subroutine | 



Function 



■H 



INIT 



|WW{4048 
I 

I 
JWWOVLP 

I 



I WMOBCD 



I WWCHNBEG 



I WWMOVEIT 

I 

I INCLUDE 

I 

I LABELS (BC 

I 
I 
I 



I GOTO 



J ACT 

I 

I ELSE 

L 



Subroutine 
Package) 



Entry point to the initialization phase. This initializes the 
communication region for corapile-time processing. 

Allocates the push down stack (to be used by Phases BC and BG) from 
scratch storage. 

Sets up tables to translate external code to EBCDIC; tests the 
BCD, EBCDIC option. 

Enters built-in function SUBSTR into dictionary. 

Creates dictionary entries and values for compile-time constant 
pool. 

Moves Subroutine package into core for use by BC. 

INCLUDE Processor 

LT^EL List Processor. 

GOTO Statement Processor. 

Active/Deactivate Processor. 

ELSE Clause Processor. 



—J 
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Table BC. Phase BC Initial Scan and Translation 



{Main Processing 
Statement or Operation Type | Routine 

Recognizes statement type JPHISCN 
^ 

Scans until next % character |PH1SCN 



Processes PROCEDURE statement 



IPHISCN 



Processes labels attached to 
statement 



■+ 

I PHISCN 

I 



Subroutines Used 
TOKEN, DELETE 



FINDPC 



—I 



TOKEN, DELETE, IDSRCH, 
ADDSP (FREVAL, OUTPTC) 



IDSRCH 



■H 



-H 



Encodes statement into internal | PHISCN 
text I 



PARSE, TOKEN, IDSRCH, ADDSP 
DELETE, CHECK 



-^ 



Cleans up after INCLUDE in initial j PHISCN 
scan I 



None 



Begins statement identification j PHISCN 
process | 



None 



Chapter 3: Flowcharts, Tables, and Routine Directories 97 



Table BCl. Phase BC Routine/Subroutine Directory 



j Routine/Subroutine I function j 

^ _ + ^ 

lADCONS I Obtains the dici-ionary reference of a constant, entering it into the 

dictionary if necessary. 

Adds a processor-created item to the dictionary. 

Adds a normal item to the end of the appropriate hash chain and 
returns the dictionary reference. 

I Processes PROCEHURE statement. 

Processes assignment statements. 

Checks back for undefined labels and identifiers not declared within 1 
I the block. 

I Declare statement processor. 

Skips over bad text up to the end of a statement, field or 

procedure. 

DO statement processor. 

Checks stack for possible THSl^'s or ELSE's after statement is 
completed. 

Scans source text, character by character, searching for macro 
percent character. 

Obtains the dictionary reference of an identifier, entering it in 

the dictionary if necessary. 

IF statement processor. 

[Checks for single or multiple keywords. 

Parses and generates interpretive macro code for compile-time 
expressions. 

Provides special handling for end of included text. 

[Main controliincj routine for phase. 

Processes RETURN statement for PROC. 

Collects labels into label list and identifier statement type on 
first two tokens of statement. 



ADDS? 
jADICT 

lADPRCC (BF) 
1 ASSIGN 
CHECK 

IDECLAR (Bf) 
1 DELETE 

DO (BI) 
OOC^E (BE) 

PI NO PC 

IDSRCH 

IF- (liG) 
IKYVDSR 
PARSE (B£) 

PIFU 

PH1J5CN (P£) 
IREIURN 
;TB3 

CTMT- (BE) 
1 TOKEN 

UFDI.IN 



[Diagnoses statement type and builds label list. 

Returns significant tokens to PHISCN and writes out diagnostics for 
tokens in error. 

Generates an update linecovmt instruction. 



Note: See also BC Subroutine Package in Table AVI. 
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Table BG. Phase BG Final Scan and Replacement 
r 



g;tatenient or Operation Type 



I Main Processing) 
Routine 



Subroutines Used 



l^inal scan £or replaceirents 
^ 

I Recognition of end of text 



i PH2SCN 

■+ 

I PH2SCN 



OUTPUT, 



T0K3CN, 
TOKSCN, 



SRHDXC 
SRHDIC 



OUTPUT, 



IRecognition of an identifier ) PH2SCN 
^ + 

IRecogniticn cf macro action | PH2SCN 

Y: 



OUTPUT, 



TOKSCN, 
TOKSCN, 



SRHDIC 
SRHDIC 



OUTPUT, 



■H 



PII2SCN 



j Recognition of % character 

^ 1 

IRecoanition of other characters |PH2SCN 

y 



I OUTPUT, 
-+ 

I OUTPUT, 



TOKSCN, 
TOKSCN, 
TOKSCN, 



SRHDIC 
SRHDIC 
SRHDIC 



I Terminates and cleans up INCLUDE 
i handlinq 



PH2SCN 



I OUTPUT, 
I 



-+ 

IPH2SCN 



■H 



{Re-establishes scan at next higher 
j level text 



1 OUTPUT, TOKSCN, SRHDIC 



4 

IPH2SCN 



■-+• 



■H 



jPerforma repldcement on activated 
j identifiers 

L 



i OUTPUT, TOKSCN, SRHDIC 
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Table BGl. Phase BG Routine/subroutine Directory 



I Houtine/Subroutine | 
I" 



Function 



-^ 



CLOUT (BJ) 
CONVRT 

DACLN 

DAEOB 

DAEOBF 

DAIDEN 

DAMAC 

DAOTHR 

DAPENT 

DAPRTC 

FUNCTN(BJ) 

GFTDIC 

INCONT 

INTPRT (BI) 

OUTPT 

PH2SCN 

POP 

PROINV (BI) 

PUSH 

PUNCH (BJ) 
SYNCH 
TPEEK 

ZAASIGN (BI) 
ZACOMP (BI) 
ZACONCAT (BI) 
ZACVT (BI) 
ZALGCL (BI) 
ZAPUSH (EI) 



Closes output buffer, and writes out record on SYSUT3. 

Handles conversions between the three data types used in the 
compile-time processor . 

Terminates INCLUDE text handling and frees text blocks containing 
included text. 

Re-establishes scan at next higher level text. 

Recognizes and processes end of text condition. 

Recognizes and processes identifier in text. 

Recognizes and processes macro action character. 

Recognizes character and outputs it. 

Handles replacement operation for text identifiers. 

Recognizes % character and recalls Phase BC if appropriate. 

Handles built-in functions. 

Picks up a two-byte dictionary reference from scrubbed text, 
performs error checking, resolves indirect references, and returns 
both relative and absolute address. 

INCLUDE control routine. Opens DCB, finds meitdaer, sets up buffer, 
and initiates look-ahead read. 

Interprets the macro code generated by the Phase I scan. 

Handles the output of tokens. 

Scans text blocks. 

Pops the top temporary off the Phase II stack. 

Special entry point to interpreter for invocation of procedures 
found in source program text. 

Pushes next available temporary onto the Phase II stack. 

Punches down output record, in source code, on MACDCK option. 

Synchronizes linecount, closing buffer if necessary. 

Scans for procedure reference argument list left-parenthesis. 

Performs identifier assignments for INTPRT. 

Performs all logical comparison operations -for INTRPT. 

Performs string concatenations for INTPRT. 

Converts stack items to required type by 'RETURNS' attribute. 

Performs all logical operations for INTPRT. 

Performs stack maintenance for INTPRT. 
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Table BGl. Phase BG Routine/subroutine Directory (cont'd) 



r T 

I Routine/Subroutine I Fvanction 

|. + 

jZARITH (BI) I Performs all arithmetic operations for INTPRT. 

I I 

I ZATRAI (EI) I Handles transfers from included text to including text. 

I I 

jZATRAN (BI) I Performs all transfer operations for INTPRT. 

I I 

JZJSUES (BJ) I Built-in function SUBSTR. 

I X. 
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Table BM, Phase BM Diagnostic Message Determination ani Printing 

r : T T 

I I Wain Processing I 

I Statement or Operation Type | Routine j 

I- 



Subroutines Used 



—I 



Determines whether error messages JXA 
I are to be printed | 
^ + 

I Scans error message text skeletons |XA8 

|an3 prints them out j 

L X 



I None 



-^ 



JXASO, XA70, XA90, XAllO, ZUPL 



._J 



r T 

I Routine/Subroutine | 
j. . 1— 

XA 



^ 



Table BMl. Phase BM Routine/Subroutine Directory 

Function 
I Determines whether error messages are to be printed. 

XAO I Sets severity code. 

XAOl I Establishes which message types to suppress. 

XAl j Counts nisnber of error chains to be processed. 

13^A2 [Puts out messages if there are no diagnostics. 

XA<» I Prints out "COMPILER DIAGNOSTIC MESSAGES". 

XA7 i First scan of message chains. 

XA8 I Scans error message text skeletons and prints them. 

XA9 (BN) I Scans to head of next non-empty chain. 

XA12A i Selects and prints header for messages of given severity. 

XA30 (BN) I Gets next entry in message chain. 

XA32 (g!N) I Builds up first part of message in buffer. 

XA35 (EtJ) i Accesses message skeleton. 

XAt»0 (BN) jputs out completed message. 

XA50 (BN) I Moves message text to print buffer. 
iXA70 (BN) 



1 



XA90 (eW) 

XAllO (BN) 
ZUPL 



[Converts binary statement number to character representation, and 
[moves it to print buffer. 

Converts binary numeric value to character representation and moves 
it to print buffer. 

1 Moves identifier from dictionary entry to the print area. 

Prints a line on SYSPRINT data set. 



._j 
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Table BW. Phase BW Clean-up Phase 

r T r 1 

I I Main Processing! | 

j Statement or Operation Type | Routine | Subroutines Used | 

^ + — + ^ 

{Resets all tables and JIEMBW {None | 

I corranunications region cells to the j | | 

lvalue required by the ccxnpiler j j j 

I proper | | I 

L X X J 
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chart 02. Read-In Logical Phase Flowchart 



. * CHARACTER ». 
■*. OPTION .** 



*****B1* ********* 

* 1ST PASS CI* 
*-*-*-*-*-*-*-*-* 

* LIST IF REQ'D * 
♦AND COHVERT TO * 
* INTERNAL CHARS * 
***************** 



*****C1* ********* 
♦MAKE DICT ENTRY* 
*FOR LABELS AND * 

* CHECK FOR * 

* LOGICAL END * 

* OF PROGRAM * 
***************** 



*****D1* ********* 

* 2ND PASS CL* 
*-*-*-*-*-•-*-•-* 

* SCAN TEXT TO * 
♦ANALYZE SYNTAX * 

* OF STATEMENTS * 
***************** 



>• CONVERT TO ♦ 

* 60 CHARACTER ♦ 

♦ SET ♦ 
***************** 



♦.DECLARE. CALL.+- 

♦ STATEMENTS. ♦ 

♦ . .* 



*****£2****^***** 

♦ 3RD PASS CO^ 
*-«-»-*-*-*-»-*-* 

->♦ SCAN TEXT TO * 
•ANALYZE SYNTAX » 

♦ OP STATEMENTS ♦ 
***************** 



Fl *. 

.* ANY *. 

.♦STREAM I/O 

OR FORMAT 

♦STATEMENTS. 



♦ , 



. • 



*****F2*^^ ♦♦*♦♦** 

♦ HTH PASS CS^ 
*-*-*-*-*-*-*-•-* 

->* SCAN TEXT TO * 
♦ANALYZE SYNTAX ♦ 

♦ OF STATEMENTS ♦ 
***************** 



*****G1********** 
» 5TH PASS CV* 
*-*-*-*-*-*-♦-*-» 
♦MAKE CHAINS OF ♦ 

—CLARE. ♦ 

S PROC ♦ 
******** 



♦CALL, 



«*** 
♦ 03 * 
->* Al 



10 a 



Chart BX. Phase BX Overall Logic Diagram 



» A2 » 



• REhU AttD 



**************** 



****A2********* 

SCAN FIKST 

COPY OF 

THE TEXT 

*************** 



NEAR 
END OF 
RECORD 



****E2********* 
READ ONE 

RECORD 

AHEAD AND 

TACK IT ON 

*************** 



BA2S.BA«5 

*****C2********* 

* 

* SET 

>♦ APPROPRIATE 

» SWITCH ON 

* 

**************** 



Dl *. **»**D2********* 

*' END '♦. YES * SET 

OF COMMENT .» >* APPROPRIATE 

•.OR STRING.* ♦ SWITCH OFF 

• , . * * 

*, ,* **************** 



* START 

OF COMMENT 

*.0R STRING. 

*. . * 


* 




*. .♦ 






* NO 





* PERIOD, OR.* 
*. COMMA.* 



.* IN 
->*. COMMENT 
*.0R STRING. 





* 






**** 




END 




* 


NO 


* 


* 


OF 






*-.— — 


->» A2 


* 


RECORD 


* 


* 




* 
♦ *** 


* 



****£:ii* ******** 

IGNORE 
*************** 



****Fi|********* 

REPLACE 

BY 

OPERATOR 

SYMBOL 

*************** 



>*•****•***•••< 



HI *. 



. ♦. 

G3 ». 

* 

PERIOD 

*. • 
*. .* 



****G5* ********* 

REPLACE • 

BY * 

COLON • 



.* NEXT ♦. YES 

► . RECORD . * 

*. ALREADY .* 
*. IN .* 
*. .♦ 
» NO 



♦ ADJUST 
->* TEXT 

* m CORE 

**************** 



.* FOLLOWED *. NO 

BY A .♦ 

*. PERIOD .* 



.* IS *. 

IT LAST 

*. RECORD .» 



I **»* 

•CI * 
U>» Al * 



****J3* •**•*•** 
IGNORE 

*************** 

I 

**** 

* * 

* A2 ♦ 

* * 
**** 



.* FOLLOWED 
>. BY A 
* . DIGIT 



****Klt********* 

IGNORE 
*************** 



**** 

* « 
>* A2 * 

* 4 
**** 

****H5**^^^^**** 

* 

IGNORE • 

**************** 
**** 

->• A2 * 

* < 

***• 



» REPLACE • 
>• BY « 

* SEMI-COLON * 

* * 
***********•****< 



***• 
* 
• A2 

**** ***• 

* * 
>* A2 * 

* * 
*•** 
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chart CI. Phase CI Overall Logic Diagram 



CONTROL IS PASSED DIRECTLY eROM PHASE AA IF 
RSTART 48-CHARACTER SET OR COMPILE-TIHE PROCESSOR 

*****A1**********IS NOT SPECIFIED 



***************** 



• Bl *-> 

* • 
**»* 

.*. POPLST 

Bl *. *****B2********** 

.* TEST ». » INSERT LABELS • 

.FOR LABEL OR*. VES * AND/OR PREFIX * 

♦. PREFIX .♦ >* OPTIONS IN * 

♦, OPTIONS .♦ • DICTIONARY * 

*. .* * ♦ 

*, .* ***************** 



PROC, ENTRY, * . DO, BEGIN 

YES 



. ♦ TEST * . 
FOR BLOCK •• 
HEADING 
.STATEMENT.* 



*****C2* ******** 

* INCREASE 

* BLOCK AND/OR 
>* LEVEL COUNT 

* BY 1 
* 
**************** 



.♦ TEST 
FOR 
*. KEYUORD 



. * . £t)D 

32 *. *****Q3*«******** 

*. * DECREASE * 

TEST *. YES * BLOCK AND/OR * 

FOR .* >• LEVEL COUNT. •- 

•END' .* * TRANSPER'END" * 

.* *T0 OUTPUT TEXT * 

*. ,* ***************** 



.* TEST * 
> IF LEVEL 
COUNT IS 
» . ZERO 



.» TEST ♦. 

.*FOR NOLL OR*. 

>. ASSIGNMENT . 

*. STATEMENT.* 



**** 
E2 » 



**** 
STAT2 

*****£2* ********* 

* * 

* TRANSFER • 
>* STATEMENT TO *- 

* OOl'POT TEXT * 

* * 
***************** 



.* END *. YES 
». OF INPUT .♦ 1 

*•*. ..•* 

♦ . .* V 



»**** 

*CL * 

* B2* 

» * 



♦ SKIP 
r~* TO NEXT 

* SEMI-COLON 



***************** 



*****Fl(****** 



>******•*******< 



**** 

* * 

* Bl • 
« « 

**** 
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chart CL. Phase CL .overall Logic Diagram 



» * 

» B2 « 

t * 

• ••• 



PROC. ENTRY , 
BEGIN, ITDO. 
DO, GOTO, HAIT. 
DEUy. EXIT. STOP, 
ENDO. ENDITSO, 
RETURN. FREE, CALL, 
DISPUt, FORMAT, 
END 



TEST FORI 

GET, POT. 
READ. WRITE, __ 
REWRITE, DELETE, 
OPEN. cLOSE, 
LOCATE. IGNORE. 
UNLOCK 



TEST FOR: 

ALLOCATE, DECLARE, 
ON, SIGNAL. 
REVERT. ASSIGN, 
600B, IF, PROCl 



. ♦ TEST * 

♦.FOR SPECIFIC 

•.KEYWORDS .* 



. » TEST *. YES 

. FOR OTHER .♦ 

•STATEMENTS. ♦ 



* * 

♦ PROCESS » 
->» THE ♦ 

» STATEMENT • 

* • 
***************** 

• • 

->* r2 ♦ 

* • 
**** 

» • 

* MARK THE * 
->• I/O PHASES ♦ 

• AS 'WANTED' ♦ 

• * 
***************** 



••***D3* **•**•*•* 

* TRMISFER * 

* STATlEMENT TO ♦ 
>♦ OUTPUT TEXT »- 

* WITHOUT * 

* CHECKING * 
***************** 



.• TEST 


FOR ». YES 


♦ . END OF .* , 


•. PROGRAM .» 1 


*. .♦ 1 


*. .* * 


* NO »»•»* 


**** 


♦CO * 


» * 


* Bl* 


• F2 ♦-> 


♦ * 


* * 




♦ •♦» 




BADST V 


*****F2* ********* 


* * 


• SKIP TEXT TO » 


tKifs^Rg^^iSsi? : • 


• * 


******** 


)******** 



NOTE: 
GOES 

DOES nvi ^wnin.Ln n wstv>unns* 

CALL, OR ALLOCATE STATEMENT 



f3 *. »»»*»f i|**»»«*»«» 

*• * 

TEST *. YES ♦ TRANSFER 

FOR .♦ >*ELSE STATEMENT 

'ELSE' .* ♦TO OUTPUT TEXT 

.♦ * 

*. .« *****4***««***** 



***• 
» t 
» F2 « 
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Chart CO. Phase CO Overall Logic Diagram 



.» TEST ♦. H 

1->* . FOF . ♦- 
*. CECLABE .* 
♦. .♦ 
♦. .* 
*• * NO 



*****B3* *******•• 

* DELETE « 

->* THE !jiBSI.(S) • 



* El * 

• * 



.♦ TEST *. KES 

FOP . ♦— 

♦.ALLOCATE .♦ 



ECDL 

* CHECK SYNTAX • 



>* DECLARATION •- 

♦ OB * 

♦ ALLOCATION ♦ 



.♦ TEST •. HES 

FOS ,* 

». CALL .* 



► TEST 

FOR END OF 
*. FRCGRAM . 



* VES 

I «CS.* 
l_>« B2 * 



* IRCCEES 
>♦ CALL 

* STATEMENT 
• 
**************** 



SCANT 

* TRANSFER ♦ 

• STATEMENT * 
>» TO OUTPUT ♦- 

• TEXT WITHOUT » 

* PROCESSING * 
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chart CS. Phase CS Overall Logic Diagram 



INPUT FROM PHASE CI. IF PROGRAM 
DOES NOT CONTAIN DECtARE, CALL 
CR ALLOCATE STATEMENTS 



OPEN. CLOSE. 
REWRITE, DELETE, 
LOCATE. IGNORE. 
UNLOCK 



B2 ♦ 
TEST 



»****B3********* 



************* 



***************** 



TEST FOR ♦.NO * TRANSFER * 

END OF .* >* STATWENT TO • 

. PROGRAM .♦ ♦ OUTPUT TEXT • 



» YES 

I tcv • 

l->» B2 » 



***************** 
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Chairt CV. Phase CV Overall Logic Diagram 



**** 

* * 

* B2 « 

• « 
• *** 



, • TEST • . 

FOR 

*.LABEL(S> .* 



**•****•*••••••* 



ENTRY. PROC, 
BEGIN. CALL, 
DECLARE 



NO .* TEST ». YES 

•• FOR PREFIX .• > 

*• OPTIONS .♦ 



****C3********* 

PROCESS 

PREFIX 

OPTIONS 



.*. POCl 

D2 *. *****D3***»****** 

. » TEST * . * FORM THE ♦ 

.* FOR CHECK *. YES • NECESSARY * 

. AND NOCHECK .» >♦ PSEUDO ♦- 

♦ . LISTS .* « STATEMENT * 



». . * 



.* 



***************** 



E2 * 

* 

TEST 



CHAIN 

*****EI|* ******•*« 

♦ SLOT THESE ♦ 

♦ STATEMENTS « 
>* INTO THE ♦ 

♦ RELEVANT • 

♦ CHAIilS » 



r2 ♦. 

.♦ TEST ». 
.* FOR AN * 
. ON-STATE MENT 



CHEKON 

*****F3********** 

* SURROUND * 
» THE ON-ONIT « 

>» BY A ♦- 

* PROC-END * 



»********••**• 



TEST 
FOR 
'END' 



YES 


END 3 

*****G3* ********* 

>: p'^ggss J 




***************** 




•*** 

* * 

* B2 * 

* * 
♦ **♦ 



.* TEST *. YES 


*. FOR END OF .* , 


*. PROGRAM .* 


*. .» 


*. .* ' 


* NO ***** 


**** 


*EG * 


* * 


* Al* 


* J2 *-> 


* * 




* 


**** 




TRTSC 


*****J2* ********* 


* * **** 


* TRANSFER * * 


* STATEMENT * >* B2 


* WITHOUT * * 


* CHECKING * **** 


******** 


»******»* 
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Table BX. Phase BX 48-Character Set Preprocessor 

j I Main Processing I 

j Statenien-t or Operation Type j Routine j Subroutines Used 

I Translates keyword table to |BAOO |None 

I internal code and initializes j | 

{Reads a record |BA1 | ZURD (AA) 

I Scans text j BAIA ) None 

I Bandies operators ai^ keywords |BA5 {None 

^ + + 

(Replaces operator keywords |BA11 {None 

I Replaces corama-dot by semi-colon |BA20 | None 

j where applicable I j 

I Deals with quote marks |BA25 {None 

I Maintains parenthesis level count |BA30 |None 

{Replaces period-period by colon JBAUO juone 

I Processes a slash |BA50 | None 

I Reads one record ahead in case of |BA70 jNone 

jneed | | 

(Restores the situation when a read JBA80 (None 

(ahead has taken place j ( 

( Puts out converted text and j BA90 j ZOBW 

(original text onto backing store j ( 
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Table CA. Module CA Read-In Comnion Block 1 

I Function | Subroutines | 

I Provides subroutines common to all five JACONST, DECINT, EXP, EXPAND, EXPLST, IDENT, | 

i passes of the read- in phase JMVCHAR, OPTOR, SCONST, SINGLE, SQUID | 



Table CAl. Module CA Routine/Subroutine Directory 



j Routine/Subroutine | 



Punction 



ACONST 

DECINT 

EXP 

EXPAND 

EXPLST 

IDENT 

MVCHAR 

OPTOR 

SCONST 
SINGLE 
SQUID 



Checks for a valid arithmetic constant. 

Checks decimal integer. 

Diagnoses expressions. 

Expands iterations of string constants and picture characters. 

Checks for a list of expressions separated by commas but enclosed in 
parentheses. 

Checks for a valid identifier. 

Moves text from one address to another. 

Checks for an operator and replaces the two-byte operators by 
one- byte codes. 

Checks for a valid string constant. 

Diagnoses a single expression in parentheses. 

Checks for a valid subscripted and qualified identifier. 
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Table CC. Module CC Read- In Common Block 2 



Function 



i Subroutines 



j Provides subroutines comnon to all five 
I passes of the read- in phase 



I CHAR, CHECK, KEYWD, MESAGE, NONEX, 
INULINS, OPTEST, PICT, PREC, SOFLOW 



■H 



Table CCl. Module CC Routine/Subroutine Directory 



I Routine/ Subroutine 
^ ^ 

CHAR 

CHECK 

KEYWD 

MESAGE 

NONEX 

NDLIMS 

OPTEST 

PICT 

PREC 



SOFLOW 



Function 

Diagnoses the CHARACTER and BIT data attributes. 

Tests the top entry in the stack. 

Identifies keywords and hands back the replacement character to the 
caller. 

Provides a diagnostic message. 

Checks stack for non-executable statements. 

Inserts null statement in output text. 

Tests the output string and moves text to the output. 

Diagnoses a picture. It \ises a TRT table set up for the purpose. 

Diagnoses the precision, and the attributes and format items which 
use it. 



-H 



Bumps stack pointer and checks for stack overflow. 



Table CE. 
r 



Modules CE, CK, CN, and CR Read-In Keyword Block 



Function I 



Subroutines 

j Provides tables of keywords in internal JNone 

jcode, together with replacement code. j 

JNo functional code exists in these modules.} 

(Refer to Appendix B for details of keyword j 

(tables. j 

I X . p 
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Table CI. Phase CI Read-In First Pass 



JMain Processing) 
Sta-teinent. or Operation Type | Routine | Subroutines Used 



Controls main scan, identifies 
statements, and analyzes some in 
detail 



IRSTART {ASSIGN, BADSTl, BEGIN, DO, 

I JELSE, BUMP, END, EOP, ERROR, IF, 

I I ON, POPLST, PROC, READ, SIGRVT, 

i ISTAT2, STRING, plus those 

j (subroutines contained in modules CA 

j (and CC 



Table CIl, Phase CI Routine/Subroutine Directory 



j Routine/Subroutine I Function j 



ASSIGN (CG) 
BADSTl 

BEGIN (CG) 

BUMP 

DO (CG) 
ELSE (CG) 
END (CG) 

ENTRY 
EOP 

ERROR (CG) 
IF (CG) 
ON (CG) 
POPLST 

PROC 

READ 

RSTART 

SIGRVT (CG) 
STAT2 (CG) 
STID 
STRING (CG) 



Diagnoses an assignment statement. 

I Recovers £rom failure to recognize a stat^nent type; skips to next 
I semi-colon . 

I Checks the BEGIN statement and makes an entry in the first pass 
stack. 

I Advances the input Data Pointer (DP), skips blanks, if any, forcing 
source text to be read into storage as necessary. 

i Checks the DO statements and makes an entry in the first pass stack. 

lUnstacks an IF compound statement. 

{Processes three different types of END statements; PROCEDURE-BEGIN; 
I DO; iterative DO. 

[Processes ENTRY statement. 

[Processes end-of-progreun marker, and returns to compiler control in 
order to load next pass. 

[Handles false starts on possible statements. 

Scans the IF statement and makes entry in first pass stack. 

[Diagnoses the ON statement and makes entry in first pass stack. 

I Removes prefix options from the text and places them in the 
dictionary. 

Scans the PROCEDURE and ENTRY statement and makes an entry in the 
first pass stack. 

[Reads source text into storage, translating it into internal code, 
except for character strings; removes comments; prints soturce 
listing and prefix options. 

[Controls the first pass scan. Enters statement labels into the 
[dictionary. 

Scans SIGNAL and REVERT statements. 

Handles all other statements. 

Statement identifier routine. 



[Scans character strings. 



J 



114 



Table CL. Phase CL Read-In Second Pass 



I 

I Statement: or Operation Type 

I 



(Scans for statements handled in 

I this pass, analyzing them in | 

I detail. Skips over other statements! 

[ I 



JMain Processing! 

I Routine | 

._4. j.. 



Subroutines Used 



jSCNA 



JBUMP, DELAY, DSPLAY, DO, FREE, 
I GOTO, ITDO, LABEL, PROC, RETURN, 
JTOTSC, plus those subroutines 
I contained in modules CA and CC 



—J 



Table CLl. Phase CL Routine/Subroutine Directory 



j Routine/Subroutine j 



Function | 



I BUMP 

I DELAY 
IDSPLAY 
I DO 
EOP 

I FREE 
[GOTO 
ITDO 
i LABEL 
[OPTION 
IPROC (CM) 

I RETURN 
SCNA 



Increments the input Data Pointer (DP), skipping over blanks, 
I obtaining a new text block if necessary. 

Processes DELAY statements. 

Processes DISPLAY statements. 

I Processes DO statements. 

Processes end-of~program marker, and releases control to phase CO or 
CS, or CV (CO and CS are optional phases). 

Processes FREE statements. 

Processes GOTO statements. 

Processes iterative DO statements. 

I Diagnoses LABEL attributes. 

Bandies OPTIONS attribute on PROCEDURE or ENTRY statements. 

i Analyzes PROCEDURE attributes and options, and completes the 
diagnosis of PROCEDURE and ENTRY statements. 

Processes RETURN staten^nts. 

I Main controlling routine of this pass. 



ITRTSC 



I Skips over all other statements. 
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Table CO. Phase CO Read-In Third Pass 
r T- 



I statement or Operation Type 
|. 

I Scans for DECLARE , CALL, and 
I ALLOCATE Statements. Analyzes 
I syntax of attributes by calling 
(appropriate subroutines 



I Main Processing! 
Routine 



Subroutines Used 



4 ^ 

JATTLST, BUMP, CALLOP, DECL, DEFIND, 
JDIMS, ENTRY, ENVMNT, EOP, 
JGENRIC, LABEL, LIKE, USES, IVLIST, 
I and those subroutines contained in 
{modules CA and CC 
-J. J 



ISCAN2 



r T- 

j Routine/Subroutine | 
|. _+. 



-1 
I 



Table COl. Phase CO Routine/Subroutine Directory 

Function 

Processes an attribute list. (Recursive) 

Processes DECLARE or ALLOCATE statement. 

Advances Data Pointer (DP), obtaining new input block if necessary. 

I Checks CALL statements and options. 

Processes the DECLARE and ALLOCATE statements. 

Checks the DEFINED attribute. 

Examines the dimension specifications. 

Checks the ENTRY attribute. 

Removes environment information from the text and inserts it into 
the dictionary. 

Processes the end- of- program marker, and releases control. 

Processes the GENERIC attribute. 

Processes the INITIAL attribute. 

Analyzes LABEL attribute. 

Processes the LIKE attribute. 

Checks for a qualified subscripted identifier in parenthesis. 

Checks the REFER attribute. 

Scans for DECLARE, CALL, or ALLOCATE statements, moves others to the 
output string unaltered. 

Moves text to semicolon without alteration. 

Deletes the now obsolete USES and SETS attributes from text. 



jATTLST 
1 


i] 


1 

JBDCL 

1 


|] 


1 

1 BUMP 
1 


\l 


1 

1 CALLOP 
i 


(CP) |< 


1 

JDECL 


1 


1 

jDEFIND 


|( 


1 

1 EIKS 

1 




1 

1 ENTRY 


j 


1 

1 ENVMNT 

1 


(CP) 1 


1 

JFOP 
1 




1 

IGE'NHIC 




1 

1 IVLIST 

1 


(CP) 1 


1 

1 LABEL 
1 


(CP) 1 


1 

ILIKE 

I 




1 

1 PSQUID 
1 


(CP) 1 


1 

1 REFER 


(CP) 1 


1 

1 SCAN 2 

1 




1 

1 SCANT 

1 




1 

JUSES 
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Table CS. Phase CS Read-In Fourth Pass 



Statement or Operation Type 



JMain Processing] 
Routine 



Subroutines Used 



I Controls main scan and identifies jSCNA 
jl/O statements for further analysis j 
I I 

L J. 



4 ^ 

JEOP, FORMAT, GET, LIST, OPEN, j 
I READ, TRTSC, plus those subroutines! 
I contained in modules CA and CC j 

-X J 



Table CSl. Phase CS routine /Subroutine Directory 



r T- 

I Rout ine/ Subroutine | 

^ +. 



Function 



EOP 

FORMAT (CT) 

GET (CT) 

LIST 

OPEN (CT) 

RE^-\D 

SCWA 
TRTSC 



Processes end- of- program marker and releases control . 

Processes the FORMAT statement and format lists. 

Processes GET and PtJT statements. 

Processes data lists. 

Diagnoses OPEN and CLOSE statements. 

Checks the syntax of RECORD I/O statements READ, WRITE, REWRITE, and 
DELETE. This routine also checks for permissible combinations of 
these statements. 

Main scan of this pass. 

Skips over all statements other than I/O, moving them to the output 
text. 



._j 
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Table CV. Phase CV Read-In Fifth Pass 



Statement or Operation Type 



JMain Processing! 
Routine 



1 Identifies statements for which it |SCNA 
I must build chains j 

i i 



Subroutines Used 



ICALLIN, CHAIN, DECL3, D03, END3, 
IENTRY3, EOP, POAl, PRCX:3, TRTSC, 
I and those subroutines contained in 
{modules CA and CC. 



—J 



Table CVl. Phase CV Routine/Subroutine Directory 

r T — 

I Routine/Subroutine I 

I" 



Function 



I 



CALLiN (CW) 
CHAIN 

ch£ckon 

DECL3 

DO 3 
END3 
ENTRY 3 
EOF (CW) 
IL^SN (CW) 
POAl 

pool 

PR0C3 
SCIilA 
SCNZ 
TRTSC 



Makes up the CALL chain. 

Forms chains. 

Checks the fifth pass stack for ON entry, in order to insert 
PROC-END statements round the ON unit. 

Chains the DECLARE statement to the appropriate PROC or BEGIN 
statement. 

Makes a stack entry for DO block. 

Checks the fifth pass stack. 

Makes an entry in the ENTRY chain. 

Processes end- of- program marker, and releases control. 

Creates pseudo-assignment statements for initial labels. 

Analyzes prefix options in greater detail. 

Processes check lists. 

Makes an entry in the PROCEDURE- BEG IN chain. 

Main controllino routine of the pass. 

Extracts statement number for label entry. 

Skips over statements not required for analysis in this phase. 



._j 
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Chart 03. Dictionary Loaical Phase Flowchart 



•INITIALIZN EG* 
•-»-»-•-•-»-♦-♦-» 
•SET UP HASH TAB* 
*i INSERT TABLE * 
*EiNTRIES IN CHNS* 
***************** 



•****B1********** 
•CREATE DICT EOT* 
*f>OR PROC. BEGIN* 
•AMD EOTRt STMWr* 
♦AND SETOP ENTRY* 
• TYPE 1 CHAItIS • 
•**•*****•**•**** 



•»•* •CI* •**••**•* 
•DECL PASS 1 EI* 
•-•-*-•-♦-»-*-*-• 
•SCAN DECL CHAINS 
•PREPARE ATTRIBS* 
•FOR NEXT PHASE • 
***************** 



••••*D1*** *•***•• 
•DECL PASS 2 EK^ 
•-*-*-*.*-*-*-*-* 
*SCAN DECL CHAIN* 
•HAKE ENTRY FOR * 



*****E1* •••**••** 
•COHMUNICATNS £?• 
•-*-•-*-•-•-•-•-* 
♦SET LATE PHASES* 
•WANTED OR UNHTD* 
• ACC TO FLAGS • 
**•*•••*•**•*•••* 



•••••Fl^*****^^*^ 
•SCAN EHT TYPE !• 
•CHN MAKING ENT • 
•TYPE 2 13 DICT* 
• ENTS FOR DATA • 
•TYP RET BY PROC^ 
•**•****•***•**** 



*****G1*** *•••••• 

• SCAN CALL * 

• CHAIN MAKING * 
•Die ElfTRIES FOR* 

• EXTERNAL ENTRY * 

• NAMES * 
•****•••••**••*•• 



HI •. 

.* DOES *. 

. • PROGRAM * 

.COirrAIN LIKE 

•. ATTRIBUTE. • 



*. 



*-*-•-•-•-•-•-*-• 
->*SCAH LIKE CHAIN* 
• EXPAND ALL • 
•LIKENED STRUCTS^ 
•••••••***••*•*•* 



.•ALLOCATE OR*. YES 

*PTR. (HIALIFIER.* 

*IN PROGRAM.* 



*****J2 ********•• 
•ALLOCATE EY^ 
•-*-*-*-*-•-*-••* 
->»COPY DICT ENTRY* 
*0F ALLOCD ( PTR* 
•QUA£FD VARIABLS* 
***************** 



**«*«K1**^*****^^ 
•CONTEXT FA* 
*-*-*-*-*-♦-*-»-♦ 
*SCAN TEXT. MAKE*- 
* ENTRY FOR COND * 

— s • 

t** 



•****K2*** ***••** 

• MAKE DICT • 

• ENTRIES FOR • 
-> •CONSTANTS USED •- 

•IN THE PROGRAM • 

• * 
•**•***••*•«*•••* 



*****A3* •*«•••*• 
♦BCD-DICT REF PE 
»-»-*-*-»-♦-•-•- 
->• CHANGE BCD TO 

• DICTIONARY 

• REFERENCES 
*****•**•*•<***• 



•****B3*****>**«» 
*CHECK FI* 

*CHECK VALIDITY* 

* OF DICTIONARY • 

* REFERENCES * 



03 *. 

.* SETS *. 

.* OR USES » 

•.ATTRIBUTE IN 

• . PROGRA^S .• 

• . .* 

•. . • 



->^PROCESS SETS ( 
* USES LISTS IN 
•THE DICTIONARY 

****•*•**•*••••• 



FO* 



***^^03^***** 
*0N 

*-*-*-♦-*-*-« 
*CONSTRUCT DICT * 

* ENTRIES FOR • 

* ON-CCWDITIONS * 
*•**•*******•*•*« 



*****E3** ******** 

* REPLACE BY AN * 
* ERROR STATEMENT* 

* ANY STATEMENT * 
♦CONTNG A DUMMY * 
♦DICT REFERENCE ♦ 
***************** 



. ♦ ANY * 

PICTURES 

IN THE 

. PROGRAM 



* PICTURE FQ* 

*-*-*-*-*-*-•-*.* 

->*CHECK VALIDITY • 

* OF PICTURE * 

• CHAIN • 
***************** 



***•**•*****•**•* 



*****H3*** **•••** 

* UNCOMMON * 

• PICTURE AND • 
•DIMENSION TABLE* 

• DICT. ENTRIES * 

* * 
*•**•******•***•* 



*****j3* ********* 

* 2ND FILKRGE FV* 
*-*>*-*.*-•-*-*.* 
•AFTER ALLOCATE •- 

* PROC OR BEGIN * 

* STATEMENTS * 
*•••••*••••***••* 



* ****JI|********** 

* PROCESS ♦ 

* ADJUSTABLE • 
->* EXTENTS ON * 

*BASED VARIABLES* 



. * ATR • 
,* OR XREF 
LISTING 
*. REQUIRED 



<•->* Bl 

• « 
**** 



• **KI|* •••••*•**• 

* PRINT ATR ♦ 
-> AND/OR XREF 
* LISTING » 

*•*•***•******•* 



• •** 

*0M « 

■>♦ Bl 
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chart EG. Phase EG Overall Logic Diagram 



*t***Al** **••**** 



***************** 



CAM V 

*****B1*** ******* 

* INSERT lABELS • 
*IN HASH CHAINS.* 

* CHECKING FOR * 

* MOLTIPLE ♦ 

* DEFINITION • 
***************** 



*****C1*** ****** 

* SCAN 

* PROC-BEGIN 

* CHAIN 

**************** 

***• 

* * 

* Dl ♦-> 

* * 
**** 

Dl' 



**** 

* * 

* D2 • 

* • 
***• 



***************** 



* NO 

L**** 
»EI * 
>» A2 * 

• * 
**** 

NOTE: 

GOES TO PHASE EP 
IF THERE ARE NO 
DECLARE STATEMENTS 



***************** 



CFORP 

•****03* ********* 

* SCAN FORMAL * 
•PARAMETER LIST * 

>» AND CREATE »- 

* P.P. TYPE 1 • 

* ENTRIES * 
*•**•**•*•***•*•* 



»****E3********** 



***************** 



*****F3********** 



***************** 



»****Alt********** 
» ENTRY ♦ 
>*********•**•**« 



»****Blt ******«**« 

• MOVE • 
» SUBROUTINES * 
» INTO SCRATCH * 

• CORE « 

»**•*********•**« 



****C4********* 

* RELEASE * 

* CONTROL * 

* 4 

**•»•********** 



CTYPBL 

*****Dtt* ********* 
•SCAN ATTRIBUTE ♦ 

• LIST. CREATE * 
>• ENTRY TYPE 2 •- 

* FOR THE ♦ 
*STATEH£NT LABEL* 
***************** 



4 



t***«D5****t***»« 

• CHAIN « 

• VARIOUS • 
» ENTRY OICT < 

• ENTRIES > 



•****£5 *•*«•••••• 

» UPDATE « 

• MAPSTACK IN • 

• SCRATCH • 

• STORAGE * 

•***************< 



>***f J********* 



**** 

* Dl » 

* * 
• *** 



**•* 

* * 

* D2 ♦ 

* • 
• *•• 
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*•*••*•**••*•*• 



TEST FOB: 

CHARACTER. BIT. PICTURE, 
USES, SETS, DEFINED, 

POSITION, Like, 

DIMEHSIONS, INITIAL, 
INITIAL CALL. LABEL, 
PRECISION, oIfSCT, 
BASED, AREA 



B3 • 

« 



CCGSE 

***»*B2*** ****** 

* PICK UP 

* NEXT ENTRY 

* IN DECLARE 

* CHAIN 
* 



COOTINOE 

SCAN OF 

DECLARATION 

**••**•*******» 



C2 *. 
.* TEST *. 
.* FOR *. YES 

FACTORED . * 

♦ATTRIBUTES.* 



CCPLP, CCFRP 



->* 



». 



.• 



•«*i*C3* *•••**•** 

REPLACE * 

PARENTHESES * 

BY SPECIAL * 

CODES FOR * 
LATER PHASES * 
•**•******•****• 



•****D3* ********* 

* PARTIALLY * 

* PROCESS THE * 
->* ATTRIBUTE TO *- 

* ASSIST LATER * 

* PHASES * 
***************** 



* 


GENTRY 


E2 *. 


*****E3* ********* 


* TEST *. 


* KEEP A COUNT ♦ 


FOR *. YES 


• OF THE * 


ENTRY OR .* 


>* PARENTHESES TO * 


GENERIC .* 


*ASSIST FACTORED* 


*. .* 


*ArrRIBUTE SCAN * 




***************** 



♦ TEST * 

FOR 

END OF 

DECLARE 



*••* 
3 * < 
>* B3 » 

* « 
**** 



CSGSOO .*. 

G2 *. 
.* TEST *. 
NO .* FOR END 

*. OF DECLARE 

*. CHAIN . 



» YES 

I**** 
•EL * 
->* Al < 
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* * 








* 










El J 










• *** 










* 








• •• 


SCANH 


• ♦. 




CI ♦. 


*****C2********** 


C3 •• 




• ♦ ♦• 


* * 


. • ♦. 


*#•* 


.* END ♦, NO 
♦. OP CBAIN ,*—■ .-, 
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.* END *. YES 


.>:bi 


*. .» 
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— — >♦, OP CBAIN , *— - 
*. .* 


•• •♦ 


• * 


*. . » 


♦ ♦** 


♦. .» 




♦• •• 




* «S 


/> 


* MO 




1 *••• 












1 'EP * 












i->* »1 « 












* * 












*•** 




YES 










, 




CDCLSC V 






D2 *. 


••***D3*******»** 






.* ♦. 


* PICK UP NEXT * 






.♦ END CP •. NO 


* IDENTiriER * 






* . DECLARATION *«.- 


_.__^*Tu nv^T ftDATTnU * 






•: LIST .» — 


♦ LIST • 






*. .» 


* * 








», 


.* 









* DECIDE t 

* NATURE OF * 

* IDENTIFIER * 

* i 



ATLSCti V 

•****F3* *•*•*•*• 4 

* APPLY < 

* ATTRIBUTES IN • 
» ATTRIBUTE < 

* LIST * 



♦ APPLY « 

♦ PACTORK) < 

♦ ATTRIBUTES * 

♦ 4 
•***************4 



IHFATT ' ' 

*****U3********** 

♦ APPLY ♦ 

♦ IKPLXCIT * 

• AND DEFAULT * 

* ATTRIBUTES * 
« * 



CDICEN V 

*****J3**«******« 
• MAKE * 



IDENTIFIER 
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* CCNDITIOHALLY • 

* KARK PHASES » 

* WANTED AND • 

* NOT WANTED * 

* * 
*•*•*•••***•***** 



rPL20 V 

••***B1 ********** 

* GO TO » 

* FIRST ENTRY * 

* IN *- 

* ENTRY TYPE 1 * 

* CHAIH * 
**•******•*•*••** 



* GO TO DICT • 
>* ENTRY FOR *- 

* FIRST LABEL * 

* * 
•**•*••••******** 



EPL75 « 

*****B3********* 

* CONSTRUCT 

* ENTRIES 
>* TYPE 2 AND 

* 3 IF NOT 

* THEKE 
••*•****•*•****• 



t?L10(J^^ -,1,,.. 



* * 


GC TC . 


ICT • 




ENTRY 


fvj!* » 




■iEXT LAEEL • 


* 




• 



EPLUO V 

•****C2********** 

* GO TO NEXT * 

* ENTRY IN * 

* PROCEDURE *- 

* ENTRY CHAIN * 



EPL600 

* GET TEXT * 

* REFERENCE * 

* OF START OF «< 

* CALL CHAIN * 

* • 
****••***•***«•** 

***• 



El ..,_ 

END *. NO 

°?hS?S'' .*• 


*****£2*** ****** 

: ofg^SoSXiY 

— *: idI§?i?!!Ir 


*. •* 

» YES 
1 **** 

*EU * 
L->* Al ♦ 





CONTROL PASSED TO 
PHASE EW (OPTIONAL) OR 
PHASE EY (OPTIONAL) OR 
PHASE FA (NON-OPTIONAL) 



• '. (All 

* . VALID 



EPL360 

*****G3********** 

* REPLACE * 

* BCD BY * 

* DICTIONARY *- 

* REFERENCE * 

* * 



»*****••*« 



. *IDENTIFIER 
. BUILT-IN 
*. FUNCTION . 



* GENERATE 

* ERROR 
>* MESSAGE 

* INSERT OUHMY 

* REFERENCE 
••**•**•*•***•** 



* REFERENCE 
>* OP NEXT 

* ITEM IN 

* CALL CHAIN 
***•••****•***** 



CCICEN 

*MAKE DIClIOMARlt 
» ENTITY USING 

>* DEFAULT SULL3 

* FCP DATA TYFF 



***•••••« 



EPL360 

* REPLACE 

* BCD BY 



***•••***•*••« 
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EHBEGN 

»***»l^X* ********* 

* INITIALIZE. » 

* GET SCRATCH • 

* STORAGE AND ♦ 

* FIRST ITEM IN * 

* LIKE CHAIN * 
***************** 



**•* 



FWSTBT 

*****B1********** 

* • 

* SAVE ADDRESS * 

* CODE BYTES * 

* LEVEL ETC ♦ 

* * 
***************** 



♦SCAN DICTIONARY* 

* FOR STRUCTURE • 

* WITH SAME BCD * 

* * 



V 
.*. 

Dl *. 
.• IS •. 

THIS A *. 
VALID 
.STRUCTURE.* 



El *. 

.* IS *. 

.♦ ORIGINAL • 

. STRUCTURE 

». DIMENS- .* 

*.IONED.* 



PI ». 

.♦IS THIS*. 

• ELEMENT * 

DIMENSIONED 



• ****j)2********* 



*****•♦**•***« 



EHORDM .*. 

E2 *. 
.*IS TaiS*. 
.NO .* ELEMENT *. YES 
.♦ >♦. DIMENSIONED .* 



*****D3********** 

* PICK UF * 

* STRUCTURE • 
->* KITH THE LIKE ♦- 

* ATTRIBUTE ♦ 

* * 
***************** 



♦COPY STRUCTURE * 
->♦ ELEMENT INTO * 

• SCRATCH • 

* * 
***************** 



♦COPY STRUCTURE * 

♦ ELEMENT INTO ♦ 

♦ SCRATCH ♦ 

♦ * 
•♦*••♦**•*♦•**♦** 



EWONDM 

»»*t»f2********** 

♦ EXPAilDS » 

♦ ENTRY INTO ♦ 

♦ SCRATCH WITH ♦ 

♦ NEW ♦ 

♦ DIMENSIONS * 
♦♦♦♦♦♦♦♦♦♦♦***•** 



. ♦ IS * . 
.» THIS A ♦. 
->*. MAJOR 

•.STRUCTURE.* 



*ERROR MESSAGE. * 
» CHAUGE itNTRY *< 

• TO A C8 » 

* ENTRY * 
**•*•*****•«***** 



*****fi**»»****** 

* CALCULATE NEW * 

* NUMBER OF ♦ 

* DIMENSIONS. ♦ 

* PICK UF ♦ 
♦DIMENSION TABLED 
**********••*••** 



G3 ♦. 

. * ARE ♦ . 

.♦ THERE ANY 

. VARIABLE 

♦. DIMENS- . 

♦.IONS .♦ 



• *** 

• « 
» J2 * 

* « 



ENINCH 

♦ MAKE DICT ♦ 

♦ ENTRY. UPDATE ♦ 

♦ FORWARD AND ♦<- 

♦ HASH CHAINS * 

♦ * 
***************** 



♦ . 



EWELDM V 

♦•♦**H2***^^^^^^^ 

♦ COPY ENTRY. ♦ 

♦ INCLUDE ♦ 
♦ DIMENSIONS IF ♦ 

♦ PRESENT ♦ 

♦ ♦ 
*♦♦♦♦♦♦♦**♦***•** 

**** 

♦ * 

♦ J2 



♦♦♦♦ 

.♦. 
Jl ♦. 
.♦IS THIS^. 
.* THE END 
». OF A NEW 
♦ . STRUCTURE. ♦ 
.♦ 



► J2 ♦— , 

* * 1 

**** i 



♦ , 



♦ YES 



ALIGU f 

*****K1^^*^*^***^ 

♦ CORRECT ♦ 

♦ ALIGNMENT OF' ♦ 

♦ LIKENED ♦ 

♦ STRUCTURE ♦ 

♦ * 
•*•**♦*♦•♦♦*♦♦♦** 



J2 ♦. 

.♦IS THIS^. 
♦ THE END ♦ 

OF THE LIKE 

♦. CHAIN .♦ 

♦• •♦ 

♦. .♦ 



♦ ♦♦* 

» El * 
> * 

**** 



EHEND 

♦♦♦♦ ♦J 3^ ♦♦**♦♦♦♦* 

♦ GO TO ♦ 

♦ END ROUTINE * 
>* TO RELEASE ♦ 

•SCRATCH STORAGE* 

♦ * 
**♦••♦♦•**•♦**♦♦♦ 

I •**• 

♦ EY * 
l->* Al * 



*****G ■)********** 
*SCAN DIMENSION * 

* TABLE FOR * 
>* VARIABLE * 

♦DIMENSION EOTRY* 

* • 



EH2FNT 

*****!)■(**•**•*••* 

* COPY • 
*2ND FILE DICT. • 
*ENTRY AND TEXT * 

* FOR ENTRY * 

* * 
***•*****••****•« 



JD 



.*. 



*, 



fVELDM 

••***J5**«****««« 

* COPY ENTRY UP • 

* TC THIS FCINT • 
— >♦ INTO SCRATCH. ♦ 

* ADD DEFAULT » 

* VALUES • 



£WHsc:i ' < 

•****C5**** •••••« 

* PUT COPY IrtTO « 

* DICTIONARY. « 
» UPDATE « 

* STRUCTURE Ai40 • 

* HASH CHAIN « 
**♦•**♦•*****♦•*• 



**** 
END CF *. YES ♦ « 

DIMENSION .♦ >* Jl ♦ 

. TABLE .* ♦ * 
*. .* **** 



PHASE FA (NON-OPTIONAL) 
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* REVERSE * 

* Pi'CONC FILE « 

* POIilTERS • 

* * 



EYie 

•****B1 ********** 

* SCAN PROC * 

* AND DECLARE * 

* CHAINS FOR * 

* ALLOCATE * 

* STATEMENTS * 
***************** 



* EXAMINE EACH ♦ 

* ITEM AND PICK * 

* UP RTTRIB01E3 » 

* • 
**•*••**•**•***** 



EY21 

*****E1**** ****** 

* IF ITEM IS * 
♦STRUCTORE.CHECK* 
*DBSCRIPTION IN « 

* ALLOCATE HITH * 

* DECLARATION * 
***************** 



DICBLD 

*****F1 ********** 

♦ BAKE HEH DICT * 
*EMrRY FOR EACH • 

* ITEM. copyi;«3 • 
*AnP.IEOTES FROM* 

• CCCLARATION * 
*•••***•••******• 



MOVEST 

*****G1* ********* 
*COPY ANY SECOND* 

* FILE STATQtENTS* 
I * ASSOCIATOD * 

* WITH « 

* DECLARATION • 
***************** 



SCAN TEXT 



03 ♦. 
.* D.E. *. • 

.ALREADY MADE*. NO * COPY 

».FOB VRR WITH .* >* VARIABLE'S D.E, 

*.THIS PTR .* * 



NO 


* 


END * 








OF TEXT 






* 


.« 
*. .♦ 
*. .* 
* YES 
1 **•* 








1 *FA * 






l->» A2 





**«**£3* ••**•**•* 

* • 

* REPLACE PTR * 

* AND VARIABLE *- 
*IN TEXT BY D.R.* 
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CE32 

*****A1.** •*••**** 

* MOVE BYTE • 

• PROM INPUT * 
» TO » 

• OUTPUT AREAS » 

* * 



» El »-> 



CE31 

•****B1 ********** 

• BUMP OUTPUT * 

♦ TEXT POINTER ♦ 

* AND CALL • 

♦ CEHDTS « 

* * 



lEMFA 

«****A2* ********* 
*1NITIALIZF. GET* 

* SCRATCH CORE, * 

* IHPUT/OUTPHT * 

* TEXT BLOCKS. • 
*SET UP POINTERS* 
*******•*****•••* 



CE300 

•****B2* ********* 

* PICK UP TEXT * 
*BVTE. SAVt HIST* 

— >*TRANSLATiS EVTE • 

* AMD EXECUTE * 

* TRANSFER ♦ 
***************** 



•**•*****•*«****» 



* CALL CECON * 

• CONSTANTS * 

♦ ROUTINE » 

* * 
***************** 



CEKEY 

*****P2********** 
*PICK UP KEYWORD* 

* TRANSLATE, * 

* AND EXECUTE * 
» RELEVANT * 

* TRANSFER * 
***************** 



CE2L 

*****F3* ********* 
*SAVE 2!)D LEVEL * 
*CODE BYTE THAT * 

♦ FOLLOWS. * 

♦ SET 2ND LEVEL * 

♦ SWITCH * 
***************** 



CEBNK 

«****fl|**«***«*** 

• IF VALID DICT * 
*REF MOVE TO 0/P* 

* ELSE SKIP TO * 

* NEXT BLANK OR * 

♦ NON ZERO BYTE * 
***************** 



CFLP.CLHP 

••***p5********* 
*FOK < lilCRi'ASE 



BRACKET COUNT * 



CEISUB 

*****G1*** ******* 

* HOVE SUB * 

* AND BINARY * 
» CONSTANT ♦ 

* TO OUTPUT * 

* * 
***************** 



* CLEAR FLAGS * 

* AND * 

* BRACKET COUNT * 

* * 
***************** 



CEDNAX 

*****Q2* ********* 
*MOVE TEXT FROM * 
•INPUT TO OUTPUT* 

• TEXT UNTIL * 
*" SIGN IS FOUND* 

* * 
***************** 



* GO TO PICTURE • 

* ROUTINE * 

* IN lEMFB * 

* * 

*•*•*****•*•***•* 



. * THIS A ♦. 

. SUBSCRIPTED . 

♦.QUALIFIED.* 

*.NAME .* 



*****H3* ******** 

* MOVF 

» SUBSCRIPTS 

* TO END OF 

* QUALIFIED 



->* 



.* THIS A *. 
. CONTEXTUAL . 
*DECLARATION* 



*****!] ||*«******t 

* HOVE 
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TO OUTPUT 

* BLOCK 
» 
»*********•****< 



CEKSS 

*****li5*******»*« 

♦STORE RELEVANT • 

♦ STATE HE in » 
*NUMBCR MOVE SN • 

♦ El'C TC CUT Put • 

♦ TEXT ♦ 



CEKPRC 

*****jl* ********* 

* UPDATE BLOCK ♦ 

* LEVEL AND * 
*COUtir AMD SKIP * 

* OVER CHAINS * 

* * 
***••**•***••**** 



* REMOVE SN. ETC * 

* FROM * 

* OUTPUT TEXT » 

* * 
***************** 



*****K2* ********* 

* • 

* SKIP INPUT * 

* POINTER TO * 

* SEMICOLON * 

* * 
***************** 



* DUMP « 

* INPUT POINTER • 
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* * 
***************** 



GET NEXT 

BLOCK 
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*************** 



***************** 



* UPDATt tND OF 
•TFXT RlFhBEi«;E 

* RELEASE INPUT 
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CFKC.I 

*«***J *)*•***••*** 
*HOVE BLOCK LKVL* 
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•CCND TC C/P r.t*! • 
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;• 


"SET NLW • 
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Mol i.OmiliR ♦ 


* 
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• * 

• GET START * 
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•*•**••*•••****** 



•*•***•*•******•* 



.*. 
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*. .* 



*. EOF 



• •** 

* * 
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* * 
**•• 



CEKPRC 

*****B2********** 
*MOVE STATEMENT * 

* TO OUTPUT, ♦ 
>* OMITTING *- 

* I, AND C * 

* * 
*•*****•*•••*••*• 



CEKEND 

•****C2* ********* 
*MOVE STATEMENT * 
TO OUTPUT, 



->• 



*****B3** ******** 

* BUMP • 
INPUT POINTER * 

TO NEXT « 

STATEMENT • 

• * 
»*•••****•*•**••* 



>* INSERTING L AND*- 

* C OF CONTAIN- * 

* IHG BUJCK * 

***************** 
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•*•* 402 ********** 
*MOVE STATEMENT * 

* TO OUTPUT, * 
>* INSERTING I, AND*- 
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» BXTE * 
***************** 



E3 



ERX 



***************** 



• UPDATE * 
->* INPUT POINTER * 

• OVER REF * 

• « 
***************** 



FOOHD 

'*. .** 
*. .* 
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* MAKE 
—>* DICTIONARY 

* ENTRY 

* 
*•******•••***** 



*****F3* **•*•***• 

* • 

* UPDATE * 

* INPUT POINTER *~ 

* OVER BCD * 

* • 
***************** 
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***************** 



.* PRECEDING *. YES 

->*.DICT REF FOR .* 
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H2 



->*. FIRST 

*. 

*. .♦ 

*. .* 
* NO 



*****J2********** 



•****G3** ******** 

* * 

* INSERT • 
>• SUBSCRIPT • 
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* OOTPOT * 
*•••*•*••*•••**** 

**** 

* * 
->* A2 * 

* * 

• **• 

*****H3********** 

* * 

* UPDATE START * 
>♦ OF 2ND FILE * 

* POINTER * 

* * 
•••***•••*••••*** 

I .•-. 

l->* A2 * 

* * 

• *** 

*** 
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*****A1********** 



* STORAGE. GET *- 

♦ FIRST INPUT « 

• TEXT BLOCK • 



CESTRT V 

*****A2* •*****•** 

* LOOK AT BVTE * 

♦ AND TAKE * 
>* APPROPRIATE *< 

* BRANCH * 
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•*••*••********** 
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.* * 
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CEKEVN 

• TRANSLATE * 
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• RELEVANT • 
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*****C3********** 
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• SECOND *. YES 
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•TRANSLATE BYTE * 

• AND • 

• EXECUTE * 
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• TRANSFER • 



• BUMF 
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**** 
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D3 •. 
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• SAVE * 

• STATEMENT • 

• NUMBER. SKIP • 
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*. OR KEYTO 


,* 


.... 




*. LAST EOP .• 
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• . .• 
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Chart FK. Phase FK Overall Logic Diagram 



GETSCK 

*****A2********** 

• GET SCRATCH • 
» STORAGE. • 
» IHITIALIZE •- 

• CONSTANT * 

• STACK * 



FOIA V 

♦SCAN ATTRIBUTE ♦ 

• TIDY UP AREA * 
>• FOR NEXT * 

• REFERENCE TO • 

• SETS ENTRY • 



END 

OF 

AREA 



». 
*, 

• *** 

• • 

• C3 *-> 

• * 

• *** 



•****C3* •**•***** 

♦ SCAN SETS * 

♦ LIST IN • 

• DICTIONARY * 

» ENTRY » 

* * 



ENDFO 

* RELEASE 

• SCRATCH 
>• STORAGE. 

* RELEASE 

♦ CONTROL 



*F0 » 
• Al« 



ro« 

* INSERT * 

* COONTS OF * 
>• IDENTIFIERS •- 

* AND CONSTANTS • 

* IN SETS ENTRY * 



E3 •. 
.♦ ♦. 
.* 
*. IDENTIFIER 



•****05** ******** 

* INSLKT • 
*COHSTAHTS LIST * 

>* FROM STACK * 

* IN ENTRY ♦ 



->* A3 • 



* SCAN FOR * 
>♦ LAST • 

* QUALIFICATION * 



****F2*** ******* 

SET 

FLAG BIT 

IN SETS 

ENTRY • 

BUHPS PTR * 



*<- 



NQUL V 

HASH BCD 



CONPRO 

*****G2* ********* 

* PERFORM * 

* REVERSE 

* SCAN OF 

* CONSTANT 

* STACK • 



*<- 



L*l**« 



•****J1* 

* MOVE • 

* STACK « 
» ENTRY ♦ 

* DOHH ONE « 

* PLACE ♦ 



* C3 *< 



.*. 

J2 *. 

.*COMPARE*. 

CONSTANT * 

WITH NEXT 

. STACK .* 

*. ENTRY,* 

*. .* 

* SAME 



roERR2 

****K2********* 

SOURCE 

ERROR. 

WRITE 

DIAGNOSTIC 



. * DECIMAL 

INTEGER 

*. CONSTANT 



••***H3* **••*•*** 

* « 

* COMPILER * 

* ERROR. * 

* TERMINATE * 

* • 
••*•*•••******•** 



CONPA 

••***J3********** 

* liBERT * 

* CONSTANT IN * 
>• SLOT IN STACK *- 

* FOLLOWING * 

* CURRENT ENTRY ♦ 



* SCAN HASH * 

* CHAIN SAME • 

* BCD * 

* • 



Hfl *. 
FOUND 



1 



.* KNOWN *. 

. * AT POINT • * 

.OF SETS DECL- 

*. ARATION .* 



*****K«********* 

* INSERT 

* DICTIONARY 

* REFERENCE 

* IN StTS 



* * 

* ERROR. • 
►« WRITE * 

* CIAGNOSTIC * 

* * 
•••*••*•*••***••* 

I**** 
* ♦ 
->* C3 * 

**•• 

••••*J%** **•**••* 

* • 

* ERROR. * 
►• WRITE * 

* DIAGNOSTIC * 



ENTRY 
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Chart FO. Phase FO Overall Logic Diagram 



NEED 

TEXT BE 

MOVED 



>* SCAN TEXT 

* 

**************** 



•****B1********** 

« » « » 

♦ SCAN TEXT ♦< « Bl ♦ 

* * * * 

***************** 



MAKE DICT 

ENTRY FOB EACH 
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CONDITION 

PREFIX 



♦ . 



CI 
* • 
PROG 

OR 

BEGIN 

*. •* 

*. •• 

* HO 



->• 



*•*•****•*****•** 



***C3********* 
MAKE DICT 

•ENTRX FOR EACH 
DISABtED 
CONDITION 

• PREFIX 

**************** 



> ON, *. YES 

SIGMAL, . * 

>.0R REVERT.* 



*****E2********** 

* • 
♦MAKE DICT ENTRY* 

>• FOR PREFIX * 

* CHANGE BYTE * 

* * 
***************** 

**** 
* * 
->• GU * 



**** 
MVSIG 

*****f2* ********* 
* * 

*SCAN AUTO CHAIN* 

>* FOR ENTRY FOR *- 

*TH1S CONDITia» * 



.>:%' 



*HAKE DICT. ENTRY* 
» FOR FBEFIX • 
• CHANliE BYTE ♦ 



• CHECK 

OR NOCilFCK 
*. LIST 



. « INITIAL * . 

. LABEL ARRAY . 

♦ASSIGNMENT.* 

♦. .* 



***************** 



PPOIO .*. 

G2 *. 

.* FIRST *. 

.* INITIAL ». 

>». STATEMENT FOR. 

*. ARRAY .* 



.* LIST *. YES 
*.1TEM = LABEL .* — 
*. VARIABLE .* 



* MAKE ♦ 

* CN-CCNDITION * 

* DICT ENTRY ♦ 

* « 
****♦•**••******• 



*»«**Fq*********t 



********•♦>♦♦*♦♦♦ 



* 

* HAXC LnBLL 
->* VARIABLE BCD 

• DICT ENTRY 



************* 



. * 



♦♦***G3* ********* 

* MAKE * 

♦ SECOND FILE * 
>♦ DICT ENTRY * 

* FOR ARRAY * 

♦ ♦ 
♦♦***♦♦*♦♦♦♦♦*♦♦• 



CHAINING 
*IT TO PREVIOUS *- 
♦INITIAL STATEMT* 
* FOR ARRAY * 

***************** 



• ****(;d* **•*•**« 



1->* STATEMENT TO < 
* OUTPUT TEXT ' 
***•*******♦♦***< 
** 



>» Bl * 



^Si: 



♦ MOVE < 

* STATEMENT TO ♦ 

♦ OUTPUT TEXT * 

* 4 
***************** 
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• Chart FQ. Phase FQ Overall Logic Diagram 



» PQBl < 



•••**B1 ********** 



CYTABL V 

*****B 2*** ******* 
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• * 
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***************** 
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* ♦ 
*****••*•**•***** 



CYSDFM 
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* PICTURE * 

* CHARACTERS * 
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* * 
***************** 



*****r 3** ******** 

* * 
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***************** 
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**************** 



PROCESSES 
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* •***61.********** 
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•****G2********* 
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*************** 
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*•**••*•*****•* 



****G«***«****** 

* 

PROCESSES * 

PICTURE * 

CHARACTER Z • 

* 

**************** 
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Chart FT- Phase FT Overall Logic Diagram 



****A2******4 



*•*•*••**•*•*** 



-> <- 



AC2 .♦. AF-3 

B2 *. *****i33*«***«**»4 

» TEST *. » POINT THE < 

. • FOR ♦ . YES » RELEVAHT < 

*. SECOND FILE .» >» CICTIOBAPY < 

• .STATEMENT.* ♦ ENTRY AT THE • 

•MARKER.* • STATEMENT ' 

*. .* ***••••**•**•***« 
* NO 



NO .* TEST 

*. FOR END OF 

* . TEXT 



EVENT VARIABLE, 

LABEL VARIABLE, 

CONSTANT, 

LABEL CONSTANT, 

PROC, 

ENTRY, 

FILE PARAMETERS 

BUILTIN, 

BUILTIN GENERIC, 

FILE 



• *** 

* • 

* D2 *-> 

* * 

*****02* ******** 

* 

* 

*DICTIONARY SCAN 

* 
* 
**************** 



.* TEST *. YES 

*. DICTIONARY .* 

* . ENTRY . * 



TRVECT 

*****E3********** 
» CHAIN THE * 

* DICTIONARY * 
>*ENTRY INTO THE * 

* APPROPRIATE * 
» CHAIN * 
**•*•***•*•****•* 
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<■->* Bl * 

* * 
**** 



**** 

* * 

* D2 * 

* * 
**** 
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Chart FV. Phase PV Overall Logic Diagram 
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Chart FX. Phase FX Overall Logic Diagram 
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♦♦*♦♦♦♦•**•♦♦♦♦• 
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* * 
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* * 
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***************** 
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LISTING 

REQD 
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SCAN CHAIN OF 
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NUMBERS AND 
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**************** 
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Table ED. Phase ED, Initialization 

I I Main Processing! | 

j Statement or Operation Type | Routine j Subroutines Used j 

I Sets up routines in scratch storage! SETUP JNone j 

I for phase EL | j j 



Table EDI. Phase ED Routine/Subroutine Directory 



i Routine/Subroutine! Function | 

I EVENT I 

(TASK I 

I CELL I Routines for processing declared attributes. These set up 

I BASED j information in the attribute collection area of scratch core, 

I POINTER I for reference by CDICEN, etc., in phase EL. 

I OFFSET I 



Table EG. Phase EG Dictionary Initialization 



I Main Processing! | 

j Statement or Operation Type j Routine j Subroutines Used j 

I Hashes labels !CAA1 !CHASH, CBCDL2 | 

! PROCEDURE-BEGIN chain |CA7 ! None | 

! BEGIN |CA8A I None j 

! PROCEDURE !CAPROC | CANATP, CFORP | 

! ENTRY ICAIO | CANATP, CFORP | 

I Formal parameters ! CFORP !CHASH, CBCDL2 | 

I Attribute list ! CANATP |CAPRE1, CATCHA, CATBIT, CATPIC | 

{Creates entry type 2 entries for JCTYPBL !ENT2F, CDEFAT | 

! labels | | j 
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• Table EGl. Phase EG Routine/Subroutine Directory 



JBbu-tine/Subroutinei Function | 

CAAl 



CANATP 
CAPROC 
CAPREl 
CATBIT 
CATCflA 
CATPIC 
CA6 

CA8A 
CAIO 
CBCDL2 

CDEFAT 
CFORP 
CHASH 
CTYPBL 
ENT2F 
TYPW 

OPTNl (EF) 
0PTH2 (EF) 
OPTN3 (EF) 
ATTRBT (EF) 



Scans label table and hashes labels. 

Processes attribute list. 

Processes PROCEDURE statements. 

Processes precision data. 

Processes BIT attribute. 

Processes CHARACTER attribute. 

Processes PICTURE attribute. 

Scans the PROCEDURE-BEGIN chain for the relevant statements, and 
sets bits in Dictionary entries for optimization options on 
PROCEDURE and BEGIN statements. 

Processes BEGIN statements. 

Processes ENTRY statements. 

Traverses the hash chain looking for entries with the same BCD as 
that just found. 

Completes data byte for entry type 2 entries by default rules. 

Processes formal parameter lists. 

Obtains an address in the hash table for an identifier. 

Creates entry type 2 entries for labels. 

Creates or copies second file statements. 

Scans ENTRY chain. 

Checks containing block options, for inheritance. 

Processes procedure options. 

Performs post processing, makes STATIC DSA decisions. 

Processes POINTER, OFFSET, and AREA attributes. 
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Table EI. Phase EI Dictionary Declare Pass One 



Statement or Operation 



{Main Processing! 
Routine 



Subroutines Used 



j Scans DECLARE statement JCCGSO 
|. + 

I Scans text |CCGS2 
^ + 

I Processes structure level |CCGSCM 
|. 

I Factored attribute, left 
[parenthesis 



JNone 

-H- 

I rione 



JNone 
._+ 

jCFPMCR 

I ^ 

None 



■H 



I Factored attribute, right 

j parenthesis 

1- 



JCCFLP 
I 

ICCFR? 
I 



1 



I Data following DEFINED attribute 

I POSITION 

I CHARACTER, BIT 

^ 



jCCDEF INEWBLK, CTXTRM 

I POSIT I None 

I CHABIT I CTXTRM 



I PICTURE 
j. 

I LIKE 

\ 



I CATPIC 

■+ 

I LIKE 



None 



None 



I KEY 

j Dimension 

I Precision 

I INITIAL 

I INITIAL CALL 

1 OFFSET 

\ 

I EASED 

I" 



I KEYED 
I CDDIMS 
I CDPREC 
I EJINIT 

I INCALL 

-+ 

I OFFSET 



I None 

I CTXTRM, AST, TOMENE, ERRORS 

lERRNEG, SCLBIG 

ICECON, EHINIT 

I CTXTRM 



-^-+. 



CTXTRM 
4 

I PTVEXP 



I AREA 



(BASED 
4 ^, 

I AREA 
.X 



CTXTRM 



._J 
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Table Ell- Phase El Routine/Subroutine Directory 



j Routine/Subroutine j 

^ + 

AREA 

AST 

BASED (EH) 

CATPIC 

CCDEP 

CCFLP 

CCFRP 

CCGSCM 

CCGSAT 

CCGSE 

CCGSOO 

CCGS2 

CDDIMS (EJ) 
CDPREC (EJ) 

CECON (EH) 

CFPMCR 
CHABIT 
CSGSOO 
CTXTRM 



Function 



EHINIT (EH) 

EJINIT (EJ) 

ERRNEG 

ERRORB 



Processes AREA attribiites. 

Deals with the case of* dimension bounds mixed with non -♦ bounds. 

Entry point in OFFSET routine, at which second file statement is 
made. 

Processes PICTURE attributes. 

Processes data following DEFINED attribute. 

Processes factored attributes (left parenthesis). 

Processes factored attributes (right parenthesis). 

Processes structure level. 

Attribute routine selector. 

Scans DECLARE chain. 

Scans text- 

Scans source text. 

Processes dimension attributes - 
Processes precision attributes. 

Ma]ces a dictionary entry for a constant unless one has already been 
made. Returns the dictionary reference of the constant entry. 

Obtains more storage for the factored attribute table. 

Processes CHARACTER and BIT attributes. 

Detects end of DECLARE chain. 

Tests for space in current text block and obtains new block if 
necessary. 

Processes the INITIAL attribute except for the initialization of 
label variables and INITIAL CALL. 

Processes INITIAL attribute and LABEL with a label- constant list. 

Deals with the case of a negative precision specification. 



■H 






Deals with the case of lower dimension bound declared greater than 
the upper bound. 
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Table Ell. Phase EI Routine/Subroutine Directory (cont'd) 

Fiinction 



r T 

I Routine/Subroutine | 



— 1 

I 

■H 



GENTRY 
INCALL (EJ) 
IVROOM (EH) 

IVPUTL (EH) 

IVPDTC (EH) 
IVPUTO (EH) 

KEYED 
LIKE 
NEWBLK 
OFFSET (EH) 
POSIT 
PTVEXP (EH) 

SCLBIG 

SECON 

SETS 
TOMENE 



Keeps a count of parentheses in GENERIC and ENTRY processing. 

Processes INITIAL CALL attributes. 

Checks if there is space in scratch storage for another entry. If 
not, it makes a dictionary entry and chains it to the previous one 
or to the C8 in text as required. 

Places a dictionary reference in the 'initial list* for a label 
constant. If the constant is not known, a dummy reference is 
inserted. 

Places a dictionary reference in tne 'initial list* for a constant. 

Places the dictionary reference of zero in the 'initial list' for a 
negative or imaginary replication factor. 

Processes KEY attributes. 

Processes LIKE attributes. 

Obtains new text block. 

Processes OFFSET attributes. 

Processes POSITION attributes. 

Entry point in OFFSET routine, at which secondfile statement is 
made. 

Deals with the case when a precision specification for fixed-point 
data is declared too large. 

Creates a dictionary entry for a constant provided the appropriate 
entry has not been already made. 

Processes USES and SETS attributes. 






Deals with the case when t*he number of dimensions declared is 
greater than 32. 



—J 
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Table EL. Phase EL Dictionary Declare Pass Two 

r T T- 

Hain Processing! 
Statement or Operation Type 






Processes factor brackets and level JDCIDPR JTEMSCN, 
numbers 

Scans for next level number 



Scans chain of DECLARE statements 



Scans each item of DECLARE 
statement 



CDCLSC 



lATLSCN, 
CDIMAT, 
SELMSK, 

Initializes each identifier 
declared 



Processes BCD of identifier 









Hashes BCD of identifier 



Scans list of attributes following 
identifier 



Applies factored attributes 



+ 



Attributes controlling routine 



Routine 



Subroutines Used 



CGENSC 



4 

I CDCLSC 






INTLZE 



i DCIDPR 



BCDPR, CDFLT, CDICEN, 
DCIDPR, INTLZE, POSTPR, 
STRPR 



BCDPR 



TEMSCN 



I CDATPR 






BCDPR 



IBCDISB, CRASH, SELMSK 



CHASH 
ATLSCN 



I None 

1— ^ 

I CDATPR 






CDFATT 



CDATPR 



IMPATT 



None 



Applies implicit attribute 



CDATPR 






CDAT40, 
|CDATt»4, 
I CDAT4A, 
JCDATUF, 
ICDAT57, 
ICDAT61, 
icDAT69, 



CDAT41 , 
CDAT45, 
CDATUB, 
CD ATS 4, 
CDAT58, 
CDAT62, 
CDAT6A, 



CDAT42, 
CDAT48, 
CDAT4C, 
CDAT55, 
CDAT59, 
CDAT63, 
CDATB4, 



CDATU3, 
CDAT49 , 
CDATUD , 
CDAT56, 
CDAT60, 
CDAT64, 
CDATB8 
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Table ELI. Phase EL Routine/Subroutine Directory 



j Routine/Subroutine j 
ATLSCN 
BCDISB 
BCDPR 

CDATPR (EK) 

CDAT40 (EK) 

CDATtl (EK) 

CDAT42 (EK) 

CDATU3 (EK) 

CDAT44 (EK) 

CDATU5 (EK) 

CDAT46 (EK) 

CDATaS (EK) 

CDAT49 (EK) 

CD AT U A (EK) 

CDATUB (EK) 

CDAT4C (EK) 

CDAT4D (EK) 

CDAT4F (EK) 

CDAT58 (EK) 

CDAT59 (EK) 

CDAT5A (EK) 

CDAT60 (EK) 

CD AT 61 (EK) 

CD AT 6 2 (EK) 

CDAT63 (EK) 

CDAT6U (EK) 

CDAT69 (EK) 

CDAT6A (EK) 



^ 



Function 
Scans the list of attributes following the identifier. 
Checks for multiple declarations, etc. 
Processes BCD of identifier. 
Attribute controlling routine. 
Processes DECIMAL attribute. 
Processes BINARY attribute. 
Processes FLOAT attribute. 
Processes FIXED attribute. 
Processes REAL attribute. 
Processes COMPLEX attribute. 
Processes precision attributes. 
Processes VARYING attribute. 
Processes PICTURE attribute. 
Processes BIT attribute. 
Processes CHARACTER attribute. 
Processes FIXED DIMENSIONS attribute. 
Processes LABEL attribute. 

Processes ADJUSTABLE DIMENSIONS attribute. 
Processes ENTRY attribute. 
Processes GENERIC attribute. 
Processes BUILT-IN attribute. 
Processes EXTERNAL attribute. 
Processes INTERNAL attribute. 
Processes AUTOMATIC attribute. 
Processes STATIC attribute. 
Processes CONTROLLED attribute. 
Processes INITIAL attribute. 
Processes LIKE attribute. 



— 1 



.J. 



J 
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Table ELI. Phase EL Routine/Subroutine Directory (cont'd) 
I Routine/Subroutine I Function 



CDAT6B (EK) 
CDAT6C (EK) 
CDAT6D (EK) 
CDAT70 (EK) 
CDAT88 (EK) 
CDCLSC 
CDFATT (EM) 
CDFLT (EM) 
CDICEN (EM) 
CGENSC (EM) 
CHASH (EM) 
DCIDl 
DCIDPR 
ECHSKP (EK) 
INPATT (EM) 
INTLZE 
POSTPR 
SCANU (EM) 
SELMSK 
STRPR 
TEMSCN 



I 



Processes DEFINED ATTRIBUTE. 

Processes ALIGNED attributes. 

Processes UNALIGNED attribute. 

Processes AREA attribute. 

Processes POS attribute. 

Scans each item of DECLARE statement. 

Applies factored attributes. 

Applies default attributes. 

Constructs dictionary entry. 

Performs phase initialization and scans chain of DECLARE statements. 

Hashes BCD of identifier. 

Main scan routine. 

Processes factor brackets and level numbers. 

Initializes and passes control to Module EM. 

Applies implicit attributes. 

Performs initialization for each identifier declared. 

Post-processor. 

Scans chain of DECLARE statements. 

Selects correct test mask to be initialized. 

Processes inheriting of dimensions in structures. 

Scans ahead for next level nximber. 



lt»2 



Table EP. Phase EP Dictionary Entry III and Call 



Statement or Operation Type 






I Scans for PROCEDURE entries type 1 









JFollo%»s chain of ENTRY stat^nent 
{entry type 1 entries from a 
I PROCEDURE entry type 1 
I 



Main Processing 
Routine 



ENTRY3 



EPL40 



Subroutines Used 



None 



None 



I Examines all labels belonging to an 
{entry type 1, constructing an entry 
{type 2 or 3, if necessary 

(Follows CALL chain in text making 
I dictionary entries for entry points 

I- 



LBPROC 



None 



EPL290 



None 



CDIMAT 



None 



I Examines the first character of an 
(identifier and sets a flag 
(indicating the range in which it 
( lies 



CDFLT 



None 



(Applies default rules 



CHASH 



None 



None 
None 



J Given an identifier calculates its 
(offset in the hash table 

(Constructs a dictionary entry (CDICEN 

(Sets address slot to zero or the (FNDEND 
(end of the dictionary 

(Constructs list of numbers of kno%m(BLDST2 
( blocks 

(Built in function name (SCANBF (None 



None 



Chapter 3: Flowcharts, Tables, and Routine Directories 143 



Table EPl. Phase EP Routine/Subroutine Directory 



r— 



I Routine/Subroutine | 



Function 



BLDST2 

CDICEN 

CDIMAT 

CDFLT 

CHA3H 

ENTRY 3 

EPL20 

EPL40 

EPL75 

EPLIOO 

EPL290 

EPL340 

EPL360 

EPL600 

FNDEND 

LBPROC 

PHSINT 

PHSMRK 

SCANBF 



Constructs list of n\imbers of known blocks. 

Constructs dictionary entry. 

Sets flag for default routine. 

Applies default rules. 

Calculates offset in hash table for given BCD. 

Scans ENTRY chain for PROCEDURE statements. 

First entry in entry type 1 chain. 

Scans ENTRY chain for ENTRY statements type 1. 

Return point from LBPROC routine. 

Processes new entry label. 

Scans CALL chain. 

Searches built-in function table for BCD of identifier. 

Blanks out BCD in text. 

Scans the CALL chain. 

Sets address slot for label. 

Processes labels of PROCEDURE or ENTRY statements. 

Initialization of phase. 

Marks later modules as 'wanted' or 'not wanted'. 

Checks for built-in function name. 



._j 



IHH 



Table EW, Phase EW Dictionary LIKE 

r T T 

I I Main Processing! 

j Statement or Operation Type j Routine | Subroutines Used 

(Scans LIKE chain |EWBEGN jEWCOPY, EWELDM, EWINCH, EWONDM 

(Updates hash chain for new entry jEWHSCN (None 

j Calculates start of structure data j EWVART j None 
I from start of variable information | j 

[changes error entry to base element JEWCHEN (None 

j Copies dimension table entry and |EW2FNT JEWNWBK 
(second file statement ( j 



Table EWl. Phase EW Routine/Subroutine Directory 

i Routine/Subroutine ( Function j 

ALIGN (EV) 



BASED (EV) 

CESCN 

EWBEGN 

EWCHEN 

EWCOPY 

EWDCCY (EV) 

EWELDM 

EWELTS 

EWEND 

EWERNC 

EWHSCN 

EWINCH 

EWNOLK 

EWNWBK (EV) 

EWONDM 

EWORDM 

EWSTRT 

EW2FNT (EV) 



Provides correct alignment of base elements in likened structure. 

Inserts or deletes defined slot, where only one structure is based. 

Scans dictionary to find entry corresponding to BCD in text. 

Scans LIKE chain. 

Changes error entry to base el^nent. 

Copies dictionary entry into scratch storage. 

Copies initial dictionary entries and associated second file 
statements, etc. 

Copies entry into scratch storage with dimension data removed. 
Tests whether the likened structure is dimensioned. 
Handles transfer of control to next .phase. 
Processes erroneously "likened* major structure. 
Updates hash chain for new entry- 
Completes entry copy and places it in dictionary. 
Tests whether original structure is dimensioned. 
Obtains new dictionary block and terminates current one in use. 
Copies entry into scratch storage, inserting dimension information. 
Processes dimension information in original structure. 
Tests validity of likened structure. 
Copies second file statement and associated dictionary reference. 



J.. 



—J 
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Table EY. Phase EY Dictionary ALLOCATE 

r T 

Main Processing 
Sta-tement or Operation Type 



Routine 



Subroutines Used 



H 



Scans text for explicitly 
pointer-qualified based variables 

Copies dictionary entries for 
explicitly qualified based 
variables 



lEMEX 



EY14 



— + 



EYIU 



HASH, ATPROC, DICBLD, STROP Y 



—I 



Second file pointers. Scans 
ALLOCATE Statements 

Completes copied dictionaj^ entry 
for an allocated item 



lEMEY 



ATPROC, DICBLD, HASH, STROP Y 






— ^ 

— ^ 



Controls ATPROC and ATPROD routines 
for each member of a stiructure 



ATPROC with IMOVEST 
second entry 
point ATPROD 



STRCPY 



ATPROC, ATPROD 






Table EYl. Phase EY Routine/Subroutine Directory 



r T" 

I Routine/Subroutine | 
j. . +. 



Function 



JATPROC/ATPROD (EZ) 
I 

I 

I DICBLD 

I 
I 
IEY16 

I 
IEY17 

1 
IEY21 

I 

I HASH 

I 

I lEMEX 

I 

I EYIU 

I 
JIEMEY 

I 

jMOVEST (EZ) 

I 

I STRCPY 



Complete copied dictionary entry for allocated item by including 
attributes from ALLOCATE and second file statements. 



1 



Collects attribute given for an identifier and copies its dictionary 
entry. 

Processes ALLOCATE statements. 

Processes identifier in ALLOCATE statement. 

Processes major structures. 

Hashes BCD of identifier to obtain its dictionary reference. 

Scans text for explicitly pointer-qualified variables. 

Copies dictionary entries for explicitly qualified based variables. 

Scans second file, reverses pointers. Scans ALLOCATE statements. 

Copies second file statement and associated dictionary entry. 

Controls ATPROC and ATPROD for each member of structure. 



._j 



me 



Subroutines Used 



Table FA. Phase FA Dictionary Context 

I I Main Processing! 

I Statement or Operation Type | Routine j 

I Scans text |CE30 |CENDTS, CETRAN 

{Reorders subscripts; makes JCEID JCESCN 

i dictionary entry for file and event j j 

{variables | { 

{Identifies keywords {CEKYWD (CEKEND, CEKEOB, CEKEOP, CEKON, 

j i JCEKPRC, CEKSND 

^ + + 

{Scans dictionary jCESCN (CESTUC, CEYES, CFPDER, CFPDR2, 

{ { JCHASH, CE3XX 

{Makes dictionary entry for {CFPDR2 jcDFLT, CDICEN, CDIMAT, CEONCK 

{variables { { 



^ + 

{Scans dictionary entry for {CECON 
(constants and makes new entry, if { 
{necessary. ( 

(Scans PICTURE chain entry and makes (CEPICT 

(new entry, if necessary. { 

L J. 



CHASH 



[None 
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Table FAl. Phase FA Routine/Subroutine Directory 



j Routine/Subroutine j 
|. 

I CDFLT 

I 

I CDICEN 



Function 



— 1 



-H 



I CEBNK 



I 

I CDIMAT 

1 

I' 

I 

JCECON (FB) 

1 

I CEDWAX 

I 
JCEID 

I 
I 

I CEINT 

I 

I CEISUB 

I 

I CEKCEN 

I 

JCEKDCL 

I 
jCEKEiro 

I 

I CEKEOB 

I 

I CEKEOP 

I 

ICEKEY 

1 

I CEKIDO 

I 

I CEKON 

I 

I CEKPFR 

I 

I CEKPRC 

I 

I CEKSN 

I 
JCEKSND 

I 
JCEKYWD 

I 
JCELP 

I 

I CENDTS 

I 
JCEONCK 

I 

I CEPFDR 

I 

JCEPICT (FB) 

I 

ICERP 

I 

I CESCN 

I 

I CESMCL 

I 

JCESTUC 



Determines default attributes for identifier. 

Constructs default dictionary entry for identifier. 

Determines default scale for identifier. 

Transfer point for zero or blank. 

Scans dictionary entry for constants. 

Subscript prime text marker. 

Reorders subscripts and makes dictionary entries for files and event 
variables. 

Transfer point for constant routine. 

Transfer point for iSUB. 

Transfer point for CALL to get over chain. 

Removes SN from DECLARE statements. 

Processes END ke3fWord. 

Processes end-of-block marker. 

Handles end- of -prog ram marker, or start of second file. 

Transfer point for keyword. 

Transfer point for iterative DO. 

Processes ON keyword. 

Transfer point for picture format item. 

Processes PROCEDURE keyword. 

Moves SN, etc., to output stream. 

Processes start of second file statement. 

Identifies keywords. 

Transfer point for left parenthesis. 

End of text block in output file routine. 

Makes entry for programmer-named ON condition. 

Makes dictionary entry for variables. 

Scans picture chain entry. 

Transfer point for right parenthesis. 

Scans dictionary. 

Handles semicolon. 

Points at next entry in structure chain. 



._j 
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Table FAl. Phase FA Routine/Subroutine Directory (cont'd) 

Function 



r T- 

I Routine/Subroutine | 



j. 

JCETRAN 

I 
ICEYES 

I 
|CE2L 

I 

JCE30 

I 

l< 
I 
|CE32 

I 



ICE 31 



ICE300 
j 




1 CE3XX 
1 




1 CFPDER 
1 


(FB) 


1 CFPDR2 
1 


(PB) 


ICHASH 
1 




ICHASHC 

1 

1 lEMFA 

L 





Translates keyword into transfer instruction. 

Compares structure levels. 

Transfer point for second level marker. 

Controlling Scan of text. 

Tests for end of block. 

Moves one byte to output stream. 

Switches to appropriate routine. 

Compares identifier in text with entry in dictionary. 

Makes dictionary entry for ordinary identifier. 

Makes dictionary for formal parameter. 

Hashes identifier. 

Hashes constant. 

Initializes phase. 



Table FE. Phase FE Dictionary BCD to Dictionary Reference 



I JMain Processing! J 

I Stateroent or Operation Type j Routine j Subroutines Used j 

I Scans text |CE30 |CENDTS, CETRAN | 

i. 1 +___ ^ 

I Scans dictionary JCESCN JCESTUC, CEYES, CFPDER, CFPDR2, j 

I I I CRASH, CE3XX | 

{Checks for array, fimction, or jCELP |CE?NCT | 

I pseudo- variable if left parenthesis} | j 

jis found j I I 

i. „ 1 + ^ 

i Tests for end of text block JCENDTS JCEKEND, CEKIDO, CEKPRC j 

I Identifies keywords jCEKYWD |CEKEOB, CEKEOP | 

I Makes dictionary entry jNone |CDFLT, CDICEN, CDIMAT | 
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Table FEl. Phase FE Routine/Subroutine Directory 

r T 

I Routine/Subroutine i 



Function 



-H 



CDFLT {Applies default rules. 

CDICEN I Constructs dictionary entry. 

CDIMAT I Sets flag for default routine. 

CEFNCT I Tests validity of function reference in text. 

CEKEND I Processes END keyword. 

CEKEOB I Processes end-of-block marker. 

CEKEOP I Processes end-of-program marker, or start of second file. 

CEKIDO I Processes iterative DO keyword. 

CEKPRC j Processes PROCEDURE keyword. 

CEKYWD I Identifies keyword. 

CELP j Checks for array, function, or pseudo- variable if left parenthesis 
I is found. 

CENDTS 1 Tests for end of text block in output file. 

CESCN I Scans dictionary. 

CESTOC I Points at next entry in structure chain. 

CETRAN {Translates keyword into transfer instruction 

CEYES I Compares structure levels. 

CE30 I Controlling sceui of text. 

CE3XX {Compares identifier in text with dictionary entry. 

CFDICN (FF) (Makes dictionary entry. 

CFPDER (Makes dictionary entry for statement with ordinary identifiers. 

CFPDR2 (Makes dictionary entry for formal parameters. 

CHASH (Calculates offset in hash table for given BCD. 



—J 



Table FI. Phase FI Dictionary Checking 

( (Main Processing! { 

( statement or Operation Type ( Routine ( Subroutines Used ( 

Scans text (CESTRT (CEKEYW { 

Identifies keywords (CEKEYW (CEKEOB, CEKEOP, CEKIDO, CEKSN { 
+ + 1 

Checks GOTO statement references (CEGOTO (None ( 

Converts GOTO to GOOB, if necessary (CSGOB (None ( 

Checks file references (CF.FILE (None ( 

(Checks data list items for validity j CEDTCK (None j 
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Table PIl. Phase FI Routine/Subroutine Directory 



j Routine/ Subroutine! 



Function 



CECMBK 

CEDDOL 

CEDOND 

CEDREF 

CEDTCK 

CEFILE 

CEFNMK 

CEG06 

CEGOTO 

CEISOB 

CEJUMP 

CEKEND 

CEKEOB 

CEKEOP 

CEKEYW 

CEKIDO 

CEKON 

CEKSN 

CELRCT/CERPCT 

CEOOPS 

CEPRBG 

CERFWT 

CESMCL 

CESTRT 



Tests value of previous second level marker. 

Processes function names used as control variables for DO groups. 

Processes end of iterative DO groups. 

Tests whether dictionary reference needs to be checked. 

Checks data list items for validity. 

Checks file references. 

Processes function markers. 

Converts GOTO to GOOB, if necessary. 

Checks GOTO statement references. 

Processes iSDBs. 

Bumps scan pointer over dictionary reference. 

Processes END statements. 

Processes end-of-block marker. 

Processes end- of -program marker. 

Identifies keywords. 

Processes iterative DO keyword. 

Processes OH statements. 

Processes stat^nent number. 

Process left and right parentheses. 

Checks validity of keywords in the text. 

Processes PROCEDURE and BEGIN statements. 

Processes remote format references. 

Processes semicolons. 



I Controlling scan of text. 



—J 
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Table FK. Phase FK Dictionairy Attribute 



I 



Statement or Operation Type 



(Main Processing) 
Routine 



Subroutines Used 



— 1 



— ^ 



(Scans attributes area for SETS 
I lists 



JFOIA 



JNone 



^ 



I Scans SETS list 

|. 

(Processes constants 
^ 

(Processes identifiers 



JF02 

-+ 

j CONPRO 
4 

I CESCN 
-X 



I None 






None 



JCESTUC, CE3XX, CHASH 

.X 



Table FKl. Phase FK Routine/Subroutine Directory 



i Routine/Subroutine 
CEIDLP 
CENQUL 
CESCN 
CESTUC 
CE3XX 
CHASH 
CMPERR 
CONPA 
CONPRO 
ENDFO 
F0ERR2 
FOIA 
F02 



Function 
Scans qualified name. 
Processes unqualified name. 
Processes identifier. 

Finds address of next structure in chain. 
Compares current BCD with BCD in hash chain, 
calculates offset in hash table for given BCD. 
Provides termination error action. 
Inserts constant in ordered stack. 
Processes constants. 
Releases control. 

Diagnoses constant greater than 255. 
Scans attribute tidy-up area. 
Scans SETS list. 
Completes SETS dictionary entry. 



GETSCR 



I Obtains scratch storage. 



I 
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Table FO. Phase FO Dictionary ON 

r T- 



Statement or Operation Type 



[Main Process ing| 

Routine | Subroutines Used 

{Scans input text for ON, SIGNAL, |FKMVIT | BEFTRN, CENDTS, QP 
land REVERT statements 

(Moves second file from input text |F2 | CENDTS, BEFTRN 

I block to output text block 

jKakes dictionary entries for ON- jFKDCEN |LABCD 
I conditions found in ON, SIGNAL, and 
I REVERT statements 

I- 

{Examines BCD of file entries 
I referenced in ON, SIGNAL, and 
I REVERT statements; scans previous 
I entries for ON conditions 



+ _ + ^ 



MVSIG 



CENDTS 



(Processes CHECK and NOCHECK list 
|. 

(Creates dictionary entries for 
(condition prefixes 

L 



+ + 



IBEFCHL (CENDTS, LABCD 

I NOMOVE ( QP 



^ 



± X J 



Table FOl. Phase FO Routine/Subroutine Directory 
j Routine/Subroutine ( 



Function 



Processes CHECK and NOCHECK list. 

Replaces statements containing dummy dictionary references by error 
statements, euid generates error message. 



— T 
I 
■H 



BEFCHL 
BEFTRN 

CENDTS 
FKDCEN 

FKMVIT 
FKNOCK 
FKPROC 
FPOlO (FP) 

F2 
LABCD 

HVSIG 

NOMOVE (FP) 

Q3 

QP 

R8 



Requests a new text block for output. 

Makes dictionary entries for ON conditions found in ON, SIGNAL, and 
REVERT statements. 

Scans input text for ON, SIGNAL, and REVERT statements. 

Processes CHECK and NOCHECK lists. 

Scans input text for ON, SIGNAL, and REVERT statements. 

Chains initial label stat^nents and makes second file dictionary 
entries for each label array initialized in this way. 

Moves second file from input text block to output text block. 

Creates a dictionary entry for each label constant and each entry 
label mentioned in a CHECK list. 

Examines BCD of file entries referenced in ON, SIGNAL, and REVERT 
statements; scans previous entries for ON conditions. 

Creates dictionary entry for condition prefix. 

Processes condition prefixes changed in current block. 

Determines which condition prefixes require dictionary entries. 

Moves statement to output buffer. 



._j 
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•Table FQ. Phase FQ Dictionary Picture Processor 

r T r 1 

I I Main Processing! I 

I Statement or Operation Type j Routine | Subroutines Used I 
1^ + + ^ 

I Controls scan of PICTURE chaxn; jCYBRB jCYEK, CYFIND, CYTABL j 

(initializes j j | 

^,. + + ^ 

{Picture character 9 JCYNINE JNone j 

|. + y ^ 

I Picture characters S, $, +, -. |CYSDPM (None j 

j Picture character V JCYV JNone | 

I Picture character E |CYE j CYC 21 | 

I Picture character K (CYK |CYC21 | 

I (Picture characters CR, DB |CYCRDB (None | 

(Picture characters 1,2,3 (CYOTT (Hone ( 

( Picture character P ( CYP ( None ( 

(Picture character Z (CYZ (None ( 

j Picture character * ( CYAST ( None j 

(Picture character Y (CYY (None ( 

(Picture character G (CYG (None ( 

(Picture characters 6, 7, 8, H (CYSSEH (None ( 

(Picture character M (CYSTM (None ( 

(Picture character F (CYF (None j 

(Converts integer constants to scale (CYC97 (CYCONV ( 

( factor ( i I 

|. 1 + ^ 

(Calculates scale factor (CYFNT (None ( 



15U 



Table FQl. Phase FQ Routine/Subroutine Directory 

Function 
Processes picture character ♦. 
Identifies picture character. 
Controlling scan of PICTURE chain. 
Converts integer constant to scale factor. 

Processes pictiare characters slash (/), conunaC,), point (.), and B. 
Processes picture characters CR, DB. 

Adjusts data to teminate picture before illegal character. 
Converts integer constant to scale factor. 
Processes picture character E, 
Completes entry for correct picture. 
Releases control at end of pictinre chain. 
Processes picttire character F. 
Obtains code for next character in picture. 
Calculates scale factor. 
Processes pictiare character G. 
Processes picture character K. 
Processes picture character 9. 
Processes picture characters 1,2,3. 
Processes picture character P. 
Processes picture characters S, $, +, -. 
Processes picture characters 6,7. 
Processes picture characters 8,H. 
Processes pictxire character M. 
Code table for picture characters. 
Processes picture character V. 
Processes picture character Y. 
Processes picture character Z. 



r T- 

I Routine/subroutine I 

CYASI 

CYaR2 

CYflR3 

CYCONV 

CYCPBS 

CYCRDB 

CYC 21 

CYC97 

CYE 

CYEK 

CYENDD 

CYF 

CYFIND 

CYFNT 

CYG 

CYK 

CYNINE 

CYOTT 

CY? 

CYSDPM 

CYSS 

CYSSEH 

CY3TM 

CYTABL 

CYV 

CYY 



I 



CYZ 



—J 
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Table FT. Phase FT Dictionary Scan 



Statement or Operation Type 



I Main Processing! 
Routine 



I c 

h 

jl 

h 

I < 

ENTRY type 1 entries 
ENTRY type 2 entries 



Subroutines Used 



Scans second file 



|AC1 

•+ 

IBI 



None 



Scans dictionary 



None 



Data variables 



DATVAR 



None 



Event or label variables 



EVLABV 



None 



■H 

-^ 

■H 



Dimension attributes 



Scans AUT<»^TIC chain 



JFO 

-+— 
iG2 



None 



None 



Scans STATIC chain 



Scans CONTROLLED chain 



|G3 
IGEI 



JNone 
I None 



Sets dope vector required bit 



|P1A 
4 

iQAil 
IQA3 



None 



H 



I None 
I PROPIC 









ENTRY type 3 entries 



IQA2 
4 

IQX 



None 



ENTRY type 4 entries 



ENTRY type 5 and 6 entries 



Constants 



None 



IQAI 



CONST 



j PROPIC 

4 

I None 
4 

JAJDMRT, MKDMTB, MVTXT 



structiires 



i STRUCT 



._J 
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Table FTl. Phase FT Routine/Subroutine Directory 

Function 
I Scans second file. 

Detects second file statement marker. 
Points relevant dictionary entry at statement, 



i Routine/Subroutine | 
I 

ACl 



— 1 

I 

-H 



AC2 
AF3 
AJDMRT 



Bl 

BIfl 

CONST 

DATVAR 

EVLABV 

?0 

FULIN 

GEl 

G2 

G3 

MKDMTB 

MVTXT 

PROPIC 

:?1A 

QAl 
QA2 
QA3 

QAU 
QX 

STRUCT 
TRVECT 






Modifies second file statements to initialize dope vectors for base 
elements, rather than for the containing structures. 

Scans dictionary. 

Initializes dictionary scan. 

Processes constants. 

Processes data variables. 

Processes event or label variables. 

Processes dimension attributes. 

Moves initial label statement to the second file, collecting 
together all statements for the same array. 

Scans CONTROLLED chain. 

Scans AUTOMATIC chain. 

Scans STATIC chain. 

Creates dimension tables. 

Moves text blocks. 

jSxtracts precision data from picture tables. 

Sets 'dope vector required* bit. 

Processes ENTRY type 5 and 6 entries. 

Processes ENTRY type 3 entries. 

Processes ENTRY type 2 entries. 

Processes ENTRY type 1 entries. 

Processes ENTRY type U entries. 

Processes structures. 

Transfer vector for appropriate chaininq routine. 



—J 
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Table FV. Phase FV Dictionary Second File Merge 



Stateicent or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Reverses second file pointers; 
scans text for block heading 
statements; allocates statements 
and references to dynamically 
defined data 



lEMFV 



DATCPY, DEFMOV, DEFTST, F2M0VE, 
MOVE 



Exc?mines ADF references in second 
file; completes defined item 
dictionary entry 



DEFCOM 



None 



Detects dictionary references which 
refer to dynamically defined data 



DEFTST 



None 



Examines dictionary references and 
moves any associated second file 
statements to tno output string 



DATCPY 



F2M0VE, MOVE 



Inserts dictionary reference of 
pointer in associated based 
variable entry 



FVPTR 



Processes adjustable extents on 
Daze6 arrays 
1— 



FVADV 



None 



None 



■H 
J 



Processes adjustable lengths on 
based strings 



FVSDV 



None 
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Table FVl. Phase FV Routine/Subroutine Directory 
I Routine/oubrout ine | 



Function 



DATCPY 

DEFCOM (FW) 

DEFMOV 
DEFTST 

FVO 

FV9 

FVIO 

FV16 

FVl 8 

FV19 

FV20 

FV3U 

FVPTR 

FVADV 

FV3DV 

J2M0Vli; 

lEMEV 

MOVE 



(5oves second file statements associated with dictionary reference to 
output string. 

Examines AUK references in second file; completes defined item 
dictionary entry. 

Modifies text references to dynamically defined data. 

Detects dictionary references which refer to dynamically defined 
data. 

Scans second file reversing pointers. 

Initializes text scan. 

Scans text. 

Releases control. 

Processes ALLOCATE statements. 

Processes PROCEDURE statements. 

Processes BEGIN statements. 

Scans AUTOMATIC chain. 

Insei-ts D.R. of pointer in associated based variable entry. 

Processes adjustable extents on based array. 

Processes adjustable lengths on based strings. 

Moves second file statement to output string. 

Controlling scan of second file; invokes processing routines. 

P'oves text from input string to output 'String. 
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Table FX. Phase FXDic-tionaryftt-tributes and Cross Reference 



r T 

Statement or Operation Type 

Scans STATIC chain for all items 



Scans PROCEDURE-BEGIN chain 



Main Processing 
Routine 



FXOOOO 



FXOlOO 



Subroutines Used 



FXOOlO 



■H 



FXOOlO, FXOlOl, FX0105, FX0120 



Scans CONTROLLED chain for 
non-parameter DECLARED, CONTROLLED 
dictionary entries 



FX0170 



None 



Scans parameter list from PROCEDURE 
and ENTRY statements 



FXOlOl 



FXOOlO 



-^ 



Sorts BCD of variables and creates 
entries in scratch text storage 



FXOOlO 



None 



■H 



Scans circular chain of ENTRY JFXOIOS 
statement dictionary entries 
associated with a particular 
PROCEDURE statement 

Scans AUTOMATIC chain associated IFX0120 
with particular PROCEDURE or BEGIN 
block 



FXOlOl 



FXOOlO 



Prints heading line for tables 
according to options specified 



FXHD 



ATTMOV 



Scans sorted chain of identifiers 



FXPRNT 



FX0299 



Determines attributes of a given 
identifier if the ATR option is 
specified 



FX0299 



ATTMOV, FXBCD, FXDCL";^, FXEND, 
REFMOV 



Scans the chain of references for a 
given identifier (if XREF is 
specified) and prints them in 
external decimal form 



REFMOV 



FXDCLN 



Converts EBCDIC of particular 
attribute to required external foim 
and moves it to print area 



ATTMOV 



None 



Prints BCD of identifier having 
converted it from internal form to 
external form 

Converts an internal binary number 
to external decimal form and moves 
it to print buffer 



FXBCD 



None 



FXDCLN 



None 



Frees all scratch text storage and 
releases control to next phase 



FXEND 



None 



._j 



IbO 



Table PXl. Phase FX Routine/Subroutine Directory 

I Routine/Subroutine I Function | 

Converts EBCDIC data to required form, moves data to print area. 



ATTMOV (FY) 
FXBCD (FY) 

FXDCLN (FY) 

FXEND (FY) 

FXHD (FY) 

FXPRNT (FY) 

FXOOOO 

FXOOlO 

FX0030 

FXOlOO 

FXOlOl 

FX0105 

FX0120 

FX0170 

FX0250 
FX0299 

REFMOV (FY) 



^toves identifier BCD to print area, determines options to be 
printed. 

Converts binary number to external BCD, moves it to print area. 

Frees scratch storage, releases modules, releases control. 

Prints heading line for table according to options specified. 

Scans sorted chain of identifiers. 

Scans STATIC chain. 

Sorts BCD of variables and creates entry in text for each item. 

Tests for end of STATIC chain. 

Scans PROCEDURE- BEGIN chain. 

Scans parameter list from PROCEDURE and ENTRY statements. 

Scans circular chain of ENTRY statement dictionary entries 
associated with a particular PROCEDURE statement. 

Scans AUTOMATIC chain associated with particular PROCEDURE or BEGIN 
block. 

Scans CONTROLLED chain for nonparameter DECLARED CONTROLLED 
dictionary entries. 

Scans text, making chain of references to each dictioary entry. 

Determines attributes of a given identifier if the ATR option is 
specified. 

Moves the references to an identifier to the print buffer and 
prints . 



._j 



•Table Fl. Module Fl Compiler Control 



I I Main Processing | 

I Function | Routine | 

I Checks whether syntax check should jIEMFl | ZABORT, ZUPL, RLSCTL 

j terminate conqpilation j | 

I Entry to the operating system ; j j 

i Hone I I 



Routines Used 
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Chart Qti. Pretranslator Logical Phase Flowchart 



.♦• 

Bl «. 

.♦ ♦. 
.* FILE *. YES 

OR CPEK .* 

*. CONSTANT .* 
*. .* 
♦ • . ♦ 
* DC 



*DCES GA* 

->♦ CREATE ♦ 

* DCES ANC OCES * 



CI ♦. 

.♦ I/O ♦. 

.♦STMHTS AND < 

2ND LEVEL 

*. MARKEKS .* 

♦. . ♦ 

♦ • .♦ 

♦ KC 



4>****C2*** ******* 
*I/0 HOE GB* 

->* MODIFY * 
*I/0 PARAMETERS * 

* * 



Dl «. 

.♦ ANY *. 

.* FUNCTION ♦. 

*. REFERENCES . 

*.CR 0FT=1 .* 

*. .* 

*. . * 

NO 



YES 



«4*«*Q2*** •***«*• 

•KATCHl GK* 

*-*-*-*-*-*-*-*-• 

->♦ CHECK * 

* PABAMETEIl * 

* HATCHING • 
***************** 



V 
.*. 

E2 *. 
.* ANY *. 

NO .* FUNCTION *. 

♦. REFERENCES .* 

♦. .* 

♦. .* 

*. .♦ 



•««*«F2********** 

* GO* 
*-*-*-*-*-•- ♦- »- « 

* FBE-PROCESSCR *- 

* FOB GP * 

* • 
***************** 



*HATCH2 GP* 

*-*-*-•.*-*•.* -«-• 

>♦ SECOND CHECK * 

* ON FASAMETEBS * 

* * 



.♦ ANY ♦. YES 

CHECK . * 

*. LISTS .* 



*****G2********** 

*CH£CK LIST GO* 

♦-♦-♦-*-♦-♦-♦-♦-♦ 

->* PROCEED CHECK * 

* CONDITION * 

* STMNTS • 



HI 



*. 



. • STRUCT *. YES 

. ASSIGNMENTS .* 

*0B EXPRESS-* 
♦.lOHS .* 
*. . * 
* NO 



**«**H2********** 

*STBUCTS BF* 

*-*-*- *- •- «- •- *- * 

->* PROCESS * 

* STBOCTOPE ♦ 

* ASSIGNMENTS * 
*•*«** *********** 



01 



*. 



*. 



.* ARRAY *. YES 

*. ASSIGNMENTS .* 

*0B EXPRESS-* 
♦.IONS .♦ 
*. .* 
• NO 



***«*J2********** 
*ARRAYS HK* 
*•*-*-•-*-*-*-*-• 
->• PROCESS * 
* ARRAY • 
« ASSICNMEHTS * 



Kl *. 
.* *. 
.* ANY *. YES 

*.ISDB DEFINED .* 

*. ITEMS -* 
*. .* 
*. . « 
NO 
*«** 

• 05 ♦ 
->* Al * 

« * 

• «•• 



L 



***4*K2* ********* 

•ISDBS HP* 

*- *~ *- *- *- •- *- *- * 

->* PROCESS ITEMS • 

* DSFIMBD * 

* USING ISOBS • 
********«*«•*•*** 

♦05 * 
->* Al ♦ 
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Chart GA. Phase GA Overall Logic Diagram 



INITIALIZATION • 

* 
* 



»GB * 
♦ Al* 

* * 



*****C1*** ****** 
• 

* GET NEXT 

* ENTRY IN 

* STATIC CHAIN 
* 
***»•**•*•**•*•* 



FILE *. YES 

CONSTANT . * 

. (08) .* 



* CHECK ATTRIBS ♦ 

♦ AND MAKE OPEN • 

• CONTROL BLOCK • 

* * 
••**•*••********* 



*****G1 ********** 

* MAKE DICT * 
, * ENTRY AND • 
t * CHAIN PROM * 

* STATIC ENTRY * 

* * 
***************** 



ILOllO V 

*****A 3* ***••«>»« 

• FILENAME TO • 
•SKELETON DCLCB * 
•CHANGE SYSPBI.ff* 

• TO IHESPRT • 

• » 
*•*•*••••*•*•••** 



* CHECK ATTRIBS ♦ 

* AND MAKE OPEN • 

* CONTROL BLOCK * 

* * 
***************** 



*****D3* •»*•*•*** 

* MOVE OCB INTO • 

* APPROPRIATE • 

* PART OF DCLCB • 

* SKELETOH • 

* * 
***************** 



GET ENVHNT 

STRING 
(MAY BE NULL) 

>************** 



IHEEHV, 



•CHECK AND PLACE 

* IN SKELETON 

• DCLCB 

* 

*t ************** 



.* COBOL IN 

> . ENVHNT 

*. STRING 



*SET COBOL FLAG 
>• ON IN ATTRIB 
• ENTRY 



Chapter 3: Flowcharts, Tables, and Routine Directories 163 



Chart GB. Phase GB Overall Logic Diagrair. 



*****A1 ********** 

* * 

* INITIALIZE * 

* TEXT POINTERS * 

* LOAD lEMGJ * 

* * 
***************** 

**** 

* * 

* El *-> 

* * 
**** 

•****B1*** ******* 

* • 

* * 

* SCAN TEXT *- 

* * 

* * 
***************** 

A 

**** 
* * 
<-» Bl * 
> * 
**** 



READ *. NO .* WRITE ' 

STATEMENT .* >*. OF REWRITE 

.* •.STATEMENT." 



AFORMT 

*****C2 ********** 

* FORLST • 
♦-*-*-»-*-♦-»-•-* 

* SCANS FORMAT * 

* LIST (SEE F3> * 

* * 
***************** 



**** 



C3 *. 
.* *. 
* 
COBOL FILE 



»****D1** ******** 
*SCAN STATEMENT * 

* SKIPPING DATA * 
*SPECIFICATIONS *<- 

* TRAiJSMirriNG * 

* OTHtR OPTIONS * 
***************** 



. * GET OR 

POT . *<- 

♦.STATEMENT.* 



1. 






■ •-*-*-*.*-•-•-* 



******•****•*•«* 



*. COBOL 


FILE 




* 


,<- 




* 




1 


*• .* 






1 


* . .* 






ii 


» YES 






**** 










* 










* Dl 










• 










**•* 


i 








*****[)ii* •*•*•***» 




* MAP/COPY 




* 




*-*-*-*-*-•-*. 


* 


-• 





*****ds********** 

* WRITt; • 
•-*-*-*.*-•-*.*.* 

♦ COMPARE PL/ I * 
•AND COBOL MAPS * 
•INSERT BOY/SELL* 
•*****••******•** 



»****F1» ******** 
* 

♦ RETURN TO 
>• SCAN FOR 
♦SKIPPED OPTIONS' 
* 
**************** 





• 


*•* 


• *** 


> 




* * 






* Bl * 


E2 *. 




* * 


*, 


***• 


**** 


END *. NO 


* * 




OF TEXT .* 


->* Bl * 




.* 


* * 




.* 


**•* 


**** 


*. .» 




* * 


* YES 




* F3 * 


*•*• 




* * 


♦GK » 




**•* 


l~>* A3 * 






* • 






*•** 


FORLST 


■' 




•*»**F3*********» 






* 




* 


SCANS * 








FORMAT LIST * 



> Fl * 
i * 

**** 



***• 
• 4 

» Fl • 
» « 
*«** 



***************** 



**** 



LAB178 

*****G2*** ******* 

* FORLST ♦ 
*-*-*-*-*-•-*-*.* 

>* SCANS * 

* FORMAT LIST * 

* (SEE FST ♦ 
***************** 



♦ G3 *-> 

* • 
**** 

G3' 



• Bl « 

• « 

**•* 



**•* 
► Fl ♦< 



•1 



DATA *. YES 

EDIT OR .* 

LIST .* 



. * DOES 

>*. IT CONTAIN 

ITDO 



.1.. 

t * 

• H2 ♦ 
» * 
**** 



LLDOIT 

*****J2********** 

* OUTPUT PRIOR * 

* TEXT AND END * 
*SCAN TO THE T. * 

* REPLACE IT BY * 

* SEMI-COLON ♦ 
***************** 



*****H3* ********* 

* * 

* OUTPUT BOY ♦ 

* AND TEMP * 
*ITDO STATEMENTS* 

* * 
***************** 



J3 *. 

.* DOES *. 
♦ LEFT •• NO 

PARENTHESIS .♦ 

♦. FOLLOW .* 



****FS*******^^* 

OUTPUT AND • 
RETURN < 
(SEE C2) « 

•*•************< 



YES .* END 

* >*. OF FORMAT 

* . LISTS . 



•***H5* ********* 

UNSTACK * 

DICTIONARY • 

REFERENCE * 

OF TEMP • 

**************** 



*****Jtt* ********* 

* * 

♦ OUTPUT * 
>* FOLLOWING *- 

♦ FORMAT ITEM ♦ 

* * 
***************** 



•****J?* *•******< 

* « 

* OUTPUT AND « 
->* SELL TEMP « 

* STATEMENTS « 

* < 
*****•*********•< 



**** 

* * 

* Bl * 

* • 
**** 



MKROOM V 

*****K2*** ******* 

* MAKE ROOM * 
*IN OUTPUT TEXT * 

* AND INSERT • , 

* END STATEMENT * 1 

* * I 

***************** V 



*****K3*** ******* 

* STACK * 

* DICTIONARY * 

* REFERENCE * 

* OF TEMP * 

* * 
***************** 



**** 

* < 

->* F3 • 



**** 

* * 

* G3 • 

* * 
***• 
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Chart GK. Phase GK Overall Logic Diagram 



*****C1********** 

♦ SET 'BOILT- • 

♦ IN GENERIC * 

♦ BIT IN •< 

♦ TEBYTE. » 

♦ * 



BAPVH 



NO 



C2 *. 
.« IS ♦. 
XES .♦ PSEDDO- *. 

* . VARIABLE . »<- 

*.*SOBSTir .* 
♦ . .* 



*****G1********** 

* * 

• ARONO » O •< 



• ••* 

• * 

• 65 • 

• * 

• *•* 



•< 



•GENERIC AND/OR •<- 
* BUILT-IN * 
« FONCTIOHS » 



BARECQ 

•••**E2********** 

>*PUSH DOWN STACK* 

* * 



•PARAMETER LIS. 

• AND SETS LIST • 
•FOR NON-BUILT- * 

• IN FUNCTIONS * 

***•••••••••*•*•* 



.• DOES 
HO .• ( 

• . FOLLOW 

*. MARKER 



• ARGNO • 1 * 

• OUrnn PRIOR * 

• TEXT, TEBYTE, • 

• STMT NUHBER. * 
•llVEL Ata> COONT* 
••¥*••*•••**••*** 



BALOOP 

••••*J2 *•**•*••*• 
•OUTPUT ARGOONT* 

• MARKER. DICT • 

• RBF OP PARA • 

• METER. AND * 
•SETS CODE BYTE • 
•••••*••*••*•*••• 



BARESC .*. 

K2 *. 

.•IS ARG •. 

YK .*A FUNCTION •. 

WITH NO 

•.ARGtMENTS.^ 



«• •••A3* *****•••• 

• * 

• INITIALIZE * 

• TEXT POIOTERS ♦ 

• ETC. • 

• * 
*•••••*•*•*•*•**• 

• ••• 



*••* 
BASCAN 

• SCAN TEXT, « 



NOTING 
X LEV 
COUNT 



C3 
PSEUOO- 



•. POUND. • 
• . •• 
NO 



.• FUNCTION 

MARKER 
•. FOUND 



STOP •. YES • 

MARKER . • >• 

FOUND .• • 



END OF • 
TEXT 

.• 


.• 


•. .* 


♦ YES 
1 •••• 
1 •GP 



•••••*•••••••••* 

• •*• 



• ITS 
DELIMITER 

• . COMMA 



••***•••••*•••••• 



••***FS^^^**^^^^ 

OUTPUT 
END-LIS^ 
MARKER 

••••••••••••••*< 

**•• 

• • 
• • G5 •-> 

• • 
*•*• 

ARGNOQ 

•••••G5^**^^*^^« 

• CHECK ARGNO 

• AGAINST DICT 

• ENTRY OF 

• FUNCTION. 

• POP UP STACK 



• ••• 

» * 
► B3 • 
» « 

• ••• 



•••***•**•**•*••• 



• , 



AT EMD 
>• ARGOHENT IN 

• SOURCE TEXT • 

• • 
••••••••••••••••• 



• • 

• (SCAN FROM • 
>• START OF •- 

• ARGUMENT) • 

• • 
••••••••••••••••* 
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Chart GP. Phase GP Overall Logic Diagram 



> * 

» A3 « 
» * 

• *•• 



•••**B1********** 



♦ SCAN TE3(T 
r„>* FOR ARGUMENT 

* LIST 



•< ♦ 



•t***B2* ****••*•• 

* CREATE A * 

CHAMELEON 



****••***•*•••••* 



•< 

« Dunax * 

* • 



IS 
ARGUMENT 
. SCALAR . 
♦. .♦ 



I « 

» HI » 



END 


• 


YES 


OF TEXT 


* 




*. .♦ 






*. .* 




' 1 


NO 




•GU » 

* 


.♦. 






Dl *. 






* IS • 






ITEM 


* 


NO 


BUILT-IN 






FUNCTION 


• 





» « 
» E3 » 

» * 



» * 

► D* *-> 



D3 *. *****DI|********** 

• * *. * CREATE SCALAR * 

.♦ PARAMETER *. YES • DUMMY OF • 

►. DESCRIPTION .* >♦ PARAMETER ♦ 

• TYPE ♦ 



NO 

r 


. • DO • . 

* PAR ANb • 

AKG AGGREGATE 

•STRUCTURES.* 

•.HATCH.* 

*. . * 


•*♦« 




* YES 


HI * 

• 




i 


**•* 




• ••• 

* * 

• • 

• *** 



*. 



.* 



• .♦ 
» NO 



IS 
ARGUMENT 
.CONSTANT . 
*• .♦ 



.* IS •. YES 
ARGUMENT . • — 
•EXPRESSION. • 



1 



• *•• 

* « 

* A3 * 

* • 

• ••• 



*••• 

* « 

* E3 •-> 

* * 

*****E3** ***•*•** 

* CREATE SCALAR * 

* CHAMELEON *- 

* DUMMY • 

* * 
••*•*••**••*•***• 



• « 
->* Bl « 

* « 

• ••• 



.* ARGUMENT *. » 
>>*. UNSUBSCRIPTED. •- 
•.AGGREGATE.* 



->♦ 



••***G5********^* 
* ARGUMENT • 
•IS A PARTIALLY * 
SUBSCRIPTED • 
AGGREGATE * 



• ••* 
» • 
► H3 •-> 



• ••• 

• ••«*|]1********** 

• * 

• ERROR * 

-• MESSAGE *< 

• * 

• * 
••**••••***••*••• 



MA. 


*. 


J2 


*, 


• 


• 


ARR 


AND 


PAR 


SAME 


DATA 


TYPE 






••*•**••••*••*•• 

• *•* 
* 

• J3 
* 
*•** 
COPYPT.MIJ * 

•••••J3* ****••*• 

CREATE ... 

AGGREGATE 



CREATE AN 
:r3EGAT~ 
DUmY -~ 



••*•••*•••**•••• 



* AGGREGATE 
STRUCTURES 
*. MATCH . 



DATA 

TYPES 

MATCH 



• ••« 
t 

» HI 
» 

• *•« 



E3ES •. 
DUCED 
ARGUMENT 
.STRUCTURE. 
•.MATCH. • 
•. .• 
* YES 



••••*K2^********« 



•••••••••••••***4 



• *** 
» « 

• Bl • 

* 4 

• ••• 



J5' 

NO .»' DA' 
r — •• TY 

• •*• t 


*, 

) •. 

;a ♦. 

■CH .•" 

,• 
.* 
YES 


H3 • 

• 




• •*• 




211.222 " 

» CONSTRUCT • 
• A REDUCED • 




*•••**•• 



• * 

• DO * 

• * 
*•*• 
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Chart GU. Phase GU Overall Logic Diagram 



*****A1* ********* 

• GET SCRATCH • 

• STORAGE FOR * 

• CHECK TABLE. *- 

• INITIAHIE • 

• TEXT POINTERS * 
***************** 



SCAN TEXT * 
>••*•****•***** 



**** 

* * 

* Dl • 

» * 
**** 



*****D1********** 

• CALU * 

*-*-*-*-•-*-*-*-* 

r~*SIGNAI, CHECKED *<- 

I * ARGUMENTS * 

RESET FHPTR 



**** 



***•*•*•*•***•*** 



* SET * 

* IF-SHITCH *< 

* TWICE * 

•*********•**••** 



**** 
» « 

» C3 * 
• « 
**** 



***** 
*HF * 
* Al» 



C2 *. 

.♦ ♦. 

STATEMENT 



ASTMT.AENDST 



->♦ 



*i*C3********** 
HOUSEKEEPING • 
•FOR ENDS, ETC. * 
* RESET *- 

♦IF-SWrrCB ONCE « 
» * 

»*****•***•***•*« 



ASPECL.AENDHO 

*****C<I* ********* 

* UPDATE CHECK • 

* TABLE FOR • 
— >* PROC OR BEGIN ♦- 

* STATEMENTS • 

* • 
***************** 

**** 

* * 

* DU * — 1 



****CCi******«*« 

SET PCSW FOR 
*FCSSIBLE CHECK 

♦ STATEMENT. 
*PROCESS SIGNAL 

* OR CALL STMTS 
******•*••••••«* 



->♦ 



•=""l 



ATEST5 
YES .*' 



E2 » 

ELSE 

OR 
THEN 



*****E3********** 

* * 

* OUTPUT ♦ 

* FRBCEDIHG *< 

* STATEMENT * 

* * 
***************** 



**** 
BSCAH 

*****Dil********** 

* * 

* * 

* SCAN TEXT •< 

* * 

* * 
***************** 



,* *. 
STATEMENT 



ASCL 

*****Q5*******«** 

* CALLE * 

*-*-*-*-*-*-*-*-» 



-*SIGNAL CHECKED 
STATEMENT 
LABEL 



**** 
t * 

• A2 • 
> * 

**** 



*****P2*** ******* 

* GO TO ♦ 

* PSEUDO-CODE * 
-* ROUTINE TO *< 

* CHECK THIS * 
*STATEMENr TYPE * 
***************** 



BSTMT 
YES .* 



->*SIGNAL CHECKED 

* FUNCTION 

* NAME 



****H1***«***** 

* ENTRY TO * 

* CALLA/CALLB * 

* * 
*************** 



->* 



*****J2********** 

* RESET IFSW. * 

* OUTPUT DO » 
STATEMENT. *- 

GET END- FLAG * 
OR ENDSH * 
*************** 





*, **** 


IS 


*. YES * 


!HPTI 


.* >* Dl 


SFTT 


.* * 




,* *•** 



BVARNO 

****«!] J********** 

* DOHNOATE * 

* CHECK TABLE * 

* tm END * 

* STATEMENT * 

* * 
***************** 

**•* 

* * 
->♦ Dl * 

* * 
**** 



* NO .* PCSW 

D* *< *. AND FMPTR 

* A *. BOTH 
*. RESET.* 



*****DS********** 

* SET FMPTR IF • 

* ANY ARGUMENTS * 

* IN LIST ARE * 

* CHECKED. SCAN * 

* FROM MARKER • 



J3 



*. 



CALSTM 

*****Jlt ********** 

* RE-COPY * 

* STATEMENT < 
>* FROM « 

« SOURCE TEXT * 



CALSYM 

*****](3* ********* 

* OOTPOT ♦ 

* REQUIRED * 
>* STONAL *- 

* STATEMENT * 



***************** 



CALLEX 

****KI|********* 

* • 
>* RETURN ♦ 

* 4 
*************** 
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chart HF- Phase HF Overall Logic Diagram 



***• 

* * 

» A2 * 

* * 
**** 



• ****A],* **••*•**• 



****•****••*•••*• 



->♦ SCAN TEXT *- 

* * 

* * 
***************** 



.* STRUCTURE *. 
. ASSIGNMENT . 
*. STATEMENT.* 



***• 

* * 
->* E2 * 

* * 
**** 



B3 



. *. 



». 



*•** 
.* ITEM IN '*. YES * * 

.PUT STATEMENT.* >* G2 * 

*DATA SPBCN.* * * 
*. .* •*** 

*. .* 
♦ NO 



.* STRUCTURE *. NO 

. IN GET STMT .♦ 

*DATA SPECN.* 



*****D1********** 



EXPAND 

STRUCTURE 

ITEM 



*< ». 



IS IT 
GET DATA 
. LIST 



****••**•****•*** 

i 

**** 

* * 
» A2 ♦ 

* • 



END *. YES 

OF TEXT .* 

.* 
.♦ 
*. .* 

* ***** 

*HK * 

* Al* 

* * 

* 








***• 

* 05 * 

* * 
• ••* 

1 




SAEND/SA73 i 

* OUTPUT END * 

: n^^EL^ : 

* TEMPS IF * 

* NECESSARY * 



SADRAB 

*****E2*** ******* 
*BUILD UP STACK * 

* TOR STRUCTURE * 
•UNTIL FIND BASE*<- 

* ELEMENT. BUY * 
•TEMPS IF NEEDED* 
**••••••**••••••* 



• SOURCE *. NO 

POINTER AT .* 

*. START .* 



SA32 

*****F3* **••**••* 

* OUTPUT BASE * 

* ELEMENT AND * 
>* REPLACE IT IN * 

* SOURCE TEXT BY * 

* NEXT ITEM * 
*•••••**•••*••••• 



SATRT 

*****G2^*^^^^^^** 

* * •*** 
*SCAN STRUCTURE * * * 

• EXPRESSION •< * G2 * 

♦ OR STATEMENT * ♦ < 

* * *••• 
•**••••*•*•••••*• 



* HAS 

STACK BEEN 
*. BUILT . 



* RESET • 
-•SOURCE POINTER *<- 

* TO START * 

* * 
*••*••**•••*•••** 



E5 *. 
.* ARE *. 
YES .* THERE *. 
*.MORE ELEMENTS. 



*•** 

* * 

* A2 * 

* * 
**** 



A 
I********* 



END 
OF EXPRN 
. OR STMT . 
*. .♦ 



**•• 
t • 

» D5 * 

* 4 
• •** 



.* BY NAME 
*. ASSIGNMENT 
*. STATEMENT. 



. YES * SEARCH FOR • 
.» >• BCD-MATCHING *- 

• BASE ELEMENT • 

• * 
•••*•••****•*••** 



BYNll 

*****H5** 

* BACKSPACE • 
♦OUTPUT POINTER * 

* TO START OF * 

* THIS SCALAR * 

* ASSIGNMENT * 
***************** 



J5 *. 
. * 
.* 
->*. FOUND 



SAXl ETC 

••«**X3* •*••**•*• 

♦ CHECK ITEM ♦ 

* AGAINST PATTERN* 



*****K5** ******** 

* OUTPUT * 

* BCD- HATCHING * 
-• BASE * 

* ELEMENT * 

* * 
***************** 



**** 
» • 
► G2 « 
t * 

**** 
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Chart HK. Phase HK Overall Logic Diagram 



•*•*••***••****•• 



• •• 

Bl *. 

•A •■• 

TEXT .» 


■'1 


*. .* 

• NO 


***** 
•HP • 
• *!• 

• • 
* 


IS IT • 
STATBIENT.* 


NESTAT 

*****C2*** ******* 

YES * SEARCH NESTED * 

* >*STATE«ffiMrS FOR • J 

* ASSIGNMENTS * 



.•IT I/O LIST*. 

. OTHER THAN . 

• . GET . • 

•.DATA .* 



***************** 



.* IS IT *. 

INFOT 

• .STATEMENT.* 



* SEARCH FOR * 
->• FIRST ARRAY * 

* IN EXPRESSION * 

* * 
•******•••**•*•** 



• NO 


YES 






.*" *•*. 




* IS IT ♦. 
ASSIGNMENT . * 




*. .* 




* YES 






1 



.* THIS A 
PSEUDO- 
• .VARIABLE 



* NO 



*****F2******^^** 

* CHECK NUMBER * 

* OF ARGQMBNTS • 
>• AND WHETHER •- 

* VALID • 

* * 
*****••********•• 



AAOOP 

*****F3* ********* 

* EXAMINE * 

* LBIT MOST » 
>• OPERAND *- 

• (ARRAY CR * 

• SCALAR) * 
*•****••**••***•* 



* ****pi|********** 

* . MAKE ONE * 
» ENTRY IN * 

STACK FOR *- 
*EACB DIMENSION * 

* * 
*•**•*******•***• 



->* 



*****FS* ••******• 

* GENERATE AND * 
•CHAIN TEMPORARY* 

->* AND GENERATE * 
•BOY STATEMENTS • 

* * 
•••••*****•*••*** 



.* THIS A *. 
. MULTIPLE 
•ASSIGNMENT. • 
*.ARROH.* 



AA3 

* CHECK OTHER * 
•PSEUDO-VARIABLE* 

>* TO LEFT • 

* OF EQUALS * 

* • 
•••*******•****•* 



ARREXP 

*****g].****«***** 

* GENERATE • 

* DO STATEMENTS • 

* USING •- 

* INFORMATION • 

* IN STACK » 
•**********••*•** 



AETRT 

0»t»*n2********** 

• SCAN • 

• STATEMENT • 
>* FOR *- 

• ARRAYS WHICH • 
•NEED EXPANSION • 
*********•••***•* 



*****|]3* ********* 

• CHECK BOUNDS * 

• AND * 
DIMBISIONS *- 

AGAINST STACK • 

• * 
•*••**•*****•**** 



->* 



FRETMP 

•****iis********* 

• GENERATE 

• SELL 
>• STATEMENTS 

•FOR TEMPORARIES 



****••***♦*•••*•« 
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chart HF. Phase HP Overall Logic Diagram 



► A2 * 



• 

* INITIALIZE 
» TEXT 

* POIHTEBS 

* 



♦ sca;i * 

>• SOURCE »- 

♦ TEXT • 

♦ * 
***************** 



.♦ DEFINED ♦. UC 

->». SUBSCRIPT .» 

*. K?J<KER .♦ 



•***C1********* 

* « 

* SUMOV£ « 

*************** 

**** 

* * 

* Dl »-> 

* * 
**** 

suscan 

*****oi* ********* 



DEFINED 
SUBSCRIPT 
. MARKER . 



END 




• 


YES 


EXT 




* 






* 






. . ♦ 






1 


* 






• •••• 

• lA • 

• Al* 



► SKIP TO STAHT * 
» OF SECOND * 
• SUBSCRIPT LIST • 



***************** 




t « 


**** 






• C5 » 


* * 

* C3 ♦-> 

* * 






• ♦»♦ 


**** ■> 






DETEHQ 

C3 

.» IS 

.♦ SUBS( 

*. A SII 

♦DICT I 

*. 


». 
5 *. 
:RIFT ». YES 


DENGUB .*. 

CU *. 
.» • . 
.* EITHER ». NO 


DEEND2 h 

*****C5* <•**•••*• 
♦OUTPUT BUY Tl-MF* 

• TEMP EQUALS. • 
>* SAVE REfCfc OF » 

• TEMP IN TABl.K ♦ 

• ♦ 


lEFCE.** 

. * 


•.CONSTANT .* 
♦ . .♦ 


*. 


.* 


♦. . • 





♦ ♦♦♦ 
* ♦ 
» C5 » 
» ♦ 

♦ ♦♦♦ 



♦♦♦♦♦QK ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 
♦SET DICT REFCE ♦ 

♦ INTO TABLE ♦ 

♦ OF TEMPS ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ .♦-♦-*-♦.♦-♦. 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



DEGBDl 


Ell *. 
♦ ANY ♦ 




. ♦ 


MORE 


♦ 


♦.SUBSCRIPTS 


TN 


♦ 


SECOND 
♦.LIST .♦ 


.♦ 



♦ >♦ C3 ♦ 



.♦. 


SUSUBS 


Fl ♦. 


♦♦♦♦♦f2^ ♦♦**♦♦*♦♦ 




♦ OUTPUT PRIOR ♦ 


♦ . YES 


♦ TEXT. FIND ♦ 


ISOB . ♦ 


>♦ TABLE ENTRY ♦ 


.♦ 


♦ CORRESPONDING ♦ 


• . ♦ 


♦TO ISUB NUMBER ♦ 


♦ . .* 





DEDONE 

♦ ♦♦♦♦pi|^^^^****** 
*SET POINTER TO * 
♦START OF FIRST ♦ 
♦SUBSCRIPT LIST.^ 

♦ OUTPUT REFCE ♦ 

♦ OF BASE ARRAY ♦ 
♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦* 



.♦ END *. YES 

♦.OF SUBSCRIPT .♦ 

♦. .♦ 



*****G2* ***♦♦♦♦♦♦ 

♦ OUTPUT ♦ 

♦ DICT REFCE ♦ 

♦ OF TEMP OR ♦- 

♦ SUBSCRIPT ♦ 

♦ ♦ 
***************** 



♦♦♦*H2^^^^^*^^^ 
» ♦ 

» RETURN ♦ 
» « 

*************** 



>* Dl ♦ 



DENEXT 

*****GI| ♦***•****• 

♦ SUMOVE * 
♦-♦-♦.♦.♦.♦-♦.♦.♦ 

♦ OUTPUT ♦ 
♦SUBSCRIPT, RE- ♦ 

♦ PLACING tsUBS ♦ 
♦♦♦♦*********•*** 



.♦. 
HU ♦. 

. ♦ ANY ♦ . 
YES .♦ MORE ♦. 

♦.SUBSCRIPTS IN. 

♦. FIRST .* 
*.LIST .♦ 



♦ 

* OUTPUT StlLL 
>♦ STATEMtii'i 
» FOR TEKIS 



♦ ♦♦♦ 

♦ ♦ 

♦ Dl • 

♦ t 
*♦♦* 



♦ ♦♦♦♦jll^^^^^*^*^* 

♦ * 

♦ POP Ul- « 

♦ PARAMETER « 

♦ STACK ♦ 

♦♦♦♦♦♦♦♦**♦**♦♦•* 



J") ». 

. • VpAS •. 

THIS A 

CALL r'ROH 

. SUHOVE . 
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Table GA. Phase GA DCLC6 Generation 

j {Main Processing! 

I Statement or Operation Type j Routine | Subroutines Used 

(Scans STATIC chain |IL0100 | ILOllO, IL0120 

(Generates DECLARE control block (ILOllO |CHKATT, IHEENV 

I entry | | 

(Generates OPEN control block entry JIL0120 JCHKATT 



I 
^ 









Table GAl. Phase GA Routine/Subroutine Directory 



( Routine/Subroutine j 

(CHKATT 

( 

i IHEENV 



Function 



I 



Checks attributes and creates control words- 

Checks environment options, and inserts them into DECLARE control 
blocks . 

Entry point from compiler control. 

Scans STATIC chain. 

Generates DECLARE control block entry. 

Test point for environment entry. 

Return point from environment processina. 

Processes file attributes entry. 

Branch point of SYSPRINT file found. 

Generates OPEN control block entry. 

Releases control. 



— 1 
I 



(ILOOOO 

( 
(ILOIOO 

( 

(ILOllO 

I 
(ILOllU 

\ 
(IL0115 

i 
(IL0117 

! 

j IL0118 

( 
(IL0120 

I 
(IL0200 



Chapter 3: Flowcharts, Tables, and Routine Directories 171 



Table GB. Phase GB Pretranslator I/O Modification 



Statement or Operation Type 



jKeiPOves all second level markers 



Main Processing! 
Routine I 



Subroutines Used 



^ 

I Reorders options to put EDIT, DATA 
I or LIST last 



Throughout' 
phase 



None 



A8 



SCNS, SCAN2 



|. 

{Moves DO specifications to precede 
{relevant list in data lists., adds 
END statements 



SCAN2 



LLDOIT 



^ 

{Expands iteration factors in format 
j lists 



FORLST 



None 



|. 

(Checks for use of COBOL files in 
{READ, WRITE, and LOCATE Statements 

t 



A4 



(LOCATE, READ, WRITE, DELETE, MAP, 
(COPY, STSCAN 
-J. - 
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r T- 

I Routine/Subroutine | 



I- 

AFORMT 



4— 



Table GBl. Phase GA Routine/Subroutine Directory 

Function 
Processes FORMAT statements. 

Checks for use of COBOL files in READ, WRITE, and LOCATE statements. 
Scans source text for GET and PUT statements. 
re-orders options to put EDIT, DATA, or LIST last. 
Scans GET or PDT statement for data specification. 



-1 
I 



A4 

A6 

A8 

A21 

COPY (GO 



DELETE (GO 

FORLST 

F2 

F5 

F5A 

F6 

P6A 

F6B 

F7 

LAB17B 

LLDOIT 

LOCATE (GO 

MAP (GO 

MKROOM 

MR 

READ (GO 

SCAN2 

SONS 
STSCAN (GO 

WRITE (GO 



Copies a structure and places the copy on the COBOL chain. Sets up 
text skeletons. 

Removes an offending I/O statement and inserts an error statement in 
the output text. 

Expands iteration factors in format lists. 
Creates and buys integer temporary. 
Scans and outputs format item. 
Sells temporary. 
Tests for end of format list- 
Tests for end of format specification. 
Outputs end of format specification. 
Scans foinnat list. 
Processes format list in GET or POT statement. 

Moves DO specifications to precede relevant list in data lists, adds 
END statements - 

Checks for the use of a COBOL file, and puts out a warning 
diagnostic. 

Compares the PL/I and COBOL and PACKED (NONSTRING) mappings of a 
structure. 

Provides space in a statement in new source file. 

Initializes text blocks and pointers, and obtains scratch storage. 

If a READ IGNORE is encountered, no action is taken. If a READ SET 
is encountered, a warning diagnostic is given. If a READ INTO for a 
structure is encountered, PL/I and COBOL mappings are compared. 

Scans option list for end of option or statement, expands DO 
specifications, and changes certain function markers into 
pseudo-variable markers. 

Scans option list for end of option or statement. 

Stores the dictionary reference of the file and the INTO/FROM 
variable, and sets flags. 



For structures, the PL/I and COBOL mappings are compared. 



.-J 
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Table GK. Phase GK Pretranslator Parameter Matching 1 

I , T T- 

I I Main Processing) 

I Statement or Operation Type | Routine | 



Subroutines Used 



—^ 



■H 



I Scans source text for function 
I markers 



I BASCAN 



jCPSTMT, CRSTMT 



(Processes function, puts out |BAPM 
I reference and initial code bytes | 
t 



4 

I SCANRP 
I 



■H 



(Processes arguments 

|. 

I Checks numbers of arguments 
L • 



I BALOOP 

-+ 

j ARGNOQ 
.X 



lADDTGT, SCNCRP 

4 

I None 

-X 



-H 



—J 



Table GKl. Phase GK Routine/Subroutine Directory 



j Routine/Stibroutine j 

^ 



Function 



ADDTGT 

ARGHOQ 

BABT3 

BACALQ 

BADELM 

BAFM 

BAFST 

BALOOP 

BALPQ 

BAMORE 

BANORN 

BAPVM 

BARECQ 

BARGFN 

BASCAU 

BASTOP 

CPSTMT 

CRSTMT 

SCANRP 

SCNCRP 



Adds data to output text. 

Checks number of statements. 

Tests for STOP marker. 

Outputs function and first bytes of argument list. 

Tests for end of argument list. 

Processes function, puts out reference and initial code bytes, 

Locates SETS list and parameter list for function. 

Processes arguments. 

Tests whether argument list is present. 

Accesses next argument in list. 

Sets STOP marker to scan argument. 

Examines pseudo- variable. 

Tests for nested function reference. 

Outputs warning message. 

Scans source text for function markers. 

Outputs arg\]ment. 

Adds closing bytes of a statement to output text. 

Adds first bytes of a statement to output text. 

Scans argument list. 

Scans argument. 



—J 
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Table GO. Phase GO Preprocessor Parameter Matching 2 

j I Main Processing! | 

I Statement or Operation Type j Routine j Subroutines Used | 

i. + 1 ^ 

I Initialization and scratch core JPMATCH | POLYMV | 

I utilization for Parameter Matching j | j 

12 II I 

L J. X J 



Table GOl. Phase GO Routine/Subroutine Directory 

r T 1 

I Routine/Subroutine | Function j 

i. + ^ 

IPMATCH I General initialization and scratch core utilization for Parameter 

I (Matching 2. 

I I 

I POLYMV I Moves the routines POLYl, POLY2, POLY3, POLYU and POLYS into scratch 

I {storage (see Table GP) . 
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Table GP. Phase GP Pretransla-tor Parameter Matching 2 

f. . ^_; j._. 

Main Processing] 
Statement or Operation Type 



Routine 



Subroutines Used 



H 



-^ 



Scans text for procedure and 
function calls 



BSl 



ADDTT, STKINF, UNSTCK 



Examines argument lists for 
expressions 



BSU 



EXSCAN, Ml, MU, Ml 6, SCANFR 



■H 



Creates temporaries for scalar 
expressions and constants 



Ml 6 



ADDTT, COPYTP, MKDCEN, SETBUY 



■H 



Creates temporaries for array 
expressions 



E2 



ADDTT, CHCKBl, COPYTP, MKDCEN, 
SETBUY 



Creates temporaries for partially 
subscripted array expressions 



E3 






ADDTT, CHCKBU, COPYTP, MKDCEN, 
SETBUY 



•H 



Creates special temporaries for 
partially subscripted arrays 



EX16 



Checks single arguments (except 
structures) with parameter 
descriptions 
^ 

Checks single structure arguments 

Creates temporaries for structure 
expressions 



MU 



ADDTT, BS2, CHCKBU, CHECKT, COPYTl, 
MKDCEN, STKINF, UNSTCK, Zll, 
SETBUY, SETMT 

CHECKT, Ml 6 



M5 
M21 






CHECKS, CSTTMP 



CSTMP2, MKDCEN, CHCKBU, SETMT, 
ADDTT 



■H 



Creates temporaries for partially 
subscripted structure 

Compare the two argxanents of the 
POLY function and create 
temporaries if the arguments are 
not both floating and do not have 
the same scale and precision 



Z22 






POLYl, P0LY2, 
POLY3,, POLYU, 
POLYS 



BS2, ADDTT 
BS2 



-H 



Creates special dictionary entries 
for generic entry labels used as 
arguments 



M37 



None 



..J 
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Table GPl. Phase GP Routine/Subroutine Directory 

r T 

I Routine/Subroutine | 
^ 



Function 



-^ 



lADDTT (GR) | 
1 1 


|BS1 


1 


|BS2 




|BS4 




IBSIO 




IBS33 




1 CHCKBl 


(GR) 1 


ICHCKB2 


(GR) 1 


1 CHCKB3 


(GR) 1 


ICHCKBU 


(GR) 1 


1 CHCKSl 


(GR) 1 


1 CHECKB 


(GR) 1 


1 CHECKS 


(GR) i 


jCHECKT 


(GR) 1 


1 COPYTP 


(GR) 1 


1 COPYTl 


(GR) 1 


1 I 
ICSTTMP/CSTMP2 (GQ) | 
1 1 


lEXSCAM 


(GQ) 1 
1 


IEX16 (GQ) 1 
1 1 


i 1 
|£X36 (GQ) 1 
j 1 


|E2 (GQ) 


1 


|E3 (GQ) 




1 MKDCEN 


(GQ) 1 


jMl (GQ) 




|M2 (GQ) 




|M4 (GQ) 




|M5 (GQ) 




|M6 (GQ) 


i 


|M10 (GQ) 1 



Adds text to output block. 

Scans input text. 

Scans input text. 

Examines argument lists for expressions. 

End- of -program routine. 

Tests for constant argument. 

Compares the bounds of argximent and parameter arrays, and creates 
new dimension tables for temporary arrays. 

Compares the bounds of argument and parameter arrays where the 
argument is partially subscripted, and creates new dimension tables 
for temporary arrays. 

Creates a new dimension table from a parameter description. 

Creates new dimension tables for partially subscripted array and 
structures . 

Compares the structuring of argument and parameter structures. 

Compares the bounds of argument and parameter arrays. 

Compares structuring and data types of argument and parameter 
structures . 

Compares data types of arguments and parameters. 

Creates a temporary dictionary entry from a parameter description. 

Creates a temporary dictionary entry for a partially subscripted 
array from a parameter description. 

Create temporary structure dictionary entries. 

Scans expressions for arrays and structures. 

Creates temporary arrays for partially subscripted array arguments. 

Creates a chameleon dictionary entry. 

Creates temporaries for array expressions. 

creates temporaries for partially subscripted array expressions. 

Makes dictionary entries. 

Examines argument expressions. 

Examines single arguments with parameter descriptions. 

Compares single arguments with parameter descriptions. 

Examines structure arguments. 

Tests for structure parameter. 

Processes sutecripted variable argument. 
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Table GPl. Phase GP Routine/Subroutine Directory (cont'd) 



— T 
I 



I Routine/Subroutine j 

M12 (GQ) 

M13 (GQ) 

MIU (GQ) 

M16 (GQ) 

M21 (GQ) 

M22 (GQ) 

M23 (GQ) 

M24 (GQ) 

M37 (GQ) 



MUl (GQ) 

KU4 (GQ) 

POLYl, P0LY2, 
POLY 3, POLYU, 
POLYS (all in GO) 

SCANFR 

SETBUY (GQ) 

SETMT (GR) 

STKINF 
TESTC 
UNSTCK 
Zll (GR) 

Z22 (GR) 



Function 

Creates a warning message. 

Gets BUY text. 

Processes scalar argximent. 

Creates temporaries for scalar expressions and constants. 

Creates temporaries for structure expressions. 

Processes data item parameter. 

Processes label parameter. 

Creates a structure temporary. 

[Creates dictionary entries for generic entry labels which are 
arguments. 

Error routine. 

Processes dimensioned scalar argument. 

[Check the arguments to the POLY function and generate code to buy 
[temporaries, if the arguments are not both floating and do not have 
the same scale and precision. 

Scans for matching parentheses. 

Inserts skeletons to buy temporaries in the output text. 

Sets temporairy dictionary references in MTF compiler functions for 
array and structure bounds. 

Stacks information on encountering nested functions. 

Tests for constant argument. 

Unstacks information. 

Generates text to set up the dope vectors of partially subscripted 
array temporaries. 

[Generates text to assign the structure subscripts of partially 
subscripted structures tp temporaries, and then to set up the dope 
vector for the partially subscripted structure temporary. 
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Subroutines Used 



Table GU, Phase GU Pretranslator Check List 

r T T 

I I Main Processing) 

I Statement or Operation Type j Routine | 

I Scans statement; checks if |BSCAN |CALL, LIST, MOVE, SUOPQ 
I preceding SIGNAL statement is j | 

I needed | j 



^ 

I Scans statements; checks if 

I following SIGNAL statement is | 

I needed | 

^ + 

I Provides a SIGNAL CHECK statement JCALL 



ASCAN 



j None 



■H 



GENTST 



J. 

{Searches list for checked items 

t 



1 SUOPQ 



I CALL, LIST 
-A 
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Table GUI. Phase GU Routine/Subroutine Directory 



r — 7 T- 

I Routine/Subroutine | 



Function 



-H 



ABGNDO 

AFM 

ASC 

ASCAN 

ASCL 

ASPECL 

ASTMT 

ATESTU 

ATEST5 

ATST3 

BENTON 

BPC 

BSCAN 

BSTMT 

BTEST3 

BTESTU 

BVARNO 

CALL (GV) 

CALLBA (GV) 

CALLEX (GV) 

GALLIF (GV) 

CALSTM (GV) 

CALSYM (GV) 

GENTST 

LIST (GV) 

MOVE 

SUOPQ (GV) 



Sets IF-switch for THEN or ELSE clause. 

Signals checked items in argument list. 

Tests statement identifier and takes action if necessary. 

Scans statements; checks if following SIGNAL statement is required. 

Examines statement dictionary entry. 

Examines statement dictionary entry which is not a label. 

Housekeeping for end of statement. 

Tests for argument list. 

Tests for THEN. 

Tests for end of statement. 

Test whether argument list contains checked item. 

Processes "possible check" statement. 

Scans statement; checks if preceding SIGNAL statement is required. 

Tests whether SIGNAL statement may be needed after statement output. 

Tests for end of statement. 

Tests for argument list. 

Tests for END statement. 

Outputs SIGNAL statement for checked item. 

Tests whether SIGNAL precedes or follows statement responsible. 

Exit from subroutine CALL. 

Tests whether DO statement must be output. 

Re-outputs overwritten statement after DO statement. 

Outputs SIGNAL statement. 

Checks space in output text block. 

Updates and searches list of currently checked items. 

Moves text from source to output. 

Searches list for checked items. 



—J 
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Table HF. Phase HF Pretranslator Structure Assignment 



T T 

Main Processing 
Routine 



Y- 



Stateinent or Operation Type 



Subroutines Used 



Scans text for structure assignment 
statements, regions of nested 
statements, output list 
expressions, and structure 
references in input lists 



MR 



BYNAME, GENTST, LSTSCN, MOVE, 
NSTSCN, STRASS, STREXP, STRURE 



Expands structure assignments and 
expressions into a set of scalar 
assignments or expressions 
corresponding to the base elements 
of the structure operands. Where 
the base elements are arrays, the 
corresponding component expressions 
or assignments are surrounded by 
appropriately iterating DO groups 



BYNAME, STRASS, 
STREXP, STRURE 



DVCON, GENTST, LSTSCN, MOVE, 
NSTSCN, SBGN 



Scans regions of nested statements 
for structure assignments 



NSTSCN 



MOVE, NSTSCN, STRASS 



•H 



Adds text to the output string 



MOVE 
GENTST 



GENTST 



Determines space availability in an 
output text block 



MOVE 



Scans function argument and 
subscript lists 



LSTSCN 



MOVE, NSTSCN 



Constructs DO statements and checks 
bound equivalence 



DVCON 



GENTST 



Constructs subscript lists for 
references to dimensioned structure 
base elements 



SBGN 



GENTST 



•H 
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Table HFl. Phase HF Routine/Subroutine Directory 

r * T 

I Rotitine/Subroutinel 



Function 



•H 



BYNAME (HG) 

BYNl (HG) 

BYNll (HG) 

BYN13 (HG) 

DVCON (HG) 

GENTST 

LSGET 

LSTSCN 

LS21 

LS23 

MOVE 

MR 

MRBYN 
MRTRT 
NSTSCN 
SADRAB (HG) 
ShEtm (HG) 
SAOP (HG) 
SATRT (HG) 
SAXl (HG) 
SA20 (HG) 
SA32 (HG) 
SA36 (HG) 
SA73 (HG) 
SA79 (HG) 
SBGN 

STRASS (HG) 
STREXP (HG) 
STRURE (HG) 



J.. 



Expands BYNAME structure assignments . 

Searches for matching BCDs down to base elements. 

Returns to start of current output assignment statement. 

Test for matching BCDs. 

Constructs DO statements, checks bound equivalence. 

Determines space in output text block. 

Tests for GET statement. 

Scans subscript arguments and subscript lists. 

Tests for structure item in data specification. 

Tests for data-directed data specification. 

Adds text to output string. 

Scans text for structure assignment statements, nested statements, 
output list expressions, and structure references in input lists. 

Tests for BY NAME assignment statement. 

Scans source text for structures. 

Scans regions of nested statements for structure assignments. 

Builds up stack to show pattern of structure. 

Tests whether END statements need to be output. 

Examines dictionary reference found. 

Scans structure expression or assignment. 

Tests whether item matches the stack pattern. 

Tests for start of structure expression. 

Outputs base element and replaces it in source text. 

Tests for BY NAME assignment statement. 

Outputs END statements. 

Resets scan pointer to start of expression/assignment. 

Constructs subscript lists for references to dimensioned structure 
base elements. 

Expands structure assignments into DO loops. 

Expands structure expressions. 

Expands structure references. 
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Table HK. Pretranslator Array Assignment 



Statement or Operation Type 



JMain Processing! 
I Routine 



Subroutines Used 



i Scans text for array and scalar JMR 

(assignment statements j 

^ + 

I Scans text for nested array and jMR 

(scalar assignment statements j 

^ + 

I Scans text for array expressions in|MR 
I I/O lists in GET and PUT statements) 

(Expands arrays into DO loops and (ARRASS 
(scalar assignments; checks ( 
(dimensions and bounds j 
L X 



(None 



■H 



NESTAT 



•H 



(ARRASS, LSTSCN 



4 ^ 

(FRETMP, MDE, OPTST, SLGCH, SUBSKP 



Table HKl. Phase HK Routine/Subroutine Directory 



r T- 

( Routine/Subroutine ( 



Function 



•H 



(AADOP (HL) ( 
I 1 


! 

(AAMULA 
1 


(HL) ( 

1 


( 1 
(AA3 (HL) I 
1 1 


) 1 
(AETRT (HL) j 
1 1 


1 
(ARRASS 

( 


(HL) ( 


1 
(ARREXP 

i 


(HL) ( 


( 

(ARRIN 

1 


[HL) ( 


! 

(ARROUT 
1 


(HL) ( 


1 

j FRETMP 

( 




1 

(LSTSCN 

1 




1 

(MDE 

1 




(MR 

1 
1 




) 
1 

( MREOP 
1 




( 

(MRTRT 
1 




1 

j NESTAT 

1 




1 

( OPTST 
1 




( 

( SLGCB 

1 




( SLMCG 
1 




( 

( SUBSKP 




L_.— — . 





Examines leftmost operand. 

Tests for multiple assignment. 

Checks pseudo- variables. 

Scans array expression. 

Expands arrays into DO loops and scalar assignments; checks 
dimensions and bounds. 

Generates DO loops and subscripts for array references. 

Entry point for array expressions in input lists. 

Entry point for array expressions in output lists. 

Generates a SELL statement for temporaries bought in the current 
statonent. 

Scans I/O lists for possible array expressions. 

Makes a temporairy dictionary entry. 

Scans text for array and scalar assignment statements, for nested 
array and scalar assignment statements, and for array expressions in 
GET and PUT statements. 

Tests for end of text. 

Scans text. 

Scans nested statements. 

Tests any given operand. 

Generates and checks subscript lists. 

Inserts subscripts in expanded array position. 

Skips a subscript or subscript list. 
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Table HP. Phase HP Pretranslator iSub Defining 



Statement or Operation Type 



I Main Processing! 
I Routine 



Subroutines Used 



I Scans source text for references jMASCAN 
I defined by iSUB I 



MOVE 



|. 

I Processes references defined by 
liSUB 



DEFSUB 



JGENTST, MOVE, SULIST, SUMOVE 



|. 

{Scans subscripts 



-H 



I SUMOVE I None 
I (in SULIST) | 



._J 



Table HPl. Phase HP Routine/Subroutine Directory 



I Routine/Subroutine j 



Function 



H 



DEDONE 

DEEMD2 

DEFSUB 

DEGBDl 

DENE XT 

DENGUE 

DERCUR 

DERETN 

DETEMQ 

GENTST 

I NIT 

MASCAN 

MOVE 

SULIST 

SUMOVE 

SUSCAN 

SUSUBS 



Resets pointers to scan first sxabscript list. 

Creates and buys temporary. 

Processes references defined by iSUB. 

Tests for end of second subscript list. 

Outputs first-list subscript and tests for end of list. 

Tests whether dictionary reference is constant or integer variable. 

Stacks parameters for recursive entry to DEFSUB. 

Returns to MASCAN or syscAN. 

Tests whether second-list subscript is simple dictionary reference. 

Checks space in output text block. 

Initializes text blocks and pointers, gets scratch storage. 

Scans source text for references defined by iSUB. 

Moves text from source to output. 

Scans subscript lists. 

Scans subscripts. 

Scans subscript. 

Replaces iSUB by corresponding subscript or temporary. 
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• Chart 05. Translator Loaical Phase Flowchart 



***************** 



» 05A1 



.♦B.I.F. WITH*. YES 

. AGGRSGATED .* 

*.ABGUKEtlT .* 



.♦ ANY * 
* FUNCTION 
REFERENCE 



* ANY AREAS 


•. NO 


OR POINTERS 


.» , 


♦. • 




• . .♦ 


1 


». .* 


ii 


• YES 


***** 






*06 • 






* El» 






* * 






• 



* PRE-GENERIC 

* FUNCTIONS 

**************** 



*****C2* ********* 
*PRE-GENERIC IK* 
*-*-*.*-*-*-*.*-* 
->• INITIALIZATION * 
♦PRE- PROCESSOR * 
* * 

***************** 



*****D2*** ******* 
•PRE-GENERIC IL* 
*-*-*•*•*-*-*-•-* 
» GENERIC * 
* FUNCTIONS * 
* PRE- PROCESSOR * 
***************** 



*****E2********** 
♦GENERIC IH* 
*.*-*-*.*.*-*-*-* 
♦PROCESS GENERIC^- 

♦ FUNCTIONS ♦ 

* * 
***************** 



* ANY CHAM- * 

ELEON TEHP- 
♦.ORARIES .♦ 



*****EII*1«******* 
* POST-GENERIC IT* 
*-*-*-•-*-*-*-*-* 
>• EXAMINE ALL * 

* CHAMELEON * 

* ASSIGNMENTS * 
***************** 



*****P1********** 

♦ POIMTER/AREA IX* 
*-»-»-*-•-•-*-•-• 
*CHECK AREAS AND* 
» POINTERS * 

* * 
•*****•*••******* 



*«***G1********** 
•CONSTANTS JD* 
*.*-*-•.*-•-•-•-* 

* EVALUATES * 

* CONSTANTS * 

* * 
»•****•****••**** 



**•* 
♦ 06 ♦ 
->* Bl 
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Chart lA. Phase lA Overall Logic Diagram 



•****A1**** ****** 

* * 

* lOAD MODULE * 

* AND • 

* INITIALIZE • 

* * 
********«•*•*•*** 



* Bl ♦-> 



***• 
ESCAN 

*****B1********«* 

• SCAN TEXT rOR * 

• OPERATOR. * 
— >• OPERAND. OR ♦ 

* END OP * 

* PROGRAM * 



.* IS IT *. YES 
*-*.,fg§GSlM,.* 1 






*. .♦ 




• NO •*•*» 




*IG * 
* Al* 

• • 




* 




.*. ESTCAC 
Dl *. »»«»»D2»********* 
.* *. * PUCE OPERAND * 

*:* ^In" *:*!!2 >: " I2j{§\r : 

*. OPERATOR .* * FOLLOWING * 
*. .* ♦ OPERATOR * 


i 


YES 






TNC 






*****E1*< 
•COMPARE 

* OPERJ 


»**•••••• 

WEIGHTS* 

TORS * 







*•*•••••********• 



STACK 

WEIGHT 

LESS 



•****G1********** 

* SELECT • 

* APPROraiATE • 



* HANDLE • 

* OPERATOR * 

***•*••**•*•***** 



* MOVE TRIPLES * 
I * TO • 

* OOTPOT * 

* • 
**•**••*••****•** 



.*. 

F2 *. 

* IS * 
SPECIAL 
ACTION 
NEEDED 

*• .* 
*. .* 



****G2********** 

* 

FILL OOT * 

TRIPLE * 

IN STACK • 

* 

***•*•*•***•**** 



**** 

• * 

• Bl • 

• • 
*••• 



•****G3* ***••**•* 

* SELECT * 

* APPROPRIATE * 

* ROUTINE TO * 

* HANDLE * 

* OPERATOR • 
•••••****••••***• 



* MOVE TRIPLES * 

• TO ♦- 

♦ OUTPUT * 

* * 
****•*••*•••*•*•* 
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Chart IG. Phase IG Overall Logic Diagram 



« 

I — >• SCAN TEXT 

* 



<— 1< ♦ IGAl « 

* « 

*4*« 

* * 
» Al « 

* « 



BR 



B2 ». 
* * •• 
.♦ FIRST ♦. YES 

->*.BOILT-IN BUY .» 

*.0P PRIF .• 



«»»»C2***»***** 



•****C2* ******** 
* 
* 
->• BUMP STACK 

* 
**************** 

**** 

* • 

* Al *<—, 

•**.,♦ 

RP 

***«*E2* <*•****•* 

* * 
*DECREMENT STACK* 

->* • 

* * 

* * 
***************** 



* Al •<-, 

%**.* 

Rl .*. 



*****B3* **•***•• 



**************** 
**** 
Al •<- 

YES 
C3' 



♦ Al •<-, 

* * 1<- 
*»♦* 1 Y 



*****D3* ********* 

* * 
•PLACE REF FROM * 

->*TOP OF STACK IN* 

* BOY TRIPLE * 

* * 
***************** 



**•* 

* * 

* Al * 

* * 
***• 



. *IS THERE A 
. DUMMY IN 
*. STACK 



*****F3********* 

* INSERT ASSIGN 
->* TO DUMMY IN 

• TEXT 

* 
******•**••***•* 



*****Ci)********** 

* * 

* * 
*HAKE NEW DUMMY •- 

* * 

* * 
***************** 



*«*a^*««*.t««* 

MAMK DUMMY JStC 



>***•**•« 



*****(;5********< 



**************** 



*****f'll*4******* 



**************** 
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• Chart IK. Phase IK Overall Logic Diagram 



****A1********* 

* IKA2 • 

» * 



»***•**••***•*»•• 



»****B2* ********* 



»****•*•*****«« 



•****C2 ********** 
♦SAVE TEXT BLOCK* 

* NUMBERS IN * 
*COMMUNICATI0NS * 

* REGIOM * 

* * 
******••****•♦**• 



MOVETT V 

*****D2*** ******* 
» MOVE ROUTINE * 
*GNEOP INTO TEXT* 
♦AND TABLE SCTRT* 
*INTO TEXT BLOCK* 
* STORAGE * 
***************** 



*LOAD PHASE IL 



***************** 

1**** 
• IL * 
->* A2 » 
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• Chart XL. Phase IL Overall Logic Diagram 



****M********* 

* • 

• IIA2 * 



* IHITIM.IZE 



•••***•*••**••••* 



**«**•••••**•*•*« 



BASBOD 

••«**C2********** 
•SET POINIBRS TO* 

•Hzsiao roncTioM* 



*••••****••••*•*• 



BEGZM <> 

•«***22********** 



*****r2********** 

• ♦ 

•SET FOIHTBRTO ♦ 

• BXPRiSSIOM • 
•MULYSBR CODK • 

• * 



GBTEST 

•****G2********** 
•Bit TSXT BLOCK 
•SfORME PC 

♦ jn piXsB —^ 

*SET P0INTE8 TO 



USE* 



OINTE 
.li.* 



• *•* 
*IM * 
->• A2 
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Chart IM. Phase IM Overall Logic Diagram 



*****A2********* 
* 

• LOKD 

• MODOLES AND 

• INITIALIZE 



* B2 ♦-> 

* • 
• **• 

GNTRID 

••***B2********** 

* SCAN FOR * 
PROCEDURE, • 

~"" — ""•, • 
OR • 



C2 


♦ . 




.» IAS ♦. 




* END OF *. 
PROGR M BEEN , 


.1!!! 


*. F)UND .♦ 




*. .* 




♦ . .♦ 


' ' 


* NO 


*•••* 






•IT • 






* X2* 








, 




* 



*****02********** 
*IDENIIPY LOHEST* 
* LEVEL • 
•..INVOCATION * 
•STACKING START • 
*CF OUTER LEVELS^ 



*•** 

* « 
» E2 * 

• « 
*••• 



.* IS 
. FUNCTION 
•.BUILT-IN 



GNBIFH 

• •***£||«*****«*** 

• ACCESS » 

• BUILT-IN ♦ 
>• FUNCTION ♦ 

• TABLE ENTRy • 



OF FAHILY 

MEMBER 

DESCRIPTIONS 



: ""Slavs'" 
: A§ifW¥s 



•****G2*^**^***^^ 

■ AN- 

pVB 

EON 

lENTS 



aNF027 V 

*****B2*^****^^** 

•Dl^lcSf pSoS^IN * 

>»TStT F0LL0HIM6 • 

•FoScTIOHraiME • 

• TRIPLE • 



•••••Jl**^^^^^^^^ 

• CHECK FOR • 

• ONE AND ONLY * 

• ONE AGREEMENT • 



6NFM3 ^ 

* REPLACE • 

* ORIGINAL • 

* REFERENCE •- 

* HEN TEXT • 

* * 
•••••*••*•••••**• 



• •***FI|********** 

• * 
•CHECK ARGUMENTS^ 

• FOR CORRECT • 

• NUNBER • 

• * 
••**••*****••*•** 



6NARID ' I 

• ••••G !!**••••***• 
•CHECK ARGUMENTS^ 
•FOR VALID TYPE • 

• CONVERTING IF • 

• NECESSARY • 

• * 
•••*•••**•***•**• 



* IDENnFY AND • 
RESOLVE 



•••*•*•****•*•**• 



•RESTORE POINTER* 

•TO NEXT^ LOWEST • 

>• LEVEL OF • 

• INVOCATION • 



• • 

• E2 • 

• * 
*••• 



IS 
FUNCTION 
. GENERIC 



GNBlfi V 

• ••**KI|*** •***•*• 

• PLACE RESULT • 
•DESCRIPTION IN • 

•TEXT FOLLOWING •<- 

•FUNCTION PRIME • 

• TRIFLE • 



GNB08 

• SELECT 

• RELEVANT 
>• FAMILY 

• MEMBER 



••••*K5*********« 



ORIGINAL 

REFERENCE 

IN TEXT 
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Chart IT. Phase IT. Overall Logic Diagram 



»*•******• 



PGTXSC 

* 

• SCAN TEXT 

• FOB RELEVANT 
» TRIPLES 

* 



B3 •. 

. • HAS ♦ . 

.• END OF * 

->*.PKOGRAM BEEN 

• . roOND .• 



J 










C2' ■». 










. ♦ WAS ♦ . 






♦ *•» 




.* FUNCTION ♦. 


NO 


* 


* 




». MARKER .* 


->• 


32 * 




*. FOUND .* 






* 










**** 




' ». . *' 










♦ YES 










• ••* 












* * 












• D2 •-> 












* * 












»»•* 












PGFUNC ^ 








t 


***t*D2*** ****** 








D3' '*. 


* 








* 


» ALTER < 






. * 


HAS IT 


* FUNCTION 
•NESTING STATUS 








FUNCTION 






'» 










*. 










*. .♦ 












' NO 



*****Dlt********** 

* * 

* MODIFY * 
>* TMPD' S * 1 

* IF NECESSARY • 

* • 
**••**•*****•*«*• 



» D2 *< * 



.♦ WILL *. 
, * IN-LINE 
CODE BE 
* . GENERATED. 



.* IS *. 

. * FUNCTION * 
. OPTIHIZABLE 



•****P3** ******* 
* 

» SCAN TEXT 
>♦ FOR BUY/ 
* BUYS TRIPLES 
* 
**************** 



* WAS * 








► ** 


NESTED 


* 


YES 


* 




FUNCTION 






•>* 


nv 


UETECrED 


* 




* 





.* IS *. **** 

TEMP. A *. NO * * 
CHAMELEON .* >* B2 • 



'•**J3** ******** 



**••****••**••*« 



PGASS 

*****j((********** 

* DELETE * 

* ASSIGNMENT * 
>* INVOLVING * 

* CHAHBLBON * 



***************** 



PGFNCM 

*****KU********** 

* DELETE ALL * 

* OTHER * 

* REFERENCES TO * i 

•THIS CHAMELEON * 

* * 
***************** 
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Chart IX. Phase IX Overall Logic Diagram 
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Chart JD. Phase JD Overall Logic Diagram 
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•••••X2********** 
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* STACK FULL • 
•«••••••**•••*••• 



• UPDATE TEXT » 
-* POINTER RESET » 

♦ TFLAG TO ZERO ♦ 



•*••••**••••••**• 

A 
J 



PUT REF IN * 
^' STACK TEMF. *- 
•SET SFLAG « 6l • 

• * 

•*••**••*•*•*•*•* 



♦ PUT REF INTO • 
>* STACK TEMP. • 

•SET SFLAG = 62 • 

• « 
*•*••**•***•••*** 



->1 
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Table lA, Phase lA Translator Stacker 



■T T- 

I Main Processing! 
j Routine | 



Statement or Operation Type 



I" 

I Scans source text 

|. 

I Compares transfer vector 

h 

h 



Subroutines Used 



-^ 



ESCAN 



None 



EACTNC 



JECOO to EClO 



H 



stacks transfer vector 



EACTNS 



|ESOO to ES2E 

4 

tEGENR2, EGENR3, ENEWBL, ENOREP, 
I ERE PL, ETRBMP 

-X 



I Generates triples 
I 



EGENR 



._J 



Table lAl, Phase lA Routine/Subroutine Directory 

Function 
I Compares transfer vector. 
Stacks transfer vector. 

Provide comparison action for each operator. 
[Generates triples. 



r T" 

I Routine/Subroutine | 

^ + 

EACTWC 

EACTNS 

ECOO to EClO 
EGENR 
EGENR 2 



I 



IEGENS3 
I ENEWBL 
1 ENOREP 

EREPL 

ESCAN 
1 ESTCAC 
ESOO to ES2E 
ETRBMP 



^Generates triple for top stack operator, with blank first operand, 
I then deletes the operator from the stack. 

[Generates triple with two blank operands. 

Obtains and chains new text block for output, resets output pointer. 

Deletes top stack operator, flags new top operand as the result of 
the triple just generated. 

Replaces top stack operator by its prime, to indicate end of a list 
of function arguments or subscripts. 

Scans source text. 

Placps operand in stack. 

Handle stacking of operators. 

Increments output point over one triple if end of text block is 
found. 



. J. . J 
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Table IG. Phase IG Translator Pre-Generic 
r : T 



Statement or Operation Type 



(Scans text for BUY aggregate 

j argument dunonieSf end-of-block, and 

|end-of-prograin triples 



Main Processing! 
Routine | 



Subroutines Used 



■H 



GSl 



j FR, BR, TRFl, GSl 2 

I 

I 



^ 

I Obtains next text block 



^ 

I Transfers text to output block 



GSl 2 
TRFl 



I None 

4 

jNone 



j. 

{Transfers text skeletons to output 



y 

{Stacks and unstacks information on 
I encountering function and function 
I triples 



TRF2 
FR, FRP 



JGSl, TPFl 

-+ 

I None 

I 



■H 



|. 

{Inserts assignment statement for 

{aggregate argument dummies 

L J 



BR 



{GSl, TRF2 

{ 
.X 



Table IGl. Phase IG Routine/Subroutine Directory 

r T 

{ Routine/ Subroutine { 



Function 



•H 



J BR 

I 
(BRl 

I 
(BR2 

I 
|BR3 

I 
|BR4 

I 

|FR, FRP 



I GSl 

I 

I 

IGS12 

I 

I TRFl 

I 
|TRF2 

L 



Inserts assignment statements for aggregate argument dummies. 

Transfers point for IGNORE triple. 

Inseirts assignment into text. 

Makes new dictionary entry for temporaries. 

Processes second BUY. 

Stack and unstack information on encountering function and function* 
triples. 

Scans text for BUY aggregate argument dummies, end-of -block, 
end- of -program triples. 

Chains to next text block on encountering an end of block marker. 

Transfers text to the output block. 

Transfers text skeletons to the output block. 



—J 
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> Table IK. Phase IK Translator Pre-Generic 
r -T 



Statement or Operation Type 



I Initializes phase and obtains text 

I block storage for routine GNEOP 

I (called by main generic phase) , for 

{translate table SCTRT used by the 

I expression analyser and for nested 

I function stack 

j. 

t Moves routine GNEOP, and table 

I SCTRT into text block storage 

Y — 

I Loads Phase IL and transfers 
I control to it 

L . . .; 



Main Processing 
Routine 



Subroutines Used 



-• I 



ENTER 



None 



MOVETT 



None 



•H 



■H 



LOADIL 



None 



._j 



• Table IL. Phase IL Translator Pre-Generic 
r T- 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Initializes phase, qets scratch 
storage and sets pointer to 
function table 



BEGIL 



None 



■H 



Moves function table into scratch 
storage and sets pointer to nested 
function stack area 



BASROU 



None 



■H 



Loads modules IM and IN and sets 
base for expression analyzer code 



BEGIN 



None 



Gets text block storage for use by 
Phase IM. Sets pointer to it. 
Moves constants into scratch 
storage and sets pointer to first 
constant. Transfers control to 
Phase IM 



GETEXT 



None 



■H 



.-J 



Table IM. Phase IM Translator Generic 



Statement or Operation Type 



JMain Processing] 
I Routine 



Subroutines Used 



I + 

I Selects function for processing jGNFUNC 
^ — + 

I Selects generic procedure jGNPLIG 



GNXTRP 



•H 



JGNDRTA, GNXTRP, GNFMID 



^ 

I Selects generic Library routines; 
I determines function result 



GNBIFH 



JGNARID, GNCBEF, GNCACI , GNCTBI , 

IGNGNCR, GNPRSC, GNSACH, GNSAPC, 

JGNSBAR, EXPANL, GNSAPR, GNSBRT, 
I GNSFMS 



K 



•H 



selects chameleon dummy and inserts JGNCH AM 
it in relevant dictionary entry | 



i GNXTRP, EXPANL 
I 



I" 

j controls scan of text — branches | EXPANL 

I to processing routine | 

L . i 



— ^ 



lARITH, LSTl, SUBSPT, ASSIGN 



._J 
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•Table IMl. Phase IM Routine/Subroutine Directory 



r T- 

I Koutine/Subroutine | 

h 



Function 



•H 



ARITfl (IN) 
ASSIGN (IM) 
EXPANL (IN) 
GNARID (IP) 

GNBIFH (I?) 

GNB08 (IP) 

GNB16 (IP) 

GNCACI 

GNCBEF 

GNCHAM 

GNCTBI 

GNDRTA 

GNEND 

GNEOB 

GNSPP 

GNFMID (IQ) 

GNFONC 

GNFOU 

GNF027 

GNFM3 (IQ) 

GNGNCR 

GNL06 (IQ) 

GNPLIG (IQ) 

GNPRSC (IP) 

GHSACH 

GNSAPC 

GliSAPR 



Calculates type of result of arithmetic operation (except ♦♦). 

Returns to calling phase with result- 

Controls scan of text — branches to processing routine. 

Identifies argument of built-in function and converts it to valid 
type, if possible. 

Selects generic Library routine; determines function result. 
Selects relevant family member- 
Sets up result type of a built-in function. 
Checks and converts a decimal integer. 

Standardizes argument code byte to a form for generic selection. 
Selects chameleon dummy and inserts it in relevant dictionary entry. 
Converts from decimal to binary. 
Analyzes dictionary type. 

Forms pointers and branches to routine GNEOP in text block storage. 
Processes end- of- block marker. 

End of program routine- Frees blocks and releases control. 
Identifies family member. 
Selects function for processing. 
Checks for nested function situation. 
Sets up result type of a PL/I function. 
Replaces original reference in text. 
General conversion routine. 

Forms entry relating to particular invocation. 
Forms table of family member descriptions. 

Selects highest mode, scale and precision of variable argument list. 
Performs special argument check. 

Calculates scale and precision of a function result. 
Processes SUBSTR function and pseudo- variable arguments. 






._j 
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Table IMI. Phase IM Routine/Subroutine Directory (continuecJ) 



I Routine/Subroutine j 



Function 



■H 



GNSBAR 
GNSBRT (IP) 

GNSFMS (IP) 

GNTRID 
GNXTRP 
LSTl (IN) 
SUBSPT (IN) 



Handles a subscripted argument. 

Examines all three arguments of SUBSTR and calculates the resulting 
type exactly. 

Replaces references to SUBSTR in text by a reference to another 
entry giving detailed information about the arguments. Places a 
description of the resulting string in the text. 

Scans source text. 

Gets next triple. 

Calculates type and length of result of string operation. 

Adds type of array to stack. 



.-J 



Table IT. Phase IT Post-Generic Processor 

r ■ T- 



Statement or Operation Type 



Main Processing] 
Routine I 



Subroutines Used 



•H 
-H 
•H 
•H 



Scans source text 



PGTXSC 



j PGTOl , PGEOB, PGEOP 



Analyzes type of function detected 



PGFUNC 



None 



Completes function handling 



PGFNCP 



PGNEXT 



Detects • chameleon • temporary 
references and deletes BUY and BUYS 
triples where possible 



PGBUYS 



PGBUY 



•H 



Deletes 'chameleon* reference in an 
assignment triple and alters the 
argument triple to indicate an 
intermediate result 



PGPASS 



JNone 



■H 



Deletes all other references to 
•chameleon* temporaries where 
applicable 



PGFNCM 



PGBYAS,PGSELL 



—J 
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Table m. Phase IT Routine/Subroutine Directory 



I Routine/Subroutine j 



Function 



-^ 



PGASS 

PGBYAS 

PGBUY 

PGEUYS 

PGEOS 

PGEOP 

PGFNCM 

PGFNCP 
PGFUNC 
PGNEXT 
PGSELL 
PGTXSC 
PGTOl 



Deletes 'chameleon* assignments. 

Processes 'Buy Assignment* triples. 

Processes BUY triples. 

Processes BOYS triples. 

Deals with End of Text Block conditions. 

Processes end of program marker. 

Replaces 'chameleon' reference by an intermediate result where 
applicable . 

Processes function prime marker. 

Jtoalyzes function, and determines the type of processing required. 

Gets the next triple in source text. 

Processes SELL triple. 

Scans text. 

Determines action to be taken for a significant triple. 



Table IX. Phase IX Pointer and Area Checking 



Statement or Operation Type 
Main scan routine 



JMain Processing! 
j Routine j 
4 + « 

I BUMP I TEST , ERASER 

_L X 



Subroutines Used 



I 

I 
^ 

I 



Table IXl. Phase IX Routine/Subroutine Directory 



Routine/Subroutine j 



Function 



■H 



J 



J BUMP 

I 

I TEST 

I 

I ERASER 

L 



jscan routine. 

I 

I Tests operands for pointer and area data types 



I 



Processes bad statements 
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Table JD. Phase JD Constant Expression Evaluator 

r— ' T X- 

I I Main Processing] 

I Statement of Operation Type | Routine | 
I- 



Subroutines Used 



Initializes phase, gets scratch JINITI 
etc. I 



j None 



I- 



•-^ 



-•1 



Scans text, for constant triples (SCANT 
^ + 

I Handles stacking/unstackmg of jSTAKOP 
{operands j 



JMORTXT, PREFIX, CONCAT 

4 

I UNSTAK 



Table JDl. Phase JD Routine/ Subroutine Directory 
I Routine/Subroutine | 



Function 



— ^ 



CONCAT 

INITl 

MORTXT 

OUT 

PREFIX 

SCANT 

STAKOP 

TRYFLAG 

UNSTAK 

UPTXT 

WINDUP 



Detects constant string operands, performs concatenation, makes new 
disk entry, and puts ref. in a slot for stacking. 

Gets scratch core for the stack, initializes slots and switches. 

Gets next text block, resets pointer. 

Puts out error message and aborts compilation if stack is not 
emptied. 

Detects unary prefixed constant, makes new list entry and puts ref. 
in a slot, for stacking. 

^fain scan routine. 
Push down stack handler. 

Tests if stack is full, and if so, aboirts. 
Moves entry frcan the stack- 
Updates text pointer. 
Releases scratch core and rettirns control to the control phase. 
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chart 06. Aggregates Logical Phase Flowchart 



•STROCTORE Jl* 

* STBOCTOFE ♦ 

* PREPKOCESSOR • 

* * 



♦STROCTORE JK» 

* STROCTDRE ♦ 
* PROCESSOR SCANS* 

* DATA CHAIN « 



ANY 

DEFINED 
ITQIS 



.* >♦ 



* NO 

L**** 
•07 ♦ 
>* Al ♦ 



*****D2********** 
•DEFINED JP* 

DEFINED * 

• CHECK ♦ 

* * 



♦07 « 
->♦ Al 
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chart JI. Phase JI Overall Logic Diagram 



* • 

* LOAD IBMJJ * 

* MOVE COHTEWTS • 

* AND RELEASE * 

* * 



••***B1********** 



•****B2* ***•••**• 



• •***BII*** **•»**« 



>****•**********• 



******•******••*• 



••*«•**•*•*•*••*« 



»****C3* ********* 



Ct ♦. 
.* *. 

LAST CHAIN 



***************** 



•****D1*4******** 



• ****D.2********** 



*****D4*** ******* 



****••••***•**•** 
A 

**** 

» * 

<-♦ Dl ♦ 

• * 

• •*• 

*****El*i******** 

* * 

* POT ITEM * 

* ON TEMP *< 

* CHAIN 2 * 

* * 
•*•«•••••**•••*•* 



*••••*•**••****** 



NO .* IS 
— *. ITEM DATA 
•.VARIABLE . 



***************** 



*****E3** ****••** 



•****•**•***•**•* 



**•• 

*JK ♦ 

->* Al * 



»****P2********** 

► PUT ITEM * 
* ON TEMP * 

» CHAIN 1 * 
» * 

******•*****••**• 



*****Flt ********** 



*******••••*****« 



t****F5* •*******• 



***************** 



♦ Dl •< r*. 

♦ * A 



.* 
. .* 
* YES 



*. ADJUSTABLE 



* * 

* POT STRUCTURE * 
>* ON CORRECT * 

* AUTO CHAIN * 

* * 
•*••************• 



H2 *. 
• * ♦. 
* 
ADJUSTABLE 



**** 
NO * * 

» >* Dl * 

• « 
***• 



****«BII*«******** 



***************** 



*****J2*** ******* 

* * 

* MAKE ENTRY * 

* FOR LIBRARY * 

* ROUTINE * 

* * 
*•*«•***••******* 
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Chart JK. Phase JK Overall Logic Diagram 



»<— ,< — ». 



• STORAGE ITEMS • J 



»•»*••*•*•< 



• Al • 

* • 



***** 
*JP * 
• Al* 



**** 

* « 

• Al • 



*»**C2*****»»** 

GET BASE 
*************** 



C3 ♦. 
. * HAS • . 
.• BASE BEEN ♦. 
->*. PROCESSED . 



D2 *. 

*•** . * IS *. 

» * YES .» BASE *. 

• Al ♦< *. SUITABLE FOR . 

» ♦ *. DIRECT .* 

♦•*♦ ADDRESSING 



ANV * 

ADJUSTABLE 
. EXTENTS .♦ 



****D3********* 



*******•******) 



*****E3********* 
* 
* 
->* MAP STROCTORE 
* 
* 
**************** 

**** 

* * 

* f3 »— 



F2 *. 
» * 

TEMP 

'. .* 

* . .♦ 

* NO 



* f3 »— , 

•••••• I 



**** 

* * 

* F2 *— 

* * 
**** 



**** ,* * 

» * XES .» IS RDV 
» F3 »< ». REQUIRED? 



*****f3»******** 
* 
* 
->* MAKE AN RDV 

* 
**************** 



**************** 



*****I]3********** 



. ADJUSTABLE? .* , »LIBRARY CALLING »- 

*. .* J * SEQUENCE * 

'*, ,*' V ***************** 



**** 

* * 

* F2 * 

* * 
**** 



.FIXED SCALAP. .* -i 

* •• •• * 1 

*. .* V 



**•* 

* * 

* pit * 



****J2* ********* 

* 

* 

MAP ARRAY ♦ 

**************** 

**** 
* 
->♦ EU ♦ 

**** 



****K1********< 



*************** 



K2 * 

* 

AUTO 
*. .» 



ALVACI 

*****K3** ******** 

* GENERATE CODE * 

*. YES »T0 RELOCATE BY • 

.* >*VDA ACCUMULATOR* 



***************** 



**** 

* * 

* FU * 

* * 
**** 



MAP BASE 
************* 



» GENERATE CODE 
>* TO SET EASE 

* ADDRESS 

* 
*************«*< 

**** 

* * 

* EM ♦--, 

* * i 
• *** V 



* GENERATE CODE * 
->• TO RELOCATE » 

* DEFINED ITFM • 

* « 
*********«*»•«**« 



. * . 



EU 



->*.CTL OB TEMP? 



• RELOCATE EY 

>* DOPE VECTOR 

A * SIZE 

*•****•***•«*** 



♦ A2 

* 
*•** 



G5 ♦. 
, * • , 

AUTOMATIC 



,* *. **** 

• *. YES * • 

CTL OB TEMP .» >* E5 « 

*. . * ♦ « 

*. .» *»*• 



» GENERATE CODE * 
*TO RELOCATE BY • 
*VDA ACCUMULATOR* 



* Al * 

* * 
**** 



*•**•*******•***• 



***• 


ADRDV \ 
♦**»*K5* 


•**••• 


K5 *- 
*«** 


♦ GENERA-] 

>* TO SE1 

♦ADDRESS 

* 


CE CODE 
r ITEM 
IN POV 



************** 



• Al 

*••« 
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• Chart JP. Phase JP Overall Logic Diagram 



* ♦ 

* * 



»*** 



♦♦♦»A1**» 

* « 

* JPBl « 

♦ ♦•» 

* * 

* Bl *-> 

* * 

lEMJP 

* SCAN DEFINED 

I->» CHAIN 
: 
**************** 

• Bl * r 

I YES 



NO 



r— >*.END OF CHAIN .» 



STRCHP .♦. 

A3 *. 
.» DOES ♦. 
YES .• DEFINED • 
r—*. STRUCT MATCH 
*. BASE .» 



» YES 


***• * 


1 *♦»» 


♦ » A 


*KA * 


* Bl * 




l->* Al • 


* * 




* * 


**** 




**** 




NO 




JP200 




B3 ». 




. * 




.» IS ITEM 






r— >*. STRUCTURE 



ERROR 



BU 



.* DEFINED ». YES 

->*.ITEM AND BASE.* 

* . SAME DATA . • 
•.TYPES.* 



. 'IS DFFISt:: « 
, ITEM A SUL.^t' 
*.0F BASF. . • 



.'IS BASt*. 
.* DEFI.iED •. in 
->*.ITEM ALJUST- .•--- 
*. ABIE .• il 



i-.: 



BX * 
**•* 



L.: e5 : 



. * CORRES- ♦. NO 

. PONDEMCE .* 

♦.DEFINING .* 



* * 

* CI * 



• •** 

* * 

* D3 » 

* * 



. * DEFINED * . 
->*. ITEM A 

♦.STRUCTURE.* 



♦. .♦ 

♦ NC 

V FU 



.♦IS DEFINED ♦. YES .* BASE OR ♦.NO 

♦.ITEM A LABEL .♦ >♦. DEFINED ITEM .♦ 

~ .DIMENSION. ♦ 



->♦ . ANY POS 



.♦IS DEFINED ♦. 
. ITEM CODED . 
♦. ARITH .♦ 



.1.. 

♦ ♦ 

♦ D3 ♦ 

♦ * 
**** 



**♦♦ 

* * 

* PI * 

* ♦ 
♦ ♦♦• 



***• 

• * 

♦ E5 ♦- 

* * 
♦ **♦ 



••♦♦D5*******< 



»***•*****••**• 



NC 
6ETCLS . . 

E5 ». 
. * ARE * . 
.* DEFINED *. YtS 
>».ITEM AND BASE.*— 5 



ETi 



* Fl ♦-> 

* * 
*♦** 



♦***F1**^^^^^^* 
* 
* ERROR 

*****4>********4 



.♦IS EASE^. 
.*A STRUCTURE^. 
«. OF UNAL .♦<- 
* . STRINGS . * 



ERROR ACTION IS TO 
OUTPUT AN APPROPRIATE 
EROOR MESSAGE 



YES .♦IS DEFINED ♦ 

♦.ITEM VARYING 

♦. STRING .♦ 



.♦IS DEFINED 
. ITEM DIHEN- 
♦. SIONED . 



H2 ♦. 

.*IS BASE^. 

.♦A STRING OF^. 

. SAME TYPE .< 



♦ BU ♦<-■ 1 

»♦♦♦ I YES 

F5* '♦. 

.* ARE ♦. 

.♦STRUCT ELE-*. 

>*.MENTS .STRING.";. 

♦. OF BASE .* 
♦.TYPE .♦ 
*. . ♦ 
♦ NO 



****G<t*******^* 
* 
» ERROR 

t 

***4i«*««4**4**« 



**•• 

* * 

* K3 ♦ 



""" 1 

****J5*******»* 
t * 

— * ERROR * 

*************** 
A 



*•** 

* 

* Bl 



NO 



K3 ♦. 
.♦IS BASE*. 
.♦OR DEFINED ♦. NO 

♦.ITEM ADJUST- .♦ 

♦. ABLE .♦ 



♦ . 



♦ . .♦ 



GETLTH 

*»*»*K«****»**^^* K5 *. 
♦COMPARE DEFINED* .* ♦. 
♦LENGTH AND POS * .* • 
>♦ WITH BASE * >*.BASt. GREATER 

♦ LENGTH ♦ *. .* 

♦ ♦ ♦. . ♦ 
***************** *. ,* 
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**♦♦ 
* * 

♦ El • 

* * 
*•♦♦ 



Table JI. Phase JI Aggregates Structure Processor 



Statement or Operation Type 



T T 

Main Processing 
Routine 



Subroutines Used 



To re-order the STATIC AUTOMATIC 
and CONTROTJ.ED chains and to 
process structures 



SCANA 



MAP, MAP A 



To scan down the COBOL chain for 
COBOL-mapped structures 



SCAN 



MAP 



To transfer items from the COBOL 
chain to the appropriate AUTOMATIC 
chain 
I 

To transfer control from lEMSI to 
lEMJM 



RECHAN 



None 



TERMIN 



None 



To map COBOL structures 



MAP 



NXTRF1,NXTRF2 



To check non-COBOL structures for 
constant length 

To find the next member of a 
structure 

To find tne next element of a 
structure 



MAPA 

NXTRFI 

NXTRF2 



None 



None 



None 



Table JIl. Routine/ Subroutine Directory 



I Routine/Subroutine | 



Function 



h 

I MAP 

I 

I MAPA 

I 

I NXTRFI 

I 
INXTRF2 

I 

I RECHAN 

I 
I 
I SCAM 

I 

1 SCANA 






I TEP.MIN 



To map COBOL struct tares 

To check non-COBOL structures for constant length 

To find the next member of a structure 

To find the next element of a structure 

To transfer items from the COBOL chain to the appropriate AUTOMATIC 
chain 

To scan down the COBOL chain for COBOL-mapped structures 

To reorder the STATIC, AUTOMATIC, and CONTROLLED chains and process 
structures 

To transfer control from lEMJI to lEMJM 



"1 
I 



—J 
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Table JK. Phase JK Aggregates Structure Processor 

r 



T T 

Main Processing 
Routine 



Statement or Operation Type 



Scans AUTOMATIC, STATIC, and 
CONTROLLED chains 



CHNSCN 



Subroutines Used 



ADRDV, CHKDEF, MKDVD, MKRDV, 
PROCDT, PROCST, SETBRF, TERMWS 



■H 



Processes DEFINED items 



CHKDEF 



CMPILl, INOBJ, PROCDT, PROCST, 
STBASE 



Processes structures (calculates 
offsets, multipliers, sizes, 
alignments and padding; generates 
object code) 



PROCST 



CMPILl, INOBJ, ELSIZ 



-^ 

-H 

-^ 



Processes arrays (calculates 
multipliers and generates object 
code 



PROCDT 



CMPILl, INOBJ, LOADCN, SP5U 



Calculates storage offsets for 
adjustable items in structures 



PS25 



CMPILl 



Calculates storage offsets for 
adjustable arrays 



"4 



ALVACA 



CMPILl 



Calculates storage offsets for 
adjustable strings 



ALVACI 



CMPILl 



Generates code to initialize string 
dope vectors for arrays of varying 
strings in structures 



SVARY 



CMPILl, INOBJ, IPDV, VOBJC 



Generates code to initialize string | VOBJC 
dope vectors for varying, 
non- structured arrays 

Generates code to calculate the I STBASE 
starting address of storage for 
overlay defined items 



CMPILl, INOBJ, IPDV 



CMPILl 






H 

-H 



CMPILl 



MKDVD 



Adds text skeletons to the output 
stream 

Makes dictionary entries for dope 
vector descriptions 

Makes dictionary entries for record 
description vectors 



None 
ELSIZ 






MKRDV 



MKCNST, CMPILl 



Generates code to set the address 
in a record description vector at 
object time 



+ 



ADRDV 



INOBJ, CMPILl 



Calculates the length and alignment 
of scalar data items 



ELSIZ 



None 



h 



■+ 

I None 



I 



Sets offsets for BASED variables | BASED 
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Table JKl. Phase JK Routine/Subroutine Directory 



Function 



j Routine/Subroutine j 
ADRDV (JL) I Generates addressing code for AUTOMATIC RDVs. 
ALVACA (JL) 
ALVACI (JL) 
BASED 

CBKDEF (JM) 
CMPILl (JL) 
ELSIZ 
INOBJ (JL) 
IPDV (JM) 
LOADCN (JL) 



MKDVD 

MKRDV (JM) 

NXTREF/NXTRFl (JM) 

PROCDT (JM) 

PROCST 

PS25 

CHNSCN (JL) 

SETBRF (JL) 

SETDVS 

SP5U 

STBASE (JM) 

SVARY (JL) 

TERMWS (JL) 
VOBJC (JL) 



— T 
I 

-H 



Calculates storage offsets for adjustable arrays. 

Calculates storage offsets for adjustable strings. 

Sets offsets for BASED variables. 

Processes DEFINED items. 

Adds text skeletons to the output stream. 

Determines size of storage required for structure base elements. 

Initializes object code statements. 

Generates code to set up primary dope vectors. 

Generates object code to load object registers with constants knovm 
at compile time. 

Makes dictionary entries for DVDs. 

Makes dictionary entries for RDVs. 

Gets the next structure base reference. 

Processes arrays. 

Processes structures . 

Calculates storage offsets for adjustable items in structtares. 

Scans AUTOMATIC, STATIC, and CONTROLLED chains. 

Sets the reference to the current entry type 1. 

Sets the dynamic dope vector size for non-adjustable structures. 

Calculates base element multiples. 

Generates code to initialize starting address storage for overlay 
defined items. 

Generates code to initialize string dope vectors for arrays of 
varying strings in structures. 

Terminates object code. 



Generates code to initialize string dope vectors for varying, 
non- structured arrays. 



._j 
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Table JP. Phase JP Translator Defined check 



■T — T' 

(Main Processing) 
Routine 



Statement or Operation Type 



I Scans DEFINED chain; checks 
I validity 

I Checks that two structure |STRCMP 

I descriptions are the same and that j 

I they may be validly overlaid | 

L . i . 



Subroutines Used 



— 1 



j lEMJP 
I 
4- 



jGETCLS, GETLTH, STRCMP 



4 

(None 



-^ 



._j 



Table JPl. Phase JP Routine/Subroutine Directory 
I Routine/Subroutine j 



Function 



h 

JGETCLS 

I 
I 
I GETLTH 

I 

I 
JIEMJP 

I 
|JP8 

I 

|JP20 

I 
IJP200 

I 
JJPS^O 

I 

|jp5m 
J 

IJP5U2 

I 
IJP543 

I 

I STRCMP 



■+— 






Analyzes structure descriptions, and checks that all elements are of 
the same defining class. 

obtains length of string or numeric field from associated dictionary 
entry. 

Controlling scan of DEFINED chain; checks validity. 

Tests whether defined item is packed. 

Tests whether base defined item is adjustable. 

Tests whether item is a structure. 

Tests whether defined item is coded arithmetic. 

Compares base and defined item. 

Tests whether defined item is dimensioned. 

Tests whether base code is arithmetic. 

Compares structure descriptions. 






Table JZ. Module JZ Compiler Control 



(Main Processing 
Function j Routine 

I Reconstructs the phase directory IIEMJZ jRLSCTL, ZUPL, ZEND 



I 
I 



Routines Used 



for the second half of the compiler] 

i ! 

i Entry to OS/360 ; BLDL | 

L J 



._J 
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• chart 07. Optimization Logical Phase Flowchart 



t 4 

• 07B1 * 

f 4 



* UTILITY ROOT- * 
*INES AND CCmHOtI* 

* DATA SPACE * 



• KC* 

•SCANS TEXT FOR * 
♦DO-LOOP SPECS.,* 

* AND ON-UNITS » 



*SCAN FOR UNSAFE* 
*VARS AND DO-MAP* 
•TABLE CREATED * 

***************** 



•****E1* *****••** 
« KG* 

•BUILDS USE LIST* 
*AND SOBS/REQICN* 
♦ LIST * 
**••*••****•*••*• 



*-•-»-«-•-•-•-»-• 

• CREATES SUBS * 
•TABLE FROH SUBS* 

• /REGION LIST * 
••*•*••****•*•**• 



*****61********** 

♦ KN^ 
•-*-*-•.•-*-*.*-• 
•INITIALIZATION * 

* AND OFFSET * 

• REMOVAL * 
•••••*•***••••*•* 



• KO^ 
*-*-•-•-•-*-•-•-* 
•MATCH SUBS CODE^ 

• CREATE PATCB • 

• FILE • 
*•*•••***••*•••*• 



-*-*-•-*-•-• 



• CONSTRUCTS 

• PSEUDO-CODE • 

• TRIPLES • 

••*•*********•••• 



* KU* 
•-•-•-•-•••-•-*-• 
•DO-LOOP CONTROL*- 
*OPT PTCH TRIPLE* 

* REPLACEMENT * 
•••••*••*•*•**••• 



•***K2**^*^^**^ 

• • 
->* 08A1 • 

• < 

••••••••••**«•* 
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• Chart KA. Phase KA Overall Logic Diagram 



KAHLOK 

* MARX BIACK * 

* BUSY. UPDATE * 

* SYSTEM LOCK *- 

* coowr * 

* * 



*******•**•«*••** 



KAHULK 

*****A3* ********* 
»*»*A2»****»*** *DEC8EMENT LOCK • 

♦ « » COUNT IF ZERO » 
->* RETURN ♦< » HARK BLOCK * 

♦ ♦ * UNWANTED ♦ 
*************** • * 

*****B2********** 33 *, 

•KAHULK * .♦ *. 

»-♦-♦-*-*-»-•-»-» .* », n 

->♦ ♦ >». LAST PRG .*- 

• UNLOCK PRG * *. .* 

* ♦ ♦. .♦ 
***************** *. ,* 



**•*•••**••*****• 



*****Q2***»****»* 

♦ * 
*CLEAR LOCKS AND* 

->• RE-INITIALIZE ♦- 

♦ TCA • 

♦ ♦ 



KAHKDR 

* CONVERT USERS • 


* ABSOLUTE • 



****BU*** ****** 

t 4 

• RETURN 4 

» 4 



****C3* ******** 

> 4 

* RETURN * 

t 4 

*************** 



KAHUDR 

***»*Q^* ******** 

*KAHULK 



♦ALLOCATE 


SPACE 


* 


*FOR NEW 


ENTRY 


». 


* 




• 


* 




* 




*•** 






* • 






* E3 *<-i 






* ♦ 1 






*••• 


SETZ 




KAHSET . ♦ 







.p 



D2 

* 

BLDC7 



*****D3* ********* 



***************** 



*.SET OR SETZ? . •- 



•••«*£2*** ******* 

* POSITION * 

* POINTER TO * 
->* ENTRY * 

* IDENTIFIED BY * 

* USERS SA * 
•*••*•**•*•**•••* 

**•* 



*****E3* ********* 

* * 

* POSITION * 
•>• POIWTER TO *- 

*START OF TABLE * 

* * 
•••**•*****••***• 



* POSITION 
* POINTER TO NEXT* 
*BHTRY IN TABLE * 

* * 
***************** 



****D<I********* 
t « 

• RETURN • 

» « 

*************** 



****Elt********* 
» * 

» RETURN « 
» « 

*•*•********•** 



♦ * 


• 


E3 


* 




* F« *<-, 


• 




* 




* * 1 




1*** 




•*** 1 NO 










F2" **. 






*****P3* ••****•** 




. ♦ *. 






* * 


• •**pi|********* 


.* END OF *. YES 






* LOAD END OF * 


* 


>*, TABLE? •* 


._ 


— 


>* TABLE RETURN *~ 


>* RETURN 








* CODE * 


/\ * 


♦. .* 






* * 


1 *************** 


*. .♦ 






***************** 




* 








* * 

♦ FU * 

• * 
**♦* 
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• Chart KA. Phase KA Overall Logic Diagram (continued) 



•.SET OR SETZ7 . »- 



*****G2* *••**•••• 

* * 

• POSITION » 
->»CURRENT TRIPLE •- 

♦ POINTER • 

• * 
***************** 



*****]I2* ********* 

* * 

* POSITION * 
->*POIKrER TO NEXT*- 

* TRIPLE * 

* * 
••*•****•***•**•* 



•****J1********** 



*****HI|*** *•••»•* 

* « 
. YES * LOAD END OF * 

. * >« TABLE RETURN *- 

* CODE * 

* * 
***************** 



**•*•*••*•*•*••** 



KAINIT 

**•••■],***•«**•*• 
*GET M SCRATCH * 
•CTORAGE. STORE * 
*ITS KODKESS IN ♦ 

* C(Xm. REGN. * 

* * 
***••**•***•***•• 



*****K2********** 

* INITIALIZE * 

* POINTERS TO • 
->*SCRATCH STORAGE*- 



*****K3* ********* 

* BUILD BLOCK * 

* LIST TABLE IN * 
->*SCRATCH ST0RA6E*- 



*****KI|********** 



****K5*****< 
* 
• KCAl 



****•***••**•**** 



***************** 



***************** 
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• chart KC. Phase KC Overall Logic Diagram 



* * 

♦ Al ♦ 



(->• SCAN TEXT »• 
***************** 
** 



****A2********* 
» « 

» KCAl « 

*************** 



* Al * 

* * 
**** 



SWITCH ON APPROPRIATE TRIFLE 



DOLOOP 

►***B1******»**» 

ITCO. * 

INITIALIZE * 

»LISTS AND STACK* 



**************** 



*****B2*** ******* 

* * 

* ♦ 

* END OF TEXT * 

* * 

* * 
***************** 



■>* Al * 

* * 

**** 



*****C1* ********* 

* PUT TRIPLE IN * ♦♦»* 
♦MOVE LIST. GET ♦ * » 

* NEXT TRIPLE »< * CI * 

* REMOVE IGN » * » 

* ♦ **♦* 
***************** 



*****B3 ********** 

* * 
♦SN OR SL. RESET* 

♦ STATEMENT * 

♦ NWIBER * 

* * 
***************** 



•ON. SET ON MASK* 



***************** 



**** 

* t 

* Al « 

* « 
**** 



Dl *. 
. * *. 

* 
CV TRIPLE? 



.I..-- 



***********^****« 



****E1** ******** 



**************** 



**** 
t 4 

• El * 
t « 

**•* 



*****F2********* 



♦POT IN REORDER ♦<--, ♦ MODE 

♦ LIST ♦ 1 ♦ 

* ♦ ♦ 
♦♦******♦♦*•*♦*** I **************** 

**** 



* Fl ♦ 

* * 
**** 



*****G1 ********** 



E3 *. 

• * *. 

.* * 

.ANY REORDER? 



*•** 

* * 

* Al ♦ 

* * 
**** 



♦ MOVE REORDER ♦ 
->*LIST BACK INTO * 

♦ TEXT ♦ 

♦ * 
***************** 



**** 

* * 

* Al ♦ 



♦****G2* **♦♦♦•*♦♦ 



***************** 



.♦ DELIMETER ♦. YES 

♦.TRIPLE ITDO? .♦ > 

♦. .♦ K3 



• ****J],* ********* 

♦ ASSIGN * 

♦ EXPRESSION TO * 

* TEMPORABT *- 

♦ VARIABLE * 

* * 
***************** 



***************** 



***************** 



*. SKIP MODE? .* >*.ITDO TRIFLE? .♦ >♦. 



». 



♦ YES 



**** .* 

* * NO .» TO. BY 

* D2 •< ♦. TRIPLE? 



**♦* 

* * 

* El * 



***♦ 

* * 

♦ K3 ♦-> 

* * 
*•** 

•****K3** ******** 

• * 

♦ STACK LOOP * 
— ♦ STATUS * 

: : 

***************** 
**** 

* • 

* Cl ♦ 

* * 
*•** 



•****]( II ********** 



* >*. SKIP MODE? .* 



*••****••******** 



**** 

* • 

* Fl • 

* * 
**** 
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• Chart KE. Phase KE Overall Logic Diagram 



* « 

* KEBl * 

* « 



* * 

*SCAN DICTIONARY* 



» ♦< — -,<— 



♦.FOHCTIOM .* 



.*. 

El •. 

.♦ INT. ». 

.* HON BUILT *. 

.-IN FUNCTION . 

• .<» FROG. .♦ 

». .* 



Fl ♦. 
.* EXT. *. 
.* HON BUILT *. YES 

.-IN FUNCTION .• 

*.0R PROC. .* 



*****C2********** 

• * 

• MARK DICT. ♦ 
>♦ ENTRY SAFE OR *- 

* UNSAFE * 

* * 

**** 

* * 

• Bl •<-, 

*****D2*** ******* 



***************** 

***» 

* * 

* Bl •<-, 

•••••• 

**»**E2********** 

* ADD PROC OR • 
» PUHCTION TO * 

->* PROC LIST AND * 

* SET FLAG * 



*******••***•*•** 



•ADD FCINTEH TO • 
>• POINTER LIST • 

• AHD SET FLAG ♦ 

* * 
***************** 



». 



,• 



•••****•••*•*•** 



KEDEND 

* CHAIN DO MAP ♦ 

* ENTRIES • 
» STARTING FROM * 

• INNERMOST OF • 

♦ NEST • 
***************** 



* BUILD DO HAP • 
♦ENTRY FOB PROC'» 

* OR ITDO' ♦ 

* * 



***»*flt*t******* 



**************** 



***•*•*•**•••**• 



t 



* G2 ♦ 

• * 
**** 



» G2 * 
» • 



*****U5«i«******« 



♦ SET FLAGS IN » 
->♦ ITDO TYPE DO ♦ 

• MAP ENTRY * 

* * 
***************** 



*****J'3*i******** 
*USE DICT LISTS * 
•TO MARK ENTRIES* 
*FOR ARGS. SAFE *<• 

* OR UNSAFE * 

• * 
•**•*•*•*•*•**•*• 



****K5********* 

* • 

* XGAl • 

* 4 
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• Chart KG. Phase KG Overall Logic Diagram 



• KGEl < 



KGHAIN 

*»***{)X ********** 

» INITIALIZE ♦ 
♦SCRATCH STORAGE* 
♦FOR 'USE' STACK ♦- 

* ( 'IT30/PR0C' ♦ 

♦ STACK ♦ 
***************** 

**** 

* * 

♦ CI ♦ — 1 






*. 



♦ PUT CUBREMT » 
->*TEXT BEFEPtiJCE • 

• IN 'CUPHSUB' • 

•»****•*******«*« 



♦ A2 ♦ 

* * 
**•* 



I **** 

♦ • 
l->» C2 ♦ 

* * 
*•** 

*****B2 ♦**♦****•* 



••1 



*****C1*^^^*^^^^ 



************* 



*****D1* ********* 
♦COLLAPSE 'USE' ♦ 

♦ LISTS FROM ♦ 
♦INNER LOOPS OFF* 
••USE' STACK (IF* 

♦ ANY) ♦ 
***************** 



**** 



♦ El ♦-> 



♦ *** 
KGSCAN 

* ****£!****•***** 

♦ SCAN TEXT IN ♦ 
♦SCOPE OF CURR- ♦ 

♦ ENT 'DO MAP' •<— 
♦ENTRY FOR TRI- ♦£! 
•PLE OF INTEREST^ 
***************** 



KGOTST 

*****F1********** 

* MAKE ♦ 

♦ SOBS/REGION * 
♦LIST ENTRY FOR * 

♦ INTERRUPTS ♦ 

* * 
***************** 



***************** 
A 
I **** 

♦ * 
I—* B2 • 

* • 
• *** 

. ♦. 

C2 *. 

. * ♦. 

*. YES 



YES 
• **• 
*KJ * 
->♦ Al 



• *** 

• « 

• CI • 

• « 
**•* 



■>♦. SUB' 



->♦ 



♦ ♦** 

* * 

* C2 ♦ 

* * 
**•* 



>********•*** 



*****CI|* ••*♦♦•*♦♦ 

♦ MAKE 'SUBS' ♦ 

♦ ENTRY IM ♦ 
SUBS/REGION 

♦ LIST. SET ♦ 
•CURRSUS = NULL • 
***************** 



*-. 



l_>» El ♦ 

* * 
• *** 

*****D3********** 
♦ DELETE 'USE' * 
LIST. SET A 



«.ITDO' PROC' 



♦EXPRESSION 

TYPE OF 
». TRIPLE . 



.•ASSIGNMENT *. YES 

>. TYPE OF .* 

*. TRIPLE .* 



■♦.(NON BUILTIN).*- 
BEGIN, 



*.begn'.* 



***************** 



E2 *. *****E3********** 

• ♦. » MARK 'ITDO' ♦ 

♦. YES ♦ BOUNDARY IN ♦ 

ITDO .* >* 'SUBS/REGION' *- 

.* * LIST * 

♦. .* * * 

*. ,* ***************** 

• NO 

♦ •** 

* * 

* El *<-• , 

**** I 

F2 *. *»***F3*i*«**»*** 

.* *. * * 

NO .♦ *. YES * POT 'NULL' IN * 

*. FNC .* >* 'CURRSUB* * 

♦ . .* * * 

♦. .♦ ♦ ♦ 

♦. .* ***************** 

* 

**** 

* * 

» B2 *<—, 

* * 1 
**** I 

*****G2* ********* *****G3********** 
*COPY 'ASSIGNED * ♦ * 

* TO' VARIABLES * * PUT CONTROL * 
—>* IN 'USE' LIST * >* VARIABLE IN * 

* ONTO tose'^ * ♦ 'USE' STACK * 
*STACK <IF ANY) * * * 
***************** ***************** 

**•* 

* * 

* El *<-, 

**•* I NO 1 

H2* '*. *****||3*1******** 

.* *. * CONSIDER * 

.* WITHIN *. YES * OPERANDS FOR * 

— >*. SUB/SUB .* >♦ ENTRY INTO * 

*. .* * INVARIANT PART * 

*. .* *0F 'USE' LIST ♦ 

*. .* ***************** 

* 

**** 

* *. 

* El *<-, 

* * 1 

**** I 

*****J2********** *****J3*1******** 
•CONSIDER OPER- * *MAKE 'SAFE' OR * 

* AND FOR ENTRY * *' UNSAFE ' PARTIAL* 
— >»INTO 'ASSIGNED * >*REGION BOUNDARY* 

* TO' PART OF * ♦ENTRY IN SOBS/ * 

* 'USE' LIST • * REGION LIST * 
**•*•******•••*** •••*•*•****••**** 

**** 

* * 

* El *<-i 

**** I 

*****](2* I** ****** 

* DELETE 'USE' * 

* LIST t MAKE * 
— >*GLOBAL ENTRY IN* 

* SUBS/REGION * 

* LIST * 
***************** 



*****Dlt ********** 

♦ SKIP TO • 

* CORRESPONDING * 
>♦ PROC USING ♦ >• El ♦ 

• ITCC'/FROC * * . 

• STACK • •*•• 
***************** 

**** 

* * 

♦ El ♦<-! 

* * 
*••* 



♦ CORRESPONDING • 
>♦ ITDO' USING ♦ 

♦ ITDO '/PROC' ♦ 

♦ STACK ♦ 

***************** 



**** 

* * 

• A2 ♦ 
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•Chart KJ. Phase KJ Overall Logic Diagram 



• KJBl « 

t 4 



•****B1********** 



*•****•**•*•**••• 



.*HAS END OF 

->*. LIST BEEN 

•.REACHED . 



1**** 
»KN ♦ 
->• Al * 

• * 

• **• 
KJSRBXCB 

*****B2* ********* 

* • 

* CHECK IF LOOP * 
r»>*OFTIHIZABLE FOR*- 

*BXLE/BXH CODE * 

* • 
*•***•*****•*•**• 



*****A3** ******** 

*OBT*IN START OF* 

•SUBS/REGION AND* 

->*USE LISTS FROM *- 

* DO HAP ENTRY • 

• • 
•*****•••••*•*•** 



XJSRTDEC 

*****B3********** 
*CBECK IF INIT, 



''WnK^«\ &r AHA A a ^ 

*STEP, LIMIT ARE* 
->* ALL CONSTANT * 



*••**••*••**•••** 



.•< * 01 * 



**** 

* « 

• A3 * 
» * 

**•* 



••***F3*(******** 

* • 

* COHPLETE SUBS * 
->* EHTRt AND ADD * 

* TO TABLE * 

* * 
••***•**•••***•*• 



«****G3*t ••*•**•* 



•••***•*•*****••* 



* t 

•OBTAIN CV DICT.< 
>• BEF. FROM DO < 
» MAP ENTRY < 

•♦**«*•••*••**••< 



* • 

* SCAN * 
>* SUBS/REGION 

« LIST • 

* « 



• < « B« • 






**»**C5" 

* BESET SUBS 

* TABLE POINTER 
— >* IN COBREKT DO 

* MAP ENTRY 



**** 

•****DS* ******** 

* CREATE SUBS 

* TABLE REGION 
->* ENTRY AND ADD 

* TO TABLE 



* OBTAIN HO. OF • 

* COMMAS FROM • 

* GIVEN SUBS * 
*TRIPLB OPERAND * 

* ' « 

*•*• 



*••« 
• ****G ■)*•******** 



•*•* 



*****H2********** 



•*••***•*••***••• 



* 

*HARX EXPRESSION 
>* AS 
•UNOPTINIZABLE 



»i«******* 



•****K3*« 

• ADJOST 
•OPTZMISMXLITY 



• * 

* EXAMINE * 
-* OPERANDS FOR * 

*OPTIMIZABILITY * 
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• Chart KN. Phase KN Overall Logic Diagram 



*****A1********** 

* MOVE CODE AND • 

•mm TO scRAtcp* 

•CORE FOR QBE lii*<- 

* PHASE XO * 

* • 



****A2********* 

* « 

• XMAl 4 
» « 



•*«**BJ.*«****«*** 



•*••*•*••••*•••*• 



♦♦♦♦♦CI*'********* 



♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦ 



XNCLOr 

♦♦♦♦♦Dl^^^^^***** 

•vBucm oprsBT S * 

• ARD COMPOTE * 
?HAS_3eT»MjP0R* 



*9^*»^2******»*** 



.♦ BHD OF DO *. NO 


*GET NEXT 00 MAP* 


HAP .♦ 


— >♦ BOTRX ♦ 


*. . ♦ 


• ♦ 


♦ . .♦ 


♦ ♦ 


♦ . .♦ 


*♦♦♦♦♦♦♦♦♦♦♦«*♦♦♦ 
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• Chart KO. Phase KO Overall Logic Diagram 



*GET NEXT DO MAP* 
*EtnitY AS BUILT •<- 

* BT PHASE KE * 

* • 



•••*A2********* 
» • 

• KOAl * 

» • 

• *** 



*****A3********** 

» TRANSFOBM » 

••INIT". 'STEP' • 

r->»AND 'tlMlT' FOR* 

I • BXLE ♦ 



*•**••*•*•**•*•** 



***** 
*KT • 
* Al* 



*•** 
KOSSBl 

*****B2********** 

* GENERATE SSUB * 

* LIST FOR * 

* COMMONED *- 

* EXPRESSION * 

* * 
***************** 



A3 • 

• *** 



* MATCH PATCH • 
->*WITRIN COmtONED*- 

* EXPRESSION * 

* * 
***************** 



KOMCHN 

*****Q||*********» 

* PROCESS MATCH * 

*CHAIN AMENDING * 

>* TEXT TO RErER »- 

» TO PATCH » 



KPUPDT 

*****C1********** 
*SCAN PATCH PILE* 
*Aia> KDD BNTRIBS* 
*TO SUBS/REGION • 

* TABLE. ACCESS * 

* USE LIST * 
*****•*•••*••**** 



(OOTER SCAN) 

* • 

***************** 



C2 
* 
COHNON 



1->*. EXPRESSION .* 
*. .* 

*. .* 
*. .* 
** 'NO 



* C2 « 

* « 
*•*• 



D2 *. 
.* * 
* 
TRANSFORM 



* GENERATE SSOB 



***************** 



.*" ••*. 

,* *. YES 
• .END OF TABLE^.* . 

*■*, .*■ 1 

*. .* V 
• HO ^**** 




* A2 

* 
*••• 


* 


|i»BLE : 



* GENERATE SSUB * 

* LIST FOR * 

* TRANSFORM * 

* * 
***************** 



******••******•*• 



* CLEAN UP AMD • 

* MATCH raXT TO * 

* MATCH AREA * 

* * 
*******•••••*•*** 



•«***gX********** 



* GENERATE BUMP * 

* CODE FOR * 

• TRANSFORM * 

• * 
***************** 



*HAXING PATCHES * 
*AT ITDO t ITD» *- 



MARK HATCH 

CHAIN DEALT 

WITH 



***************** 



*••*••*•***• 



JX *<—,<— 

: 
***** I 



-• (;nAini kebei > 
*WIT8 NEW MATCH * 



•***••******••*** 



-* ADD TO CHAIN • 



♦.END OF TABLE .♦ 



**•* 
. YES * * 
.* >* C2 ♦ 



• FIND * 
— >* OPTIMIZABLE * 

• COMA'S • 

• * 
***************** 



SAME AS 
PREVIOUS 
. NATCH 



**** 

* • 

* HI ♦ 

* * 
• *•• 



**•* 

• « 
» A3 « 

* « 
***• 
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• Chart KT. Phase KT Overall Logic Diagram 



****A1********* 

» « 

» KTBl * 

» « 

*************** 



*****B1********** 
• INITIALIZE * 
*FUGS. POINTERS* 



AND LOAD 
ADDRESS 



••••••*•*•*•«**** 



*****C1********** 

* * 

* TRANSFER TO • 

* APPROPRIATE * 

* SCAN ROUTINE * 

* • 



**** 

»KU » 

•>» A2 • 



• * 

• MOVE CURRENT ♦ 

* TRIPLE TO *- 

♦ OUTPUT * 

* * 



THESE ROUTINES ARE SCAN 
ROUTINES CALLED BY 
COMPILER PHASES lEHLB 
THROUGH lEMOE. 



•****D2* ********* 



***************** 



***************** 



*****B3** ******** 

* * 
*MOVE USER TEXT * 

*T0 A CONTIGUOUS* >* 

♦OUTPUT STRING * A * 

* * • 
***************** 



****BI|**«**** 



3 .nv j#i 
•****C3* ********* 

• MOVE USER * 
*6EHERATED TEXT * 
•TO OUTPUT BLOCK* 

• * 

• • 
***************** 



*****Q3* ******** 
* 

* SCAN FOR 
>* RTOUESTED 

* TRIPLE 
* 
**••****•***•*** 



****DI|********* 

• « 

• RETURN • 

• « 
*•*****•****•** 



1 1 avo 
•• ***£!*** ******* 

* * 

* HARK CURRENT * 

* INPUT BLOCK *- 

* WANTED * 

* * 
***************** 



**** •ED*** ******* 



***************** 



•E5»*»»« 

RETURN 
****•*•• 



(****Fl*t******** 

* * 

* MARX CURRENT * 
*INPOT BLOCK NOT* 

* WANTED * 

* * 
***************** 



*****P3********** 



***************** 



t****Gl********** 

* * 

* HARK CURRENT * 

* INPUT BLOCK *- 

* WANTED * 

* * 
**•••*•********** 



*****G2* ********* 

* UPDATE INPUT * 

* POINTER TO * 
->*REGISTER STATUS*- 

* BYTES * 

* * 
***************** 



.* HAS ENTRY *. 

->*. AT sell OR . 

*. SC12 .* 



*****G<I ********** 

* HOVE THE CODE * 

* DELIMITED BY * V • 
->* JMP TRIPLE TO * >* 

* OUTPUT BLOCK * * 

* * 
***************** 



****G5********* 



»****•*****• 



*****R1*4******** 

* • 

* MARX CURRENT * 
*INPUT BLOCK NOT* 

* WANTED * 

* * 
***••*********••* 



sdo 

*****JX* ********* 

* CONVERT THE * 
*SYHBOLIC INPUT * 

* POINTER TO *- 

* ABSOLUTE * 

* * 
***************** 



*****J2* ********* 



***************** 



****J3* ******** 

» 4 

• RETURN * 
> « 

*••***•****•**• 
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•Chart KU. Phase KU Overall Logic Diagram 



• * 
> KUA2 * 



*****A2* ********* 

* » 

* LOAD PHASE KV * 
->* AND PROVIDE * 

* BASING * 

* * 
••*•****•***••*•• 



* PHASE 

* INITIAL- 

* IZATIOH 

• 
*******t****** 



t C2 * 



PROCESS 
INITIAL- 
IZATION 






I 

» * 
I C2 • 
» « 



****E1********* 
• • 

> LBA2 « 



*• SCAN TA 



••••••••*•*•••*•• 



•USE SCI TO PIND* 



* TRIPLES 



**••*•••*•••*•••• 



•**• |. 
XVPTCR 1 

•****G1*«******** 



PTCH .* 



Bl****4 



•••• 
KVITDP 

••••*B1 



** epilogib; 



*•••*••••••*•*•*• 



**PERP(Mm SOBS *• 
•* TRIPLE *♦<- 
** raOCESSING *• 
• * *• 



**•• 

* * 

• Kl ♦ 






•* 



A4 • 
COHA 



•••«**•*•••«««< 



• *•• 
KVCOMR 



•*••••*•••••••••• 



***•••••*******•* 



I ******** 
****** 
->* Kl • 



D« * 
ITDO 



->** ERRORS »» 
** ** 

** •* 



*****•****•*•••** 



KUSTEP ^ t 

*****G**** ******* 
**PERP(»tN LOOP ** 
** TYPE ♦* 
* *DBTERMINATION* * 



••••*••*•••*•**** 



**•• 

• • 

* 02 • 



I******** 
PBRPCHtM •• 

••OCHtSTANT STEP** 



A 



• • 



RITORN .*TEeT RETURN*. 

•. CODE 

CODB-0 *. .* 



X0SKL2 

*****m*i 

*• PERFORM •• 
RETURN **SKEI|TCN SET •* 

* >•* 35 FOR *• 

CODE-8 **VARIABLE STEP** 



•••••*••*•••*•«•* 



** 



** 



*****•••••**•***« 



KUSKLl 

• ••••Jll********** 
PERFORM 



•*VARIABI.E STEP** 

*• •* 



•-•-•-•-•-•-•-*-• 



*••• 
* • 

->* C2 * 
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•Table KA. Phase KA Resident control Module 



statement or Operation Type 



Subroutines Used 



I Handles KTAB BLDC/T operations 



h 



I Handles KTAB DR operation 

I Handles KTAB ULDR operation |KAHUDR | KAHULK 



|Main Processing I 
I Routine j 
+ + _ ^ 

JKAHBLD I ZTXTAB, KAHLOK, KAHULK, ZUTXTC, 

i I KAHERR 

+ + ^ 

IKAHMDR I KAHERR, ZTXTAB, ZALTER, KAHULK 



-H 



KAHDAC 



{Handles KTAB DEACT operation 

|. 

{Handles KTAB FREE operation 

(Handles KTAB SCAN operation for 

I non-text tables { 

{Handles KTAB SET/SET Z operations {KAHSET 

{Place save area stack, DTCAs aad {KBSTUP(KB) 
{block list table in scratch storage { 



KAHULK 






KAHFRE 



1 KAHSCN 



j KAHERR, ZALTER 

{KAHERR, KAHLOK, ZTXTAB, KAHULK 

J __ _ ' 

{ KAHERR, KAHULK 
j Ncnti 



—J 



Table KAl. Phase KA Routine/Subroutine Directory 

r T 

{ Routine/Subroutine { 
|. + 

j KAEBLD 



Function 



I 
{KAHDAC 

I 

{ KAHERR 

1 

{ KABFRE 

i 

{ KAHLOK 

I 
JKAaMDR 

I 

j KAHSET 

1 

{ KAHTXT 

1 
{KAHODR 

I 

j KAHULK 

I 

JKBbTUP (KB) 

! 

L 



Handles KTAB BLDC/T operations 
Handles KTAB DEACT operation (non-text tables) 
Produces error message and aborts 
Handles KTAB FREE operation 
Locks a table entry 

Handles KTAB DR operation (non-text tables) 
i i-I^a-3lei-> FTAB SCAN operation (non-text tables) 
Handles KTAB SET/SETZ operations (non-text tables) 
Handles all KTAB operations on text tables 
Handles KTAB ULDR operation 
Unlocks a table entry 

Places save area stack, DTCAs and block list table in scratch 

storaqe 



H 



—J 
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•"able KC- Phase KC Do- Loop Specification Scan 



Statement, or Operation Type 



Subroutines Used 



T T 

I Main Process inq | 

I Routine j 

j. LI ^ 4. ^ 

{General text scan JNXTRP* | SCAN (KA), DOLOOP, ONBLK 

I Sets ON mask for ON unit | ONBLK |SCAN (KA) 

|. + + 4 

I Initializes reordering scan after j DOLOOP JSCAN {Y.h) , EXANP.S, CVE.nd, MOVE, 
JITDO triple j j MOVER 



I 4. 

{Analyzes expression in loop speci- jEXANAS 
j f ication j 

{Scans for ITDO nested in loop {RSCAN 
I specification ( 



-- ! 



{SCAN (KA), MOVER, RSCAN 
I 



{SCAN (KA), MOVER 
t 



H" 



-H 



{Completes reordering scan at end ofjCVEND 
j loop specification j 

u _ i. 



{SCAN (KA), RSCAN, MOVER, MOVET 
I 



{ Routine/Sxibroutine { 



{CVEND 

I 

{ uOLOOP 

I 

( EXANAS 



.. ^ 



I MOVE 



Table KCl. Phase KC Routine/Subroutine Directory 

Function 
Completes reordering scan at end of loop specification 
Initializes reordering scan after ITDO triple 
Analyzes expression in loop specification 
Puts triple into MOVE list 
Puts triple into REORDER list 
Moves REORDER list into text 
General text scan 

Sets ON mask for occurrence of ON unit 
Scans for ITDO nested in loop specification 
Scans text 



! 
\ 
I 

{MOVER 

I 

{MOVET 

{ 
JMXTRP 

I 
{ONBLK 

I 
(RSCAN 

I 



{SCAN (KA) 



• Table KE. Phase KE Dictionary Scan and DO-Map Build 



Statement or Operation Type 



Initialization 



(Main Processing! 
j Routine { 
4 4. — 

JKEINIT JKCDS, KESCAN, HTAB 



Subroutines Used* 



— 1 

I 

—I 






H 



1 KCDSIN 



(HTAB, ZDICRF, ZDRFAB, ZDABRF 



(Dictionary scan marking unsafe 
j variables 

{Scans text and passes control to (KESCAN (KTAB 
(triple processing routines j j 
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•Table KEl. Phase KE Routine/Subroutine Directory 



J. ^- 

I Routine/Subroutine I 



Function 



-H 



JKCDSIN 

I 

I KECDME 

\ 

j KEDEND 

I 

I KEERRH 

I 

JKEINIT 

I 

j KELKOP 

I 

1 KESCAN 

I 

I KESTCK 

L 



Dictionary scan marking unsafe variables 
Creates a DO-Map entry 
Completes the DO-Map entry 

Produces termination error message and aborts 
Initialization 

Scans list of procedures and pointers 
Scans text calling triple processing routines 
|M3akes entry in stack 



• Table KG. Phase KG DO Examine Phase 



I Main Processing) 
j Statement or Operation Type j Routine | Subroutines Used 

I Main processing routine |KGMAIN |KGSCAN, KGSRGL, KGSORT, KGUSEN 

I Tests whether an ON-unit could be |KGOTST j KGSRGL 

I entered as a result of an interrupt! | 

joccuring at the triple being j j 

I considered j I 

^ — _ + + 

(Transfers control to appropriate jKGSCAN jKGERRR 
I triple routine | I 

{Considers a variable for entry intoJKGUSEL | KGUSEN 
I the USE list 11 

•Table KGl. Phase KG Routine/Subroutine Directory 



j Routine/Subroutine j 
Y + 

KGDEIT 

i KGDSLU 
I KGERRR 
[KGMAIN 
j KGJJICE 

KGOTST 

IKGSCAM 
I KGSORT 
I KGSRGL 
KGUSEL 
I KGUSEN 



Function 

Deletes non-compiler- created temporaries from USE list 

Deletes unsafe variables from USE list 

Produces a termination error message and aborts 

Main processing routine 

Checks that a dictionary reference is for a real fixed binary scalar 
integer variable 

Tests whether an ON-unit could be entered from the triple being 
considered 

j Transfers control to appropriate triple routine 
Sorts the USE list so that invariant variables appear first 

j Makes an entry in the SUBS/REGION list 
Considers a variable for entry into the USE list 
Makes an entry in the USE list 
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•Table KJ. Phase KJ Subscript Table Build 

r T r 

I I Main Processing I 

i S-tatenenl: or Operation Type j Routine | 

I To build the SUBS TABLE from the jKJSB • |KJSRBXCH, KJSRCHKP, KJSRSOPC, 
I Subs/Region List and test the loop j JKJSRTDED, ZDRFAB, KTAB 

{initial, step* and limit for use inj | 

JBXLE and BXH code j j 



Subroutines Used 



•Table RJl. Phase KJ Routine/Subroutine Directory 
I Routine/Subroutine j 



Function 



^ 



KJS3 

KJSRBXCH 

KJSRCHKP 

KJSRSOPC 

KJSRTDED 

KJSRUSEL 
KODECN 

KONICE 
KOPKSN 



Builds SUBS TABLS from Subs/Region List and tests the loop initial, 
step, and limit, for use in BXLE and BXH code 

Checks that current loop is optimizable for BXLE, BXH loop control 
code 

Sets a series of flags stating the attributes of the expression 
being analyzed 

Sets a series of flags stating the attributes of a given triple 
operand within the context of the expression analysis 

Sets the target DED in the dictionary entry for a constant to be 
used in BXLE/BXH code. If necessary, new data dictionary entries 
are created and the reference in text modified. 

Searches the given USE list for a given variable 

Tests a given dictionary entry for a REAL, FIXED, BINARY, SCALAR, 
INTEGER variable, or a BINARY or DECIMAL INTEGER constant 

Tests that a given variable is REAL, FIXED, BINARY, SCALAR, INTEGER 

Tests if a given dictionary reference is: 

1. a variable of precision less than 30 bits or 

2. a decimal constant of precision less than 8 digits or 

3. a binary constant of less than or egual to 30 bits 



..J 
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• Table KN. Phase KN Subscript Optimization 



Statement or Operation Type 



T T 

Kain Processing 
Routine 



Subroutines Used 



Sets up the physical phase KN data 
area, KHDATA in scratch storage. 
KNCODE, which is a group of lower 
level subroutines, is also moved 
into scratch storage. The scratch 
storage area is provided by KA. A 
scan is made of the chain of DO-inap 
entries, and subroutine KITCLOF is 
called for each to remove offsets, 
and prepare potentially optimizable 
subscripts for matching. 



KNINIT 



KNCLOF 



Scans the subs entries of the 
subs-region table for the loop. It 
cleans up potentially optimizable 
co'le, removes offsets, accumulating 
the total offset in the spare 
operand of the appropriate subs 
triples, and calculates hash values 
for optimizable C0l4A's. 



KNCLOF 



KNCOMU, KNHASH, KNANAL, KNOPTY 



Accumulates hash total and computes 
hash for specified triple. 



KNHASH 



None 



"A 



Analyzes the type of triple operand 
and sets a return code value 
accordingly. 



KNANAL 



Analyzes the type of triple operand 
and sets a return code value 
accordingly- 






KNOPTY 



ZDRFAB 



+ 

ZDRFAB 



Converts a decimal constant to (KNCOMU 

binary and multiplies it with a 

given binary value. An option may 

be specified to allow conversion 

only of the given decimal constant 

to binary. 






+ 

ZDRFAB 









—J 



Table KNl, Phase KN Routine/Subroutine Directory 

r T 

I Routine/Subroutine | 



Function 



I KNANAL 



I 

I KNCLOF 



I 



1 KNCOMU 
KNHASH 
I KNINIT 



I 

I KNOPTY 
L 



Analyzes type of triple operand and sets a return code value 
accordingly. 



T 

I 
\ 



Scans subs entries of subs-region table for loop. Cleans up 
potentially optimizable code, removed offsets, and calculates hash 
values for optimizable COMA's. 

Multiplies decimal and binary values. 

Accumulates hash total and computes hash for specified triple. 

Sets up code and data areas in scratch storage, and scans chain of 
DO-map entries, calling KNCLOF to remove offsets. 



Analyzes type of triple. 
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Table KO. Phase KO Subscript. Optimization 



Statement or Operation Type 



Main Process 
Routine 



xnq 



Subroutines Used 



Initialization is performed for the)KOINIT 

phase. The next DO-map entry in 

processing sequence is obtained and] 

put in scratch storage. Module KP 

and KQ are' loaded, and the 

Subs/Region Table is updated from 

the patch file. The iterative 

specification and DO-map are 

checked in order to amend iterative! 

specification. A subroutine is 

called to form a match chain in the I 

Subs/Region Table, once for 

Transforms and Invariants and once 

for commoning. When end of DO-map 

is reached return is made to 

Compiler control 

The sindex number for the loop is IKOBXCH 

set to zero. The routine looks at 

the DO-map entry and iterative 

specification triples and makes a 

patch over the ITDO and ITD* 

triples if BXI£/BXH is to be 

generated for the loop 

The match chain is processed and IKONTTCH 
entries are made in the patch file. 
The patch entries contain optimizedl 
code for three types of 
subscript. Patches are also 
created for the BXLE/BXH code for 
optimized loop control 

Creates part of patch for IKOMCOM 

Transforms and Invariants. It is 
called from KOMTCH 

Makes an entry in the patch file JKOPTCH 
from the patch build area. Options] 
are available to move the patch 
data to the patch build area before] 
making an entry in the patch file. 
Entries are chained together if 
they are to be inserted at the samej 
point in text, A PTCH triple is 
placed in text at the point of 
insertion. The overwritten triple 
is placed in the patch 



ZLOADX, RELESE, 

KTAB (Macro routines in KA) , 

KNOPTM, KOBXCH, KPUPDT 



-H 



KTAB (Macro routines in KA) , 
KOSNDX, KOPTCH 



ZDRFAB, ZDICRF, 
KTAB (Macro routines in KA) , 
KOCVTX, KOSNDX, KOMAKC, 
KOPTCH, KOMCOM, KOMCHN, 
KOMOVE, KOSSB3, K0SSB2, KOSSBl 



KOMOVE, KOPTCH 



KTAB (macro in KA) , KOMOVE, KOPCOM 






._J 
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• Table KO. Phase KO Subscript Optimization (continued) 



T T 

Main Processing 
Routine 



statement or Operation Type 



— + 



Moves the triple to be . overwritten 
into the patch and moves the patch 
into the patch file. The symbolic 
reference of the patch is moved to 
the PTCH triple in workspace. The 
triple in text is then overwritten 
with PTCB triple 



KOPCOM 



Subroutines Used 



KOMOVE 



—\ 



—I 



The triples pointed to by the text 
references in the Subs/Pegion Table 
elements in the current match chain 
are amended to refer to a VcQ.ue 
calculated in patch code. The 
chain is then deleted and all 
CO[»«A*s processed are marked in the 
Subs/Region Table as dealt with and 
optimized 



KOMCHN 



KTAB (macro routines in KA) 






Tests the type of triple at the 
address given and sets a return 
code accordingly 



KNTRTY 



none 



■H 



■H 



Moves an item to the next available 
address in the patch build area in 
scratch storage 

Allocates a sindex register. The 
sindex register counter is 
incremented, the sindex available 
counter is decremented and the 
symbolic register counter is 
incremented 

The first part of a subs list, con- 
sisting of the SUB3 triple and the 
COMA'S before the first matched 
triple, is moved to the patch build 
area. The SUBS is chanced to SSUB 
and a symbolic register number is 
placed in the second operand. A 
null value is inserted in the 
second operand of the COMA triples. 
All other triples are not moved 



KOMOVE 



KOSNDX 



none 



ZUERR, Z ABORT 



— ^ 



KOSSBS 



KTAB (macro routines in KA) , 
KOSKDX, KOMOVE 



■H 



■I 



Moves the last part of a subs list, 
consisting of tne COMA's between 
the last matched triple and the 
SUB* triple, to the patch build 
area. The SUB* is changed to SSB* 
and all CC»?A triples have their 
second operand set to null value. 
No other triples are moved 



KOSSBE 



KOMOVE 



—J 
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• Table KO. Phase KO Subscript Optiinization (continued) 



Statement or Operation Type 



Main Processing 
Routine 



Tests whether any operand in a listlKOCVrx* 
of triples is a reference to a 
control variable of the current 
loop 



Subroutines Used 
KTAB (macro routines in KA) , KNTPTY 



-H 



The message 'Invalid input type V 
to optimizing phase KO* is put out 



KOEROR 



ZOERR, Z ABORT 



Moves a subscript list into the 
patch build area changing the 
SUBS/SUB* triples to SSUB/SSB*. 
All matched COMA expressions are 
copied with amendments as follows: 

(1) References to the control 
variable are replaced by references 
to the step. 

(2) All additive invariant parts of 
the expression are deleted. 

All unmatched C(Mh expressions are 
replaced by COMA - NULL 



K0SSB3 



KOSSBS, KNTRTY, KOMOVE, KOSSBE 



\ 



•H 



A subscript list is moved to the 
patch build area with SUBS/SUB' 
changed to SSUB/SSB* triples. All 
matched COMA expressions are copied 
except the dictionary references to 
the control variable which are 
replaced by dictionary references 
to the •initial* elements. All 
unmatched COMA expressions are 
replaced by COMA - NULL 



KOSSB2 



KNTRTY, KOMOVE, KOMAKC, KOSSBE, 
KOEROR, KOSSBS 



^ 

A subscript list is moved into the 
patch build area with SUBS/ SUB' 
triples changed to SSUB/SSB' 
triples. All matched COMA 
expressions are copied. All 
unmatched COMA expressions are 
replaced by COMA - NULL 

Produces a binary constant, if it 
is possible, given as parameters 
the dictionary reference of two 
constants in the operands of a 
given triple. A dictionary entry 
is made for the new constant, the 
dictionary reference of which is an 
output parameter. A return code 
value is also given indicating 
whether or not such a constant has 
been created 

A dictionary entry is obtained from 
the given dictionary reference and 
tested to see if it is for a 
decimal or binary integer constant. 
If it is, the effective precision 
is found and the constant is 
converted to binary if necessary 



KOSSBl 



KOMOVE, KOSSBE, KOSSBS 



KOMAKC 



KOTSTO, KNTRTY, 2DICRF, KOADDC , 
KOSUBC, KOMLTC 



KOTSTO 



ZDRFAB, KNCOMU, KOPREC 
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• Table KO. Phase KO Subscript Optimization (continued) 



Calculates the effective precision Jkoprec jnone 
of the binary fullword given 



Statement or Operation Type 



Main Process 
Routine 



ing 



Subroutines Used 



^ 



— ^ 



A binary fullword result is 
obtained by multiplying together 
the two input binary values 

^ 

A binary fullword result is 
obtained by adding together the two 
input binary values 



KOMLTC 



none 



KOADDC 



■H 



none 



-^ 






KNCOMU I ZDRFAB 



A binary fullword result is 
obtained by the subtraction of the 
two input binary values 

Converts a decimal constant to 
binary and multiplies it with a 
given binary value. An option may 
be specified to allow conversion 
only of the given decimal constant 
to binary 

Scans the subscript lists of a 
DO-loop looking for matching COMA*s 
or COMA - expressions which are 
possible candidates for 
transforming, moving out of the 
loop as invariants, or commoning 



KOSUBC I none 



KNOPTM 



KTAB (macro routines in KA) , 
KNSECO, KNTRMV, KNCHRG, KNCMPR, 
KNALRG, KNOMAC, KNMKVL, KOMTCH 



^ + 

Forward scans the Subs Table entry I KNSECO 
(equivalent to a backwards text 
scan) looking for the first group 
of COMA'S that are optimizable as 
indicated by a switch 

j. + 

Analyzes the type of triple operand | KNANAL 
and sets a return code value 
accordingly 



1 



none 



ZDRFAB 



H 



clears the match chain JKNOMAC 

Match area code is compared with IKNCMPR 

text. The start point, finish 

point, and length of matched code 

is passed back. Only complete 

COMA'S or COMA - expressions are 

matched 

Text between specified triples is I KNTRMV 
scanned. Cleaned up triples are 
moved into scratch storage 



^ 



KTAB (macro routines in KA) 
KTAB (macro routines in KA) 



KTAB (macro routines in KA) , 
[KNTRTY, KNANAL, ZTXTAB, KNCOMU 



J 
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• Table KO. Phase KO Subscript Optimization (continued) 



Statement or Operation Type 



I Main Process 
Routine 



ing| 



Subroutines Used 



[h list of dictionary references of IKNMKVL IKNANAL I 

I all variables in operands of 
{triples in a scratch work area is 

made. The list is terminated with 

a half word of zeros. A flag is 

also set if any of the variables inj 
I the work area are unsafe 

I A check is made to determine if theJKNCHRG 
I given region entry is an end region] 
for c<Hnmoning for the matched code 
in the scratch work area 

I A check is made for region IKNALRG 
boiindaries between specified 
I subscripts 



none 






KTAB (macro routines in KA) , KNCHRG | 



KPOSEL 



I Controls the search through the IKPUPDT 
I patch file for SSUB triples and the 

subsequent processing of the 

restricted types of expressions 

found after the SSUB triples 

Shortened version of phase KJ. IKPSSUB 
Processes those triples following a 
SSUB triple 

I The USE list is searched to see if 
the given dictionary reference is 

I contained in the list. A return 
code is set depending on the part 

I of the USE list in which the 
reference is found 

Examines an operand of a triple andJKPSOPC 
sets flags in a code byte giving 
I the information required on the 
{operand during the analysis of the 
expression within which it occurs 

I The operands of triples following alKPCHKP 
SSUB triple are examined to 
[determine the type of expression 
I under consideration 



KTAB (macro routines in KA) 



, KPSSUBj 



1. ^ 



KTAB (macro routines in KA) 
ZDRFAB, KPCHKP 



I KTAB (macro routines in KA) 



^ 



+ ^ 

ZDRFAB, KPUSEL 



1 KPSOPC 
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• Table KOI • Phase KO Routine/Subroutine Directory 

Fimction 
Checks region boundaries between specified siibscripts 
Analyzes type of triple 
I Checks for end region for ccmunoning 
Compares code in two matching areas 
I Multiplies decimal and binary values 
Lists variables in scratch storage 
I Clears the match chain 

Scans subscript lists of DO-loop for matching COMA's 
[Analyzes type of triple 

Scans Subs Table entry for optimizable group of COMA's 
I Removes offsets, tidies up, and moves code to match area 
I Tests triple type 
I Adds two binary values 

Checks DO-loop and patches over ITDO and ITD' triples 
I Tests for reference to control variable 
1 Aborts 

Initialization for physical phase 
I Creates binary constant 

I Amends triples to refer to value in patch 
i Creates part of patch for transforms and invariants 
Multiplies two binary values together 
[Moves item to next place in patch build area 
Processes match chain and makes an entry in patch file 
[Overwrites triple in text with PTCH triple 
Obtains effective precision of binary value 
Makes an entry in the patch file 



i Routine/Subroutine I 
KNALRG 
KNANAL 
KNCHRG 
KNCMPR 
KNCOMO 
KNMKVL 
KN0I4AC 
KNOPTM 
KNOPTY 
KNSECO 
KNTRMV 
KNTRTY 
KOADDC 
KOBXCH 
KOCVTX 
KOi-iROR 
KOINIT 
KOMAKC 
KOMCHU 
KOMCOM 
KOMLTC 
KOKOVF 
KOMTCH 
KOPCOM 
KOPREC 



— 1 
I 

-H 



KOPTCH 



—J 
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i Routine/Subroutine j 
I KOSBSC 



•Table KOI. Phase KO Routine/Subroutine Directory (continued) 

Function 
I Gets next entry from Subs/Region table 

IKOSNDX (Allocates a sindex register 

IK0SS6E (Moves last part of Subs list to patch build area 

IKOSSBS (Moves first part of Subs list to patch build area 

KOSSBl (Moves a subscript list to patch build area 

IK0SSB2 (Moves a subscript list to patch build area 

iKOSSB3 (Moves a subscript list to patch build area 

IKOSUBC (Subtracts two binary values 

KOTSTO (Tests if dictionary entry is for binary or decimal constant 

KPCHKP (Checks operands of triples in SSUB list 

KPSOPC (Sets a code byte after exsunining a triple operand 

KPSSUB (Processes triples following a SSUB triple in a patch 

KPUPDT (Searches patch file for SSUB lists 

[KPnSEL (Searches USE List for given dictionary reference 
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• Table KT. Phase KT Pseudo-Code Scan 
r T- 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



SCINIT Initialization 



LA0005 



UT01,UT02 



SCI 
SC2 
SC3 



Search for triple of 
interest 



LAOOIO 



UT01,UT03,UT06,UT07,UT08 



~+ 



Move current triple then 
search 



LAOOll 



UT01,UT03,UT06,UT07,UT08 



Delete current triple then 
search 






SC4 



Skip current triple - text 
wanted 



LA0012 
LA0020 



UT01,UT03,UT06,UT07,UT08 



UT06 



SCb Skip current triple - text 
free 



LA0021 



UT0 6 



SC6 Move current triple - text 
wanted 



— + 



SC7 Move current triple - text 
free 



— + 



LA0025 
LA0026 



UT03,UT06 



--+ 



UT03,UT06 



SCIO Symbolic input pointer to 
absolute 



LA0035 



UTOl 



sell Skip pseudo-code - text 
wanted 



LA0040 



UT06 



SC12 Skip pseudo-code - text 
free 



LAOOai 



UT06 



MV2 Move user pseudo-code to 
contiguous OP 



LA0050 



UT04 



MV3 

MV3A 

DVl 



Move user pseudo-code to OP 
Move user triples to OP 



I.A0055 



UTOl 



Generate dope vector for 
based aggregate 



— f 



LA0056 
LA0070 



UT03 



UT07,UT10,UT11 
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•Table KTl. Phase KT Routine/Subroutine Directory 
' I Routine/Subroutine I Function 



\ 

DVl 

MV2 

MV3 

MV3A 

SCINIT 

SCI 

SC2 

SC3 
SC4 
SC5 
SC6 
SC7 
SC& 
SC9 
SCIO 

sell 

SC12 

UTOl 
UT02 
DT03 
UTOM 
OT05 
DT06 
UT07 
UT08 
DTIO 
UTll 



■H 



Generate dope vector for based aggregate. 

Move user pseudo-code to contiguous output text. 

Move user pseudo-code to output. 

Move user triples to output. 

Initialize input and output text blocks. 

Searches for triple of interest to user as indicated by TRT table. 

Move current triple to output then search for triple of interest to 
user. 

Delete current triple then search for triple of interest to user. 

Skip over current triple and mask input WANTED. 

Skip over current triple and mark input FREE. 

Move current triple to output and mark input WANTED. 

Move current triple to output and mark input FREE. 

Move input pseudo-code to output and mark input WANTED. 

Move input pseudo-code to output and mark input FREE. 

Convert symbolic input pointer to absolute. 

Skip over input pseudo-code and mark input WANTED. 

Skip over input pseudo-code and mark input FREE. 

Get a new input text block. 

Get a new output text block. 

Move pseud o- code to output. 

Move triples to output. 

Move text to output. 

Test for end of block and chain to next block if necessary. 

Convert dictionary reference to absolute. 

Move input pseudo-code to output. 

Set adjustable bound values in a dope vector. 

Convert output text references to absolute. 



J.. 



—J 
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•Table KU. Phase KU DO-loop Control and Merge Patches 

r T r 

Main Processing 
statement or Operation Type 



The phase KU control routine. This 
is highest level routine in phase 



Routine 
KUMAIN 



Subroutines Used 



MV3A(KT) + all routines in modules 
KU and KV except KVJUMP, KVSSUB, 
KVSSBP 



Phase initialization 



KUINIT 



ZLOADW, ZUGC, SCINIT(KT) 



Processing initialization performed 
before each return to main scan 



KUSETS 



none 



Primary phase scan of text 

Secondary scan of DO- loop 
specification elements only 



KUSCNl 
KUSCN2 



SC3(KT), SCl(KT) 
SC3(KT), KVERRS 



ITDO triple test routine. Loops IKUITDO 
that are optimizable are detected 



KVERRS 



CV and ^CV triple processing 
routine 



KUCVAR 



SC5(KT), ZDRFAB, KVERRS 



Determination of type of step 



KUSTEP 



ZDRFAB 



Fill in loop control skeleton for 
variable step with no s index 
reqistera 



KUSKLl 



ZDICRF, MV3A(KT), MV3 (KT) 



Fill in loop control skeleton for 
variable atep with sindex regiiiters 



KUSKL2 



MV3A(KT), MV3(KT) 



Fill in loop control skeleton for 
constant otep 

Phase finish. Release scratch 
storage KV and patch file. Return 
to control 



KUSKL3 



MV3A(KT), hV3(KT) 






KUENDS 



ZURC, RLSCTL, KVERRS 



Patch triple processing routine. 
Each patch is located and inserted 



KVPTCH 



ZTXTAB, MV3A(KT),- KVSSUB, KVERRS 
KVITDP, KVSSBP, KVCOMA, KVCOMR, 
KVJUMP 



y 

Process all COMR triples 

Process all CC»JA triples 
^ _ 

Process JUMP triples. Used only 
while processing a patch 



KVCOMR 
KVCOMA 






none 
none 



KVJUMP 



MV3 (KT) 



Process SSUB triple. Used only 
while processing a patch 






KVSSUB 



ZDRFAB, ZTXTRF 



Process SSB* triples. Used only 
while processing a patch 



KVSSBP 



ZTXTAB 



J 
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•Table KU. Phase KU DO-loop Control and Merge Patches (continued) 
r 



Statement or Operation Type 



T T- 

Main Processing I 
Routine 



Subroutines Used 



-^ 



SUBS and GURO triple processing 
routine 



KVSUBS 



IZDRFAB, ZTXTRF, MV3A(KT) 
! 



SUB* triple processing routine 



KVSUBP 



I ZTXTAB 

4 

|MV3(KT), MV3A(KT) 



ITD* triple processing. Insert 
epilogue into text for optimizable 
loops 



KVITDP 



Set up phase error message number 
and parameters 



KVERRS 



i ZUERR, Z ABORT 



H 

J 



Search register alias table for 
So'JE register 



KVALAS 



None 
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•Table KUl. Phase KU Routine/Subroutine Directory 



j RolJtine/Subroutine j 
KUCVAR 



^ 



KUFNDS 

KUINIT 

KUITDO 

KUMAIN 

KUSCNl 

KUSCN2 

KUSETS 

KUSKLl 

KTJvSKL2 

KDSKL3 

KDSTEP 

KVALAS 

KVCOMA 

KVCOMR 

KVERRS 

KVITDP 

KVJUMP 

KVPTCH 

KVSSBP 

KVSSUB 

KVSUBP 

KVSUBS 



Function 
Processes CV and ♦CV triple in optimizable loop 
Phase finish. Peleases KV, scratch storage and patch text 
Initializes phase KU processing 
Detects DO-loops flagged as optimizable 
Phase KU control ro\?tine 
Primary scan for phase 

Scan for DO-loop specification elements 
Processing initialization 

Sets up variable step sindexes available loop control code 
Sets up variable step no sindexes loop control code 
Sets up constant step loop control code 
Determines type of step 

Searches register alias table for SSUB register 
Processes COMA triples 
Processes COMR triples 
Processes phase KU errors 
Inserts loop control epilogue 
Processes pseudo-code within patches 
Processes PTCH triples by reference to patch file 
Processes SSB' triples occuring within patches 
Processes SSUB triple occuring within patches 
Processes all SUB' triples 
Processes SUBS triples 



J 
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• chart 08. Pseudo-Code Logical Phase Flowchart 



» « 

• OBBl « 



Bl *. 
,* 

OyNMlIC 
miTIKL 



*****B2* ********* 
* INITIAL LB* 

->* CONSntUCT P-C * 
* TRIPLES FOR * 
*DyNXHIC INITIAL* 

***************** 



*****C2*** ******* 
*INITUL LD* 
•-*-*-*.*-*.*-*-* 
->*CO«STROCT DICT:* 
* ENTRIES POR * 
♦STATIC INITIAL * 
***************** 



*****Q2********** 

*D0 EXPANSION LG* 

*-*-*-*-*-*-•-*-* 
->*EXPAND DO LOOPS* 

• • 

* * 
***************** 



•••**£1********** 
•EXPN EVAL LR.LS* 
•-*.*.*-*.*-*-•-* 
♦ CONVERT EXPR- * 
•JiSSZOH TRIPLES * 
♦TO PSEUDO-CODE ♦ 
**••*••****•***** 



*.*. •-•-*.*-*-•-* 



**•*•••*****♦**** 



*-*-*-*-*-*-*.*-* 
->*CONVERT STRING * 

♦ TRIPLES TO ♦ 

* PSEODO-CODE * 

**••****•••***•** 



.*• 
HI *. 
.* TRANS *. 
OR VSRIFY 
BOILT-IN 
. rOMCT 
♦ . .♦ 



*****B2* ********* 

* MA* 
*-*-♦-*-*-*-•-*-* 

PROCESS * 
TRANSLATE OR ♦ 

♦ VERIFY FONCT ♦ 
**•***•*••**•***• 



->♦ 



.•^SBODO-VARS^. VES 

. OR MOUIPUE .♦ 

*. ASSIGN .* 



*******••••****** 



**** 

* « 

* A3 « 

* • 
• **• 



♦ND.HE.HG.MI.MK ♦ 
*~*l*-t-*-*-l-*-* 
>♦ CONSTRUCT ♦ 
♦PSEUDO-CODE FOR^ 
♦IN-LINE rUNCTS ♦ 
***************** 





A3 


♦ . 






•****AU< 






i?.„ * * 






*CALLS i c!V: KL* 




♦ANY GENRIC 


• 


YES 


•-*.*-••>.».•-•-• 


— >♦ 


ARGIMENTS 




*.. 


>*PROCtSS OEKEklt* 


1 


♦ . .* 






* ENTRY NAMtS ♦ 


*i** 


* NC 










A3 * 














**•* 
















'i 












.*. 






■' 




33 ♦. 










. * ANY * 






*CALLS i FNS y«* 




* CALLS OR 


* 


YES 






FUNCTION 




*- 


>• PROCESS tALL i * 




* . REFER- 






• FN PBGCtDJRE • 




*.ENCES.* 






♦^INVOCATIONS^^^J 



D3 ♦. 
.♦NEED TO*. 
.* RBORDER *. YES 

.STRING BUYING.* 

* . CODE . * 
♦ . .♦ 



**t**CU*» ******* 
♦STRIUG LV 
••*-*.•-*-•-*-«. 
-*PROVIDf STRIMG 

* HANUtXUG 

* FACILIIItS 
•**•****•*••»*** 



*****Ult*** ******* 
♦BUY t SELL MP* 
*-*-•-*-*•*-•-*-» 
->*REORDER BUY AND* 
*SELL STAIEMENTS* 
* • 

***************** 



*****E'I|* ********* 
*SUBSCRIPTS KS* 
*-*•*-*-*.*-*-*-* 
>♦ CONSTRUCT * 
•PSEUDO-CODE FOR* 



♦ •***I'3********** 
♦BR.NO.RETNS NA^ 
♦-♦!*- (-*-*-*.*-* 

♦ FOR BRANCHES ♦ 
♦RETURN ETC MAKE^ 

♦ PSfUOO-CODE ♦ 
♦♦•♦*•♦«********* 



G3 *. 

.♦DELAY. ♦. 

.♦FREE. HAIT.*. 

♦. DISPLAY. OR .< 

♦.ALLOCATE .* 

♦.STMT .♦ 

♦. .♦ 

♦ NC 



***************** 



••*********•***•* 



♦. CLOSE 






• ****JI|*** ******* 
*STREAN-I/0 m* 
*-•-*-*-*-*-*-*-* 
>• MAKE LIB CALL ♦ 



II********** 



• ••••l:S«>»«**«>< 

•COMPIUEP FN? 0b» 

>• P!)0CE£3 • 

A *COCFILEP FNS S • 
I »PSkULO-v;tKiAilL'^» 



*ASSIGr:HENT OE* 
*. •.•.*. *.*.*.*.« 

* CCNSI RUCT • 
*PSfcUDO-CODt; FOB* 

* ASSIGNMENTS • 



*****D5*****»** 

* RELtASii 

* UTILITIES, 

* lEKKT, An£ 

* iekLv 

* 
*********•***•• 



•****ES* *****••*• 
*C0NVERSIQ.'<3 OG* 
•-*-*-*-•-*.*-*-• 
*EXAMINE 0PERA.4D* 
* AND DETERMINE • 
*IF DO'IE IH-tliO.* 
***************** 



. * IN-LINE *. 
, CONVERSIONS . 
*.2N3 PASS .* 



•****GS* ********* 
*COHVERSIOHS OH* 
*-*-*-*•*-*-*-*.* 

* GENERATE * 

* IN-LINE CODE * 

* 2ND PASS * 
•*******»*****•>* 



.*. 

H5 *. 
.* *. 

IN-LINE * . 
:gNVERSIONS . 
.3RD PASS .* 
*. .* 
*. .♦ 
* YES 



*-*-*-*-•-•-*•*-* 



**••*•******•**• 



**•* 

I 4 

» B5 * 

> 4 

*•** 



*****K«* 
♦DATA FORM NT.NU^ 
*-*•*-*-•-•-*-••* 
->* MAKE LIB CALL ♦ 
♦ SEQS FOR DATA * 
♦/FORMAT LISTS ♦ 
***************** 



*****KS* ***•*••*• 
•CONSTANTS OS* 
*-*-*-*-*-*-*-*-* 
•CONVERT CONSTS * 

* TO REQUIRED * 

* INTERNALFORH * 
***************** 



***** 
*09 * 
* A2* 
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Chart LB. Phase LB Overall Logic Diagram 



SCAN 

•**«*A2*** ******* 

• scan text for * 

• proc. begin, * 
— >* all6c, EOP *< 

* TRIPLES * 

♦ ♦ 



.* WAS *. YES 


*. BOP TRIPLE .* 1 


*. FOUND .* 1 


*. .♦ 1 


*. .* * 


■ NO *«••» 




*LD * 




* Al* 




* * 




* 


SFSCAN r 


*****C2*< i******»* 


* • 


tsgi'Sri^^ES^i : 



***************** 



* MAIN • 

•-•-*-•-*-•-*-•-• 
PROCESS 



•*******•*••*••** 



••**•*******•**• 



E2 *. 

.* MAS * 

YES .* ALLOCATE 

» . TRIPLE 

*. FOUND 



.* 



* SCAN DOWN * 
>* AUTOMATIC •- 

* CHAIN * 

* • 
•*****••*•••***** 



END OF 
AUTOMATIC 
. CHAIN . 



* MAIN * 
*-•-*-*-*-*-*-*.* 

>* PROCESS • 

* ANY INITIAL * 



INITIAL PROCESSING 

****G1********* 

• ENTRY * 

• TO MAIN *■ 

• * 
•*•*******••••* 



IS 
INITIAL 
FLAG ON 



****63********* 

->♦ RETURN « 

* * 

***••***•****** 



IS 

ITEM AN 

ARRAY 



**••***•****•*•** 



*****•*****••*•*• 



CNSTHK V 

*«***K2* ********* 

* OUTPUT « 

* SN2 AND « 

* ASSIGNMENT « 

* TRIPLES * 

* « 
*•**•***••*•****« 






****X3********* 

RETURN * 
* 

*****•***••**•* 
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chart U). Phase LD Overall Logic Diagram 



cum roK 



ST0006 « 
• STRING 






****C2********* 

SCAN 

INITIAL 

VAUIE 
STRING 



CHSTMK 

* OBTAIN • 

* CORSECT ENTRY * 

* ON * 

* CONSTANT * 

* CHAIN • 



ST9999 

•****E1********** 
• MAKE SLOT * 



.*. 

03 ♦. 
.« IS ». 
. * ITEM A *. NC 

■». rACfOR .•' 



* CONWRT TO * 

• m£ WORD * 

• BINARy • 

* * 



CNSTHK 

****«cv*** ****** 

* OBTAIN 

* CORRECT ENTRY 
>• ON 

* CONSTANT 

* CHAIN 



GAC3 

*****Dlt********** 

• HAKE SLOT * 

• FOR • 

• CONVERTTO • 

• CONSTANT • 



tAUE OF 
KHTRIBS 






•*•*••*••«••••*•• 



ST0088 

' ****ri******«*** 
racsET * 

INITIAL • 



•*•••••*•***••*•• 



STOOOi 

•****F3********** 
SOINT 



inTIAL 

VnS SLOT 

TO TABLE 



•••••*••*••••••* 



••••••****•••**•• 



*. .* 
• TBS 

*LG • 
->• Al • 

* * 

• •** 



L 
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chart LG. Phase L6 Overall Logic Diagram 



* A3 • 

» • 

• ••* 



LGOOOO 

•INITIALIZATION * 

♦ GET SCRATCH * 

♦ STORAGE FOR * 

* DO BLOCKS * 

• * 
***************** 



A3 » 

* 

WHILE' 



LG0022,CCDE3 

* * 

♦ GENERATE TEST ♦ 
— >♦ CODE FROM DO 

• STACK ENTRY • 

* • 



« >» Bl » 



.»~*-*-*-*.*-*~* 



• Bl * 

* * 
**** 



LG0013 

*****C2* ********* 

♦ PUSH DOWN DO * 
» STACK AND • 

>» INITIALIZE » 

♦ NEW STACK ♦ 

♦ ENTRY » 
***************** 



**** 



->* Bl ♦ 

* * 
**** 
LGOOll 

*****a2********** 

* PUSH DOWN DO * 

* STACK AND * 
>» INITIALIZE *- 

* NEW STACK • 

* ENTRY » 
***************** 



El *. 

.» 

DO- 
OR ITDO' 



LG0012 

*****E2* ********* 

* GENERATE LOOP * 

* CLOSING CODE * 
>* AND POP UP *- 

* DO STACK * 



***************** 



LG0015 

*****F2* ********* 

* ALLOCATE * 

* SYMBOLIC REG * 
>* FOR LOOP *- 

» CLOSE * 

* » 
***************** 



rCH STORAGE* ■, 

************ ii 



***** 
*LS ♦ 
* Al* 



->* 



*****Q3********** 

* SCAN CONTROL * 

* VARIABLE TEXT * 
AND SET UP * 

* SKELETON IN * 

* STACK ENTRY * 
***************** 



**** 

* < 
->* Bl * 

* < 
**** 



TO, BY 



* ANALYZE THE * 
->* EXPRESSION IN * 

♦ ENSUING TEXT * 

• * 
***************** 



• «** 

* * 

* Bl ♦ 

* * 
*•** 



.* TO*. BY', *. YES 



06 DO 
EQUALS 



L6002II 

*****t]2 ********** 

* GENERAVE TEXT * 

* TO ASSIGN * 
>* PRECEDING *- 

* EXPRESSION TO * 
« A TEMPORARY * 
***************** 



LG0021 

*****J2********** 
*SAVE LOOP ENTRY* 

* AND NEXT * 
>* SPECIFICATION ♦ 

* LABEL REF IN * 

* DO STACK * 
***************** 



.* EM) OF *. YES * GENERATE TEST * 

->*ITERATIVE PART.* >* AND *- 

♦. OF THIS .♦ * COUNT CODE * 

*.SPEC .* ♦ * 

*. .* ***************** 



**** 

* * 

* Bl « 
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**************** 



* AKITH TO 
>* ARITH 

* CONVERSION 

* 
**************** 



♦*»«*G5*****»* 

♦ ARITH TO 
>* HIT STRING 

* CONVERSION 

* 
*********••*•* 



♦ ARY CONSTANT * 

* POOL FROM * 

• TEXT BLOCK ♦ 

***************** 



* CHAR STRING 

* TO ARITH 

* CONVERSION 

* 
******«********i 

• *•• 

* « 

* J3 *-> 

* * 
**** 



* ARITH TO • 

* CONVERSION • 

* * 
***************** 



****J3* ******** 
» * 

» RETURN • 
t « 

*************** 



I********** 



* CHAR TO * 

* ARITH * 

* CONVERSION * 

* * 
***************** 



K« ». 
**** .* *. 

* * .* SOURCE *. 

* KO * >*. CHARACTER . 

* * *. STRING .♦ 
**** *. .* 



♦ ARITHMETIC 
>* TC ARITH 

* C0NVEKSIUI4 

* 
***•*•*••«*•**< 
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•Table LB, Phase LB Pseudo-Code Initial 



Subroutines Used 



I Main Processing I 
I statement or Operation Type | Routine | 

JjScans text for PROCEDURE, BEGIN, |SCAN jSCINIT, SCI, SC3, SC5 (all in KT), 

land ALLOCATE triples | j SFSCAN, ENDRTN, MAIN, SCAUTO, 

I I IAUT012 



|. 

(Scans automatic chain 

|. 

I Processes INITIAL attribute 
I dictionary items 



SCAUTO 



MAIN 



I MAIN 



I CNSTWK, ARRENT 



|. 

(Processes IDV statements 
^ 

(Processes INITIAL arrays 
L 



-j 



( AUT012 

■+ 

j ARRENT 



ARRENT 



(CNSTWK 
-J. 



Table LBl . Phase LB Routine/Subroutine Directory 

r T 

(Routine/Subroutine I 



Function 



I ARRENT (LC) 

I 

(AUT012 

I 

I CNSTWK 

I 

I ENDRTN 

I 

(MAIN 

j 

( SCAN 

I 

I SCAUTO 

I 

i 

I SFSCAN 



Generates triples and pseudo-code for arrays declared with INITIAL. 

Processes IDV (initial dope vector) statements. 

Creates initialization triples. 

Releases phase and scratch storage. 

Processes INITIAL attribute dictionary items. 

Scans text for PROCEDURE, BEGIN, and ALLOCATE triples. 

Scans AUTOMATIC chain. 

Scans through second file statements. 
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Table LD. Phase LD Pseudo-Code Initial 



Statement or Operation Type 



jMain Processing! 
Routine I 



Subroutines Used 



I Scans the STATIC chain for any | STATIC 
I variable with the INITIAL attribute! 

L J. 



JENDRTN, ARRENT, CNSTWK, 
JLOVNAS, STRADD 
.X 



._J 



Table UDl. Phase LD Routine/Subroutine Directory 

r T ^ 

! Routine/ Subroutine I Function | 

ARRENT I Processes the initial value string for arrays. 

Creates constant entries for initial values. 

Converts decimal integer constants used as replication factors to 
fixed binary. 

Releases the phase and scratch storage. 

Scans array initial value string. 

Makes slot for converted constant for arrays. 

Calculates the equivalent length in bits or bytes of a constant for 
variable or adjustable length strings. 

Scans the STATIC chain. 

Addresses elements of structures. 

Locates initial value list. 

Resets initial value entry. 

Makes slot for converted constant for scalars. 



CN3TWK 
CNVERT 

ENDRTN 
GAAl 
GAC3 
LOVNAS 

STATIC 
STRADD 
ST0006 
:3T0088 
ST9999 



—J 
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•Table LG. Phase LG Pseudo-Code DO Expansion 



Statement or Operation Type 



T T 

14ain Processing 
Routine 



Subroutines Used 



— T 

-H 
-H 

-^ 

-H 
-H 



Scans text 



B'or iterative DO triples, pushes 
down stack and examines control 
variable 



LG0002 
LGOOll 






SCI (KT> 

PSHDWN, SC5 (KT), CVSCAN 



Pushes dovm DO stack 



— + 



LG0013 



PSHDWN 



For iterative DO* and DO* triples, 
pushes up stack and removes top 
entry 



LG0012 



EXPEVL, POPUP 



For CV triples, reverts to normal 
scan 



LG0015 



EXPEVL 



For TO and TO* triples, examines 
argument and assigns to temporary, 
if necessary 

For BY and BY* triples, examines 
expression and determines signs of 
constants; assigns variables to 
teF.porary 



LG0017 



LG0019 



~+ 



EXPEVL, TESTOP 



EXPEVL, TESTOP 



— ^ 



For WHILE and WHILS* triples, marks 
loop as iterative; generates test 

triples 






LG0021 



CODE3 



DO EQUALS triples, assigns 
expression as a temporary; 
generates code to control loop if 
end of specification 






LG0024 



CODE2, TESTOP 



"4 



■H 
H 



-H 

I 
—J 



Sets up control variable text in DO 
stack 



CVSCAN 



CVCOPY, PSTYPO, PSTYPl 



Generates loop control code 



C0DE2 



Tests expression result type and j TESTOP 
assigns to temorary if not constant] 

I Moves text from DO stack to output JCVCODE 

L i 



CVCODE, DICENT, COMPAR, SWITCHP, 

LMV3AU, LMV3A5, PSTYPO, PSTYPl 

DICCHN, LMV3A5 
ILMV3AU 
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Table LGl. Phase LG Routine/Subroutine Directory 



r T- 

I Routine/ Subroutine | 



Function 



■H 



CODE 2 
CODE 3 
COMPAR 
CVCODE 

cvcopy 

CVSCAN 

DICCHN 

DICENT 

EXPEVL (La) 

LGOOOO 

LG0002 

LGOOIO 

LGOOll 

LG0012 

LG0013 
LG0015 
K30017 

LG0019 

LG0021 

LG0022 

LG002U 

LMV3AU 

LMV3A5 

POPUP 

P3HDWN 

PSTYPO/PSTYPl 

SWITCHP 

TESTOP 



Generates loop control code. 

Generates loop control code for WHILE. 

Generates triples to test upper limit control expression. 

Moves text from DO stack to output. 

Moves input text to DO stack. 

Sets up control variable text in DO block. 

Chains dictionary entries. 

Makes a dictionary entry. 

Analyzes expression to determine result type. 

Initializes phase. 

Scans text. 

When EOP triple encountered, releases scratch storage and passes 
control to next phase. 

For iterative DO triples pushes down stack and examines control 
variable. 

For iterative DO' and DO* triples pushes up stack and removes top 
entry. 

Pushes down DO stack. 

For CV triples reverts to normal scan. 

For TO and TO' triples, examines argument and assigns to temporary 
if necessary. 

For PY and BY' triples, examines expression and determines sign of 
constants. Assigns variables to temporary. 

For WHILE and WHILE' triples, meurks loop as iterative and generates 
text triples. 

When WHILE' triple encountered, branches to generate comparison 
triples. 

For DO EQUALS triples, assigns expression to a temporary: generates 
code to control loop if at the end of specification. 

Moves triples to output. 

Moves one triple to output. 

Removes item from DO stack. 

Pushes down DO stack and initializes new stack entry. 

Test pseudo- variable argument type. 

Changes DO stack text markers. 

Tests expression result type and assigns to tenqporary if not 
(^constant. 
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•Table LS. Phase IS Pseudo-Code Expression Evaluation 

r T 

Main Processing 
Statement or Operation Type 



Routine 



Subroutines Used 



-H 



Scans text and branches to 
processing routines; marks phase LW 
and releases control to next phase 



LBO 



ARITH, FUNCT, LZZl, MOVEPC, 
SCAN (KT), STRING, SUBSPT 



■H 



-, ♦ 



Calculates result type and 
generates pseudo-code for +, 
/, prefix +, prefix -, compare 
operators, and ADD, MULTIPLY, and 
DIVIDE functions 



ARITH, ARITH2 



ADDSTK, ASSIGN, CONVT, DICDES, 
EXPONT, GENRPD, GETADX, GETFR, 
GETGR, MOVEPC, REL5TK, SETCPX, 
STRING, SWOP 



-^ 



Calculates result type for string 
operators 



STRING 



Inserts symbolic register in 
subscript triple and stacks result 



SUBSPT 



LZZl, MOVEPC, STALRG 
ADDSTK, DICDES 



Inserts workspace description in 
TMPO triples after function, and 
stacks result. Stacks arguments 
for ADD, MULTIPLY, and DIVIDE 
functions. Adds pseudo- variable 
markers to stack 



FUNCT 



ADDSTK, ARITH, DICDES, GETFR, 
GETGR, SCAN(KT) 



Calculates results types and 
generates pseudo-code f Dr *♦ 
operator. Generates calling 
sequences to library subroutines 
for complex arithmetic 



EXPONT 



ADDSTK, ARITH2, CONVT, GETADX 
MOVEPC, STALRG, SWOP 



Calculates target type and 
generates assignment triple for 
conversion; sets dictionary entries 
for constants 



CONVT 



ADDSTK, ASSIGN, GETFR, MOVEPC, 
STALRG 



H 



■H 



H 



■-^ 



Interchanges operands; optionally 
loads first operand 



SWOP 



GETADX, GETFR, GETGR 



Obtains free floating or fixed 
arithmetic register; stores it, if 
necessary 



GETFR. GETGR 



GETADX, STALRG 



■H 



Adds items to, and releases items 
from intermediate result stack 



ADDSTK, RELSTK 



None 



^ 

Generates calling sequence for 
complex ♦ and / operators, 
supervises complex arithmetic 

Inserts TMPD triplss after zero 
operands 



■H 



SETCPX 



EXPONT, GETADX 



LZZl 



RELSTK, SCAN(KT) 



-^ 
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Table LSI. Phase LS Routine/Subroutine Directory 
j Routine/Subroutine j 



Function 



ADDSTK 


(LT) 




ARITH/ARITH2 


(LT) 


ASSIGN 






COWST 






CONVT 






DICDES 






E0P2 






FXPONT 


CLU) 





FCTDES 
FUNCT 

FXCl (LT) 
GENRPD 
GETADX (LT) 
GETFR/GETGR (LT) 

LBO 

LBE21 (LT) 

LBFLl (LT) 

LZZl 

MOVEPC 

PSI 

RELSTK (LT) 

SETCPX (LU) 

STALRG 

STRING 
SOflSPT 

SWOP 



P.6As items to intermediate result stack. 

Calculate result type and generate code for +, -, ♦, /, prefix ♦, 
prefix -, compare operators, and ADD, MULTIPLY, and DIVIDE 
functions . 

Generates an assignment triple and TMPD in the output text. 

Sets up dictionary entry for constant operand. 

Calculates target type and generates assignment triple for 
conversion . 

Constructs operand description from dictionary entry. 

Marks phases wanted/not wanted and releases control. 

Calculates result type and generates pseudo-code for ♦♦ operator, 
and generates calling sequence to Library subroutines for complex 
arithmetic. 

Inserts workspace description in TMPD triples after function, and 
stacks result. 

Inserts workspace description in TMPD triples after function, and 
stacks result. Stacks arguments for ADD, MULTIPLY, and DIVIDE 
functions. Adds pseudo- variable markers to stack. 

Generates fixed binary pseudo-code. 

Generates pseudo-code for packed decimal operations. 

Sets up address of pseudo-code instruction. 

Obtain free floating or fixed arithmetic register; store it, if 
necessary. 

Scans text and branches to processing routines. 

Tests for operand conversions and constants. 

Generates floating pseudo-code. 

Inserts TMPD triples after zero operands. 

Moves pseudo-code to output text. 

Adds pseudo-^variable marker to stack. 

Releases items from intermediate result stack. 

Generates calling sequence for complex ♦ and / operators; supervises 
complex arithmetic. 

Generates pseudo-code to store all arithmetic registers currently in 
use. 

Calculates result types for string operators. 

Inserts symbolic register in subscript triple and puts result in 
stack. 

Interchanges operands and optionally loads first operand. 
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•Table LV. Phase LV Pseudo-ccxie String Utilities 



T T- 

Main Processing) 
Routine 



I 



Statement or Operation Type 



Subroutines Used 



-H 



j Initializes module; releases 

I control to next module 

|. 

) I Converts data item to string; 
I calculates string length 

K 



STRUTO 



None 



STRUTl 



JSCAN (KT), STRUT2 
I 



-^ 



I Produces a string dope vector 

I description from a standard string 

I description 



STRUT2 



None 



Table LVl. Phase LV Routine/Subroutine Directory 



i Routine/Subroutine j 



Function 



■H 



LSUT17 

LSUT22 

LSUT26 

LSUT27 

STUTO 

STRUTl 

STRUT 2 

ZSTUTl 
ZSTUT2 



Tests whether string length is greater than 256, and if necessary 
generates fixed length calling sequence. 

Tests whether string dope vector result is required. 

Generates any assignment and TMPD triples. 

Sets up assignment and TMPD triples. 

Initializes module; releases control to next module. 

Converts data item to string type; calculates string length. 

Produces string dope vector description from standard string 
description. 

Transfer vector to STRUTl. 

Transfer vector to STRUT2. 



._j 
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•Table LX. Phase LX Pseudo-Code String Handling 



Statement or Operation Type 



Main Process 
Routine 



mg 



Subroutines Used 



■H 



Initializes phase, scans text and 
branches to processing routines; 
releases control to next phase 



BE6I^4 



FUNPT, SCAN (KT), STROP, 
SUBSPT, TMPDT 



Processes TMPD triples. Arithmetic 
type TMPDs are ignored. String 
TMPDs are replaced by the top item 
from the string stack 

Processes function and function 
argument triples. Arithmetic type 
functions are ignored. Dictionary 
entries are created for the results 
of string type functions. A 
library calling sequence is 
generated for the BOOL function 
using the mechanism for packed bit 
operations. The result 
descriptions are added to the 
string stack 



TMPDT 



6ETMPD, MOVSEL, RELSTK, SCAN (KT) 
SETKJ>D 



FONT 



ADDSTK, DICDES, GETADS, GET^*PD, 
MOVEPC, RELSTK, SCAN (KT) , SETMPD, 
STROP 



Processes subscript triples. 
Arithmetic type subscripts are 
ignored. A symbolic register or 
workspace offset is added to string 
type subscript triples and the 
string description is added to the 
string stack 



SUBSPT 



ADDSTK, DICDES, SBGNOR, SCAN (KT) 



< 



Processes string operations CONCAT, 
AND, OR, NOT and conparisons with 
string type operands. For simple 
cases, in-line pseudo-code is 
generated; otherwise calling 
sequences to the library are 
generated. The results are added 
to the string stack. 



STROP 



ADDSTK, DICDES, GETADS, GETADX, 
GETMPD, M0\7EPC, MOVSEL, RELSTK, 
SCAN(KT), STRUT (LV), ASSIGN, 
GETWS4, GETWS8, SBGNER, SEGNR 



..J 
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Table LXl. Phase LX Routine/Subroutine Directory 
lAoutine/Subroutinej Function 

ADDSTR I Adds Strings to the intermediate string result stack. 



ADSTR (LY) 

ASSIGN 

BEGIN 

DICDES 

FUNPT 

FUWT 

GETADS/GETADX 

GETMPD 

GETWSI* 

GETWS8 

LB 

LIBl 

LIL2 (LY) 

LIL3 (LY) 

LIL6 (LY) 

LIL8 (LY) 

Lll 

MOVEPC 

MOVSEL 

MVC1/MVC2(LY) 

RELSTK 

S6GNER 

SBGNOR 

SBGNR 

SETMPD 

STROP 

SUBSPT 

TMPDT 

T5 



constructs dope vector and string descriptions from a given 
descriptor which may describe either a string, or its dope vector. 

Generates an assignment triple and associated TMPDs in the output 
text. 

Main controlling routine for phase. 

Constructs operand description from dictionary entry. 

Processes result returned by functions. 

Processes funtion and function argument triples. 

Construct address part of pseudo-code instruction. 

Constructs operand description from TMPD triples. 

Allocates 4 bytes of aligned workspace. 

Allocates 8 bytes of aligned workspace. 

Terminates phase at end of program. 

Generates Library calls for string operations. 

Generates pseudo-code for NOT operation. 

Generates pseudo-code for concatenation operation. 

Generates pseudo-code for comparison operation. 

Generates pseudo-code for AND/OR operation. 

Generates pseudo-code to convert to string. 

Moves pseudo-code from buffer to output text. 

Moves SELL triples to output text- 

Creates MVC instructions. 

Removes strings from the intermediate string result stack. 

Gets next even-odd pair of symbolic registers. 

Gets next symbolic register. 

Gets next symbolic register. 

Constructs TMPD triples from description. 

Processes string operations CONCAT, AND, OR, NOT, and comparisons 
with string type operands. 

Processes subscript triples. 

Processes TMPD triples. 

Sets flags for triple types. 



._j 
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•Table Mft. Phase MA Pseudo-code Translate and Verify Functions 

r T r 

Main Processing | 
Statement or Operation Type 

Scans source text 



TRANSLATE function processor 
Creates compile time table 






TV13A 



None 



Converts constant from internal to 
external form and vice versa 

TV15A 






FUNC 



SC2(KT), SC3(KT), SC5(KT) 



Function marker triple (FNC) 
processor 

. _ SDCOM 



Double coma triple (FNCM) processor 



SFNPM 



Function prime triple (FNC*) 
processor 

TVIOA 






Initializes VERIFY compile time 
table 

VERIFY function floating table ITV17A 
build 



TV18A 



MV3 (KT) 



Pseudo-code b\iild for VERIFY 
function 

Floating table build for TRANSLATE 






TRANSLATE function in line code 



VERIFY function processor 



Floating table search 



— + 



Library calling sequence generator 






Updates function dictionary 
reference 

i Obtains workspace 



h 



Routine 



Phase KT (SCAN) 



TVll 



TVBIA, TVll 
TVIBA, TV31A 






TV21A 



TV22A 






H 



TV24A 

Tests for duplicate character JPTTRT^ 
constant 

TV31A 



TV35A 



TV38A 



Subroutines Used 



SCl(KT) 



-H 



SC2(KT), SC3(KT), SC5(KT) 
SC5(KT) 



-^ 



■H 



TV13A 



MV3 (KT) 



— H 
^ 



MV3 (KT) 



—^ 






MV3 (KT) 



TVll, TV31A 
ERROR 



None 



MV3(KT), TEMPW 



None 



1 

— ^ 
— ^ 



{TEMPO I None | 
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•Table MAI. Phase MA Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



ERROR 

FUUC 

PTTRAN 

SDCOM 

SFNPW 

TEMPO 

TEMPW 

TVIOA 

TV 11 

TV13A 

1V15A 

TV17fl 

TV18A 

TV21A 

TV22A 

TV2UA 

TV31A 

TV35A 

TV38A 



Produces error message 

Processes function marker triple (FNC) 

Tests for duplicate character constant 

Processes double coma triple (FNCM) 

Processes function prime triple (FNC) 

Obtains workspace 

Gets temporary workspace 

Processes TRANSLATE function 

Creates compile time table 

Converts constant from internal to external form and vice versa 

Initializes VERIFY compile time table 

Builds VERIFY function floating table 

Builds pseudo-code for VERIFY function 

Builds floating table for TRANSLATE 

TRANSLATE function in line code 

Processes VERIFY function 

Searches for floating table 

Generates library calling sequence 

Updates function dictionary reference 



—J 
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Table MB. Phase M3 Pseudo-code Pseudo- Variables 

r 



Statement or Operation Type 



Main Processing! 
Routine I 



Subroutines Used 



■H 



Scans souj.ce text JMBOOOl 

PSI operator; starts new entry in |M30011 
stack for pseudo-variable 



I SCI (KT) 

-+ 

I SWITCH 



PSI' operator; completes stack 
entry and oenerates code for data 
list items 



MB0012 



(switch, target 



Assign completes stack and rescans 
group of assignments, putting 
target descriptions out in correct 
sequence; generates code for 
pseudo- variables in stack 



MB0013 



JDRFTMP, MMV3A5, MVTMPD, OUTMPD, 
I TARGET 



Multiple assign; places only target 
descriptors in stack 



MBOOlJt 



MVTMPD 



Constructs pseudo-variable stack 
entry 



MB0020 



j MVTMPD 



Places temporary descriptor in 
output 



OUTMPD 



MMV3A5 



1 



Gets temporary workspace for 
pseudo-variable, if necessary 



TARGET 



JGETWKS 
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Table MBl. Phase MB Routine/Subroutine Directory 



r— T- 

I Routine/Subroutine | 



Function 



DRFTl'P 
GETWKS 
MBOOOl 
IdBOOOll 
M60010 

MBOOll 
HB0012 

MB0013 

MBOOltt 
MB0020 
MB1310 
MB1311 
MB1316 
MB1318 
^iBl320 
MMV3A5 
MVTMPD 
OUTMPD 
SWITCH 
TABGET 



Makes temporary descriptor from a dictionary reference. 

Obtains workspace to accommodate a variable of given type. 

Scans source text. 

Multi-switch for triples of interest. 

On reaching end-of-text marker, releases remaining block, and 
releases control of phase. 

PSI operator; starts new entry in stack for pseudo- variable. 

PSI' operator; completes stack entry and generates code for data 
list items. 

ASSIGN; completes stack and rescans group of assignments, putting 
target descriptions out in correct sequence, generates code for 
pseudo-variable in stack. 

Multiple ASSIGN; places any target descriptors in stack. 

Constructs pseudo- variable stack entry. 

Resets input pointer to start of sequence of ASSIGNS. 

Rescans ASSIGNS and associated TMPDS from stack in reverse order. 

Tests for end of stack. 

Tests for pseudo- varaible TMPD. 

Generates code for pseudo-variable. 

Moves one triple to output. 

Places temporary descriptor in stack. 

Places temporary descriptor in output string. 

Changes scanning table. 

Obtains temporary workspace for pseudo-variable, if necessary. 



._j 
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• Table MD. Phase MD Pseudo-Code In-Line Functions 



Subroutines Used 



j JMain Processing! 
I Statement or Operation Type | Routine j 
^ 4 + \ 

1 j Scans text j Phase' KT (SCAN) | None 

{Builds up function stack JLFARIN | None 



^ + 

{Builds up argument stack |LFCOK 

1 {Koves generated code to output |LFMOVE 
(block I 

{Generates in-line code and {LFEOF2 
{library calling sequences { 

L ; : X 



~+- 



^ 

^ 



{ None 
4 

{ MV3 (KT) 



{SNAKE, ROPE 

I 
-J. 



.»J 



Table MDl. 



LFARIl 



( 



LFARIN 



{ LFCOM 

I 

JLFDR 

I 

( LFE0F2 

I 

j LFIGN 

I 
JLFSPEC 

I 
{ROPE 



SNAKE 



Phase MD Routine/Subroutine Directory 

[Continues scan for in-line functions. 
Builds up function stack. 
Builds up argument stack. 

Unpacks dictionary reference of argument when argument triple found. 
I Calls subroutines to generate in-line code. 
Removes triple from text if inside an in-line function. 
Branches if IGNORE triple or not an in-line function. 
[Generates code for STRING function. 
[Generates code for ADDR function. 



—J 
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•Table ME. Phase ME Pseudo-Code In- Line Functions 



Statement or Operation Type 



T T* 

I Main Processing) 
Routine 



Subroutines Used 



I 

Y + + 

{Scans and moves text jPhase KT (SCAN) | SCI, SC2, SC3, SC5,MV3 

j. + ^ 

I Builds up function stack JSFUNC j ZDRAOF 

|. + + _ 

j Constructs result TDB and branches JSFNPM |MS«»,MS5, MSB, RTAA,RTAB, INDEX, 

jto routines for INDEX, DNSPEC, j | ILUNSP, EVENT, ZDRAOF, STATUS 

I COMPLETION, and STATUS | | 

|. + 

I Deletes current triple {SIGN 

I Builds up araument stack JSDCOM 
^ 1 + 

(Inspects arguments and branches to |MSB 
i appropriate subroutine \ 

L X 



— 1 



H 



H 



I None 

I ZDRAOF 
__+ 

I RTB , RTC , RTD, RTE , RTF , RTG , RTH 






Table MEl. Phase ME Routine/ Subroutine Directory 



T T 

I Routine/Subroutine | 

I EVENT I Generates in-line code for COMPLETION function. 



Function | 



FINISH 
ILUNSP 
INDEX 

MSB 
MSG 

RLCTOF 
RTAA 

RTAE 

RTB 



RTC 



RTD 



RT2 



RTF 



Passes control to the next phase. 

Generates in-line code for the UNSPEC function. 

Generates in-line code for optimizable invocations of the function 
INDEX. 

calls subroutines to generate in-line code. 

Resets current flag and continues scan. 

Releases module and passes to next phase. 

Generates in-line code when the result is in a register by name, and 
the second argument is constant . 

Generates in-line code when the result is in a register by name, and 
the second argxament is variable. 

Generates in-line code for the case when the first argxament is an 
aligned bit string, and the second and third arguments are both 
constant . 

Generates in-line code in the case when the first argument is a 
character or aligned bit string, the second argument is constant and 
the third variable. 

Generates in-line code when the first argtanent is a character or 
aligned bit string, the second is constant and the third is not 
present. 

Generates in-line code when the first argument is a packed bit 
string, and the second is constant. 

Generates in-line code when the first argument is a character 
string, and the second and third are both variable. 
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Table MEl- Phase ME Routine/Subroutine Directory (continued) 

Function 



i Routine/Subroutine I 



h 



RTG 

RTH 

SBERR 

SBGMER 

SBGNOR 

SBGTNR 

SCAN 

SCINIT 

SDCOM 

SFNPM 

SFUNC 

SIGN 

STATUS 

STRUT 2 

SUBl 

SUB3 

SUBU 

SUBS 
SUB6 

SUB7L 
SUB7R 
SUB9 
ZDRAOF 
I ZURCOF 



Generates in-line code when the first argument is a character 
string, the second is variable, and the third is not present. 

Generates in-line code when the first argument is a bit string, and 
the second is variable. 

Error routine. 

Gets the next even register and sets the even/odd bit on. 

Gets the next odd register and setc " he even/odd bit on. 

Gets the next available symbolic unassigned register. 

Scans for the next triple of interest. 

Initializes pointers and text blocks. 

Builds up argument stack. 

Generates in-line code. 

Builds up function stack. 

Deletes current triple. 

Generates code for STATUS function. 

Constructs a string dope vector. 

Generates code to place the address of the first argument plus a 
literal offset into a symbolic register. 

Generates a ST and DROP instruction, optionally followed by a MVI 
instruction. 

Constructs a dictionary entry for the constant J J, and generates an 
MVC instruction. 

Generates two STH instructions, followed by a DROP instr^iction. 

Generates an RX instruction to operate on a TDB by a register, 
optionally followed. by an instruction to drop any register used in 
addressing the TDB item. 

Generates SR, SLDL, OR instructions. 
Generates SR, SRDL, OR and DROP instructions- 
Calculates correct values for ILEN, lOFF and Y. 
Converts a dictionary reference to an absolute address. 
Releases scratch core. 
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•Table MG. Phase MG Pseudo-Code In-Line Functions 1 



1 


— T 

{Main Process 


ing{ 




"""■" 


1 Statement or Operation Type 


1 Routine 


{ 


Subroutines Used 




1 


1 




X 






1 

{Scans text 


{PHASE KT 


(SCAN) {None 






1 


^ 




_ J. 






1 Builds up function stack 


{ LFARIN 




t 

{None 






1 


^ 




_ _4. 






r — — — _ — — 
1 Builds up argument stack 


{ LFCOM 




T — — 
( None 






|. 

jMove generated code to output 


____!__ ______^_^__ 




J. _ 






{ LFMOVE 




{ MV3 (KT) 




1 block . 






{ 






L _ - - _ _ - 


— »4. «>. •» 










r 


1 




1 




— 


{Generates in-line code 


{ LFEOF2 




{ ABBFLL, 
{ALLOC 2, 
{CEILS, < 
j CNASTR, 
j CONJGL, 
j FLOORD, 
{ IMAGFD, 
(REALFD, 
j TRUNCB, 
{ UNSPEC, 


ABBFLS, ABSFB, ABSFD, 
CEILB, CEILD, CEILL, 
:MPLXB, CMPLXD, CMPLXL, 
CNVINT, CONJGB, CON JGD , 
CONJGS, ERRFUN, FLOORB, 
FLOORL, FLOORS, IMAGB, 
IMAGL, IMAGS, REALB, 
REALL, REALS, SBGTNR, 
TRUNCD, TRUNCL, TRUNCS, 
UTTEMP 





-^ 



—J 



Table MGl. Phase MG Routine/Subroutine Directory 
j Routine/Subroutine j 



Function 



^ 



I ABBFLL 

i ABBFLS 

I ABSFB 

lABijFD 

I ALLOC 2 

I CEILB (MH) 

I CEILD (MH) 

I CEILL (M3) 

[CEILS (MH) 

I CMPLXB 

I CMPLXD 

i CM PLXL 

[CNASTR 

I CNVINT 

L 



Generates in-line code for ABS function with long floating-point 
argument . 

Generates in-line code for ABS function with short floating-point 
argument . 

Generates in-line code for ABS function with fixed binary argument. 

[Generates in-line code for ABS function with fixed decimal argument. 

Generates in-line code for ALLOCATION function. 

Generates in-line code for the CEIL function with fixed binary 
argument. 

I Generates in-line code for the CEIL function with fixed decimal 
argument . 

Generates in-line code for CEiL function with long floating-point 
I argument . 

Generates in-xine coue for the CEIL function wi,th short 
floating-point argument. 

I Generates in-line code for COMPLEX function with fixed binary 
argument . 

i Generates in-line code for COMPLEX function with fixed decimal 
argument. 

Generates in-line code for COMPLEX function with long floating-point! 
I argument . 

[Constructs assignment triple and associated TMPDS. 

[Converts a decimal integer constant to fixed binary. 
1 J 
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Table MGl. Phase MG Routine/Subroutine Directory (cont'd) 

Function 



r T 

I Routine/Subroutine I 

I- 



^ 



CONJGB I Generates code for the CONJG function with fixed binary arguments. 

C0NJ6D I Generates in-line code for the CONJG function with fixed decimal 

arguments. 

CONJGL I Generates in-line code for the CONJG function with long 

floating-point arguments . 

CONJGS I Generates in-line code for the CONJG function with short 

floating-point arguments. 

ERSFON {Aborts if Phase IM discovers an error in a function. 

FL00R3 (MH) | Generates in-line code for the FLOOR function with fixed binary 

argument . 

FLOORD (MiJ) | Generates in-line code for the FLOOR function with fixed decimal 

argument . 

FLOORL (Ma) I Generates in-line code for the FLOOR function with long 

floating-point argument. 

FLOORS (MH) I Generates in-line code for the FLOOR function with short 

floating-point argument. 

IMAGB I Generates in-line code for IMAG function with fixed binary argument. 

IM.A6FD (Generates in-line code for IMAG function with fixed decimal 

argument . 

IMAGL I Generates in-line code for IMAG function with long floating-point 

argument. 

IMAGS I Generates in-line code for IMAG function with short floating-point 

argument . 

LFARIN I Builds up fxinction stack. 

LFARIl I Continues scan for in-line functions. 

LFCOM I Builds up argument stack. 

LFDR I Unpacks dictionary reference of argument when argument triple found. 

LFEOF2 I Calls subroutines to generate in-line code. 

LFE0F3 I Depending on start of argument list« branches to produce in-line 

code. 

LFIGN I Removes triple from text if inside an in-line function. 

LFMOVE I Moves generated code to output block. 

LFSPEC I Branches if IGNORE triple or not an in-line function. 

REALS {Generates in-line code for REAL function with fixed binary argument. 
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Table MGl. Phase MG Routine/Subroutine Directory (cont'd) 



I Routine/ Subroutine! Function j 

Y + ^ 

REALFD 
I REALL 

I REALS 



Generate in-line code for REAL function with fixed decimal argument. 

Generate in-line code for REAL function with long floating-point 
argument . 

j Generates in-line code for REAL function with short floating-point 
argument . 

Get next available symbolic register. 

Generates in-line code for the function TRUNC with fixed binary 
I argument. 

[Generates in-line code for the TRUNC function with fixed decimal 
argument . 

[Generates in-line code for the TRUNC function with long 
floating-point arguments. 

Generates in-line code for the TRUNC function with short 
floating-point argument. 

[Generates in-line code for the UNSPEC function. 

[Gets a required amount of temporary work space. 
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•Table MI. Phase MI Pseudo-Code In-Line Functions 2 



■T T- 

|Main Processing! 
Routine I 



Statement or Operation Type 



I I Scans text 
^ 

(Builds up function stack 

^ + 

I Builds up argument stack |LFCOM 
^ + 

I (Move generated code to output block |LFMOVE 

^ + 

(Generates in-line code |LFEOF2 



Subroutines Used 



-^ 



(PHASE KT (SCAN) (None 
4 + 

( LFARIN ( None 



None 



(MV3 (KT) 



^ 

^ 

(MAXB, MAXD, MAXL, MAXS, MINE, MIllD, 
(MINL, MINS, MODE, MODD, MODL, MODS, 
( ROUNDS, ROUNDD, ROUNDL, ROUNDS 






Table Mil. Phase MI Routine /Subroutine Directory 

r T 

( Routine/Subroutine ( 

LFARIN 



I 

■H 



LFCOM 
LFEOF2 
LFMOVE 

MAXB/MinB (MJ) 
KAXD/MIND (MJ) 

MAXL/MINL (MJ) 

MAXS/MINS (MJ) 

MODB (MJ) 
MODD (MJ) 

MODL (MJ) 

MODS (MJ) 

ROONDB 
ROUNDD 

ROUNDL 

ROUNDS 



Function 

Builds up function stack. 

Builds up argument stack. 

Calls subroutines to generate in-line code. 

Moves generated code to output block. 

Generate code for MAX/MIN function with fixed binary arguments. 

Generate in-line code for MAX/MiN function with fixed decimal 
arguments . 

Generate in-line code for MAX/MIN function with long floating-point 
arguments . 

Generate in-line code for MAX/MIN function with short floating-point 
arguments . 

Generates in-line code for MOD function with fixed binary arguments. 

Generates in-line code for MOD function with fixed decimal 
arguments. 

Generates in-line code for MOD function with long floating-point 
arguments. 

Generates in-line code for MOD function with short floating-point 
arguments . 

Generate in-line code for ROUND function with fixed binary argument. 

Generates in-line code for ROUND function with fixed decimal 
argument. 

Generate in-line code for ROUND function with long floating-point 
arguments. 



Generate in-line code for ROUND function with short floating-point 
arguments. 
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• Table MK. Phase MK Pseudo-Code In-Line Functions 3 



f— — — 1 — 


— — 





— T 


-T T 


1 






|Main Processing] | 


1 statement or Operation 


Type 


1 Routine | Subroutines Used | 


l._ „ . 






1 


. 4, _ I 


|._^^__ ^_ ^ ^^ ^ 






1 


- t - -i 


1 Scans text 

y 


-— . 


._— — 


1 PHASE KT 


(SCAN) 1 None | 
+ ^ 


1 Builds up function stack 






1 LFARIN 


1 None 1 
._ i «_««. ___ J 


1 






1 


T ~ --— - ____^ 


1 Builds up argument stack 


»^— « 


— __ 


1 LFCOM 


1 None 1 
+ ^ 


{Move generated code to output 


block ILFMOVE 


|MV3 (KT) 1 


1 






4— 


_J. __ _ _i 


1 






T 


T - -1 


1 Generates in-line code 
1 






1 LFE0F2 
1 


|DIM, HBOUND, LBOUND, LENGT, SIGNFB, | 
ISIGNFD, SIGNL, SIGNS, FREBIF | 












_L J 



Table MKl. Phase MK Routine/Subroutine Directory 



I 

-^ 



i Routine/Subroutine j 
DIM 
FREBIF 
HBOUND 
LBOUND 
LENGT 
LFARIN 
LFCOM 
LFEOF2 
LFMOVE 
SIGNFB 
SIGNED 
SIGNL 
SIGNS 



Function 
Generates code for DIM function. 
Generates code for FREE function. 
Generates code for HBOUND function. 
Generates code for LBOUND function. 
Generates code for LENGTH fxinction. 
Builds up fiinction stack. 
Builds up argument stack. 

Calls subroutines to generate in-line code. 
Moves generated code to output block. 

Generates code for SIGN function with fixed binary arguntent. 
Generates code for SIGN function with fixed decimal argument. 
Generates code for SIGN function with short floating point argument. 



Generates code for SIGN function with short floating point argument. 
.X J 
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• Table ML. Phase ML Pseudo-Code Calls and Functions 



Statement or Operation Type 



Main Processing! 
I Routine I 



Subroutines Used 



I Scans text | PHASE KT (SCAN) | None 
|. + 4. 

{Identifies argument of procedure jFPFNAR {None 
I invocation j j 



■H 
•H 

-H 

-^ 
.-J 



^ + 

(Selects generic built-in function |FPBIF 
j. 1 

(Selects PL/I generic entry name |FPG7yi 
L J 



j FPARDl 
4 

JFPARD2, FPARD3, GNSECO 



Table MLl. Phase ML Routine/Subroutine Directory 



r T 

I Routine/Subroutinr | 

FPAOl j Scans for next argument. 

FPARDl 



Function 



FPARD2 

FPARD3 

FPBIF 

FPEPCO 

FFFNAR 

FPGAS 

GNFM2 

GNSECO 






Obtains parameter descriptions relating to built-in function 
arguments. 

Obtains successive parameter descriptions relating to the entry 
description of a PL/I generic procedure. 

Obtains and stacks full parameter description of a PL/I generic 
procedure. 

Selects generic built-in functions. 

Constructs an entry parameter. 

Identifies arguments of procedure invocations. 

Selects PL/I generic entry name. 

Replaces generic reference testing for uniqueness. 

Makes entry in stack of parameter descriptions. 



._J 



Table MM 
r 



Phase MM Pseudo-Code Calls and Functions 



I JMain Processing! 

I Statement or Operation Type j Routine j Subroutines Used 

I Scans text | PHASE KT (SCAN) | None 

I Scans list, counts arguments and JCFCALL JCFARID, CFFBIR, CFFDVS, CFMVTR, 

I identifies storage class j JCFMVCD 

iRescans list and generates calling jCFCFSS |CFARHA, CFCALP, CFBIFH, CFMLBR, 

I sequence for library routine | jCFMVCD, CFNEST, OTTMPW, CFAIFI, 

I I {BASED 
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Table MMl. Phase MM Routine/Subroutine Directory 



r T- 

I Routine/Siibroutine I 



Function 



k- 



-^ 



BASED (NO) 
BEGIN 

CFALFl (MO) 
CFARHA 
CFARID (MO) 
CFBIFH 

CFBOU 

CFB021 

CFB036 

CFCALL 

CFCALP 

CFC03C 
CFCFSS 
CFEXIT 
CFFBIR 

CFFDVS (MN) 

CFL06 
CFL0U3 
CFMLBR (MN) 

CFMVCD 
CFMVTR 
CFNEST 
CFY007 
UTTMPW (MN) 



Generates relocation code for based variables. 

Initializes phase. 

Places address of invoked routine at the head of its argument list. 

Generates calling sequence. 

Counts arguments and sets STATIcyAUTO flag. 

Further built-in function identification with relevant parameter 
setting. 

Restores previous environment. 

Tests nature of function found. 

Restores pointer to start of invocation. 

Scans lists, counts arguments, identifies storage class. 

Completes calling sequence and, if necessary, generates code to 
initialize dope vector. 

Tests for nested function. 

Rescans list and generates calling sequence for Library routine. 

•iTansfer vector after first scan. 

Identifies built-in functions, sets parameters for calling sequence 
generation . 

Reserves output text area for generation of code to initialize dope 
vector when a function returns a string. 

Generates code to set up result dope vector. 

Generates code to place result address in argument list. 

Generates code to move a skeleton parameter list which is greater 
than 256 bytes. 

Generates pseudo-code into the output text block. 

Generates triple into the output text block. 

Handles a nested situation. 

Sets parameters to produce special calling sequences. 

Allocates one word of workspace. 
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•Table MP. Phase MP Pseudo-Code BUY Reorder 



I Sta-tenient or Operation Type 



Subroutines Used 



"T -T T 

I Main Process ing| 
I Routine j 
4 + ^ 

I I Mam scan routine for phase JMPl |SCAN(KT), ZDRFAB, ZTXTRF, ZUERR j 



•Table MPl. Phase MP Routine/Subroutine Directory 
j Routine/Subroutine I Function 



UT05 
MPl 

MP 3 
MP4 
MPllA 
MPS 

MP23 

MP26 

MP27 

MP28 

MP29 

MP30 

MP 31 

MP 86 

MP87 

MPS 

SCAN(KT) 

ZDRFAB 

ZTXTRF 

ZUERR 



^ 



Adds SELL dictionary reference to SELL list if not already there. 

Main controlling routine for rearranging BUY and SELL statements 
involved in obtaining VDAs for adjustable length string temporaries. 

Processes EOP triple. Releases control of phase. 

Processes BUYS triple. , 

Processes BUYX triple. 

Continues text scan if not string or arithmetic data, or not 
structure . 

Continues scan of text. 

Processes BUYS triple. 

Processes BUY ASSIGN triple. 

Processes BUY triple. 

Processes SUBSCRIPT triple. 

Processes ASSIGN triple. 

Accesses top stack entry. 

Tests triple for BUYX, and processes . 

Scans for BUYS, BUY, and SELL triples. 

Processes SELL triple. 

General scan routine. 

Converts dictionary reference to absolute address. 

Changes absolute address to a text reference. 

Makes error message entries. 
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• Table MS. Phase MS Pseudo-Code Subscripts 

) I Main Processing! 

I Statement or Operation Type | Routine j Subroutines Used 

I 4. ^ 

{Scans text jSBSCAN (None 

|. + + 

jcalculates element offset JSBSTIH JSBASS, SBCOBI, SBGNOR, SBMVCD, 
I I JSBNEST, SBSUBP, SBSUDV, SBXOP, 
ij I JUTTEMP, SBOPT, SBFSUB, UTTMPH 
^ + + 

(Checks subscript range |SBSBRN |None 

L J. X ., 
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•Table MSI. Phase MS Routine/Subroutine Directory 



-1 



I Rovtine/Subroutine I Function | 



SBASS 
SBCOBI (Ml) 
SBCOMR (MT) 
SBERR (MT) 
SBFSUB 

SBGNOR (MT) 
SBMVCD (MT) 
SBNEST (MT) 
SBOFFS <MT) 
SBOPT 

SBSBRN (MT) 
SB SCAN 
SBSTIH 
SBSUBI 
SBSUBP (MT) 
SBSUDV 

SBS05 

SBS06 

SBS002 

SBS029 

SBS059 

SBTRID 

SCAN(KT) 

UTTEMP (MT) 

UTTMPH(MT) 



Updates scan pointer over an assignment. 

Converts subscript to binary integer. ^ 

Handles COMR triple 

Puts error message into dictionary. 

Tests the FIRST flag setting if it is not already set, and exits 
unless FIRST was unset on entry 

Allocates an odd symbolic register. 

Generates pseudo-code and moves it into output text block. 

Handles nested subscript situation. 

Handles OFS triple 

Calculates element offset in optimizable cases. 

Checks subscript range. 

Branches to KT for scan. 

Generates code to calculate element offset. 

Saves array name. 

Handles end of subscript list. 

Generates code to set up the dope vector of an array of adjustable 
strings. 

Generates code to multiply subscript by multiplier. 

Compiles code to convert to fixed binary. 

Checks for occurrence of subscript. 

Generates code to multiply subscript by H or 8. 

Generates multiply halfword code modifications 

Scans for comma, subscript prime, or subscript triple. 

Controlling scan of text. 

Allocates workspace. 

Gets two bytes of storage on a halfword boundary 
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•Table NA. Phase NA Pseudo-Code Branches. ON, Returns 

r T -T 

Main Processing 
Statement or Operation Type 



Routine 



Subroutines Used 



-^ 



Initializes text block 



NAINIT 



SCINIT (KT) 

SCI, SC2, SC3 (all in KT) 



Scans text for next triple of 
interest to user 



NASCl, NASC2, 
NASC3 



Processes STOP statements 



STOP 



Processes EXIT statements 



— + 



EXIT 



NAUTl 
NAUTl 



Processes IF triples 



IF 



NAUTD, NAUT16, NAUT21, ZSTUTl 
NAUTD, NAUT6, NAUTl 6, SC5(KT) 
NAUTl 



■H 

■H 

■H 
■H 



Processes ON triples 



ON 



Produces Library call at end of 
each PROCEDURE or BEGIN block in 
source text 



PROCP, BEGINP 



Processes RETURN triples 



RETURN 



NAUTl 



Processes function RET-JRM 
statements for one data type 



NA3002 



NAUTB, NAUTCA, NAUTl, NAUTl 2 



■H 



Processes function RETURN state- 
ments for more than one data type 



NA3013 



NAUTA, NAUTB, NAUTCA, NAUTD, NAUTF, 
NAUTl, NAUT7, NAUT8, NAUT9, NAUTl 1 , 
NAUTl 2 



-H 



Processes GOTO triples 



GOTO 



NAUTD 



Processes GOLN triples 



GOLN 



NAUTJ 



~+ 



Processes GOOB tri:»les 



GOOB 



NAUT5, NAUTD, NAUTl 6, SC5 (KT) 



Processes SIGNAL triples 



SIGNAL 



NAUTD, HAUT6, NAUTl 6, NAUT8, 
NAUTl 0, NAUT21 



I 
J 



I Processes REVERT triples 
L 



I REVERT 



I NAUTD, SC5 (KT) 
-X 
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r T- 

I Routine/Subroutine | 



•Table NAl. Phase NA Routine/Subroutine Directory 

Function 
Processes EXIT statements. 
Processes GOOB triples. 
Processes GOTO triples. 

Processes GOTO label number (GOLN) triples. 
Processes IF triples. 
Initializes text blocks. 
Scan text for next triple of interest to user. 



EXIT 

GOOB 

GOTO 

GOLN 

IF 

NAINIT 

IIASC1/I^ASC2/NASC3 

NAUTA 



NAUTB 
NAUTCA 
NAOTD 
iMAUTF 



Generates pseudo-code to test switch value at RETURN (function 
value) statement for more than one data type. 

Generates assignment triple to RETURN function result. 

Generates assignment triple set up by NAUTB. 

Generates indicated pseudo-code. 

Generates pseudo-code to branch to EQO value. 



—J 
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Table NAl, Phase NA Routine/Subroutine Directory (cont'd) 

Function 



r T- 

I Routine/Subroutine | 



h 



NAUTl 
NAUT2 

NAUT5 
WAUTb 
NAUT7 

NAUT8 

NAUT9 

NAUTll 

NAUT12 

I'iAUTlb 

NAUT17 
NAaTlS 
NAUT21 

NAllOO 

I^AllUO 

NA3002 

NA3005 

NA3013 

NAS003 

NA8010 

NA8012 

ON 

PROCP/BEGINP 

RETURN 

REVERT 

SIGNAL 

STOP 

ZSTUTl 



Generates call to indicated library routine. 

Moves indicated pseudo-code, deletes current triple, continues text 
scan. 

Makes dictionary entry for indicated library routine. 

Updates current symbolic register value. 

On entry, register BR points at an entry label dictionary entry. On 
normal exit from the routine, register BR points at the next label 
dictionary entry. Abnormal exit indicates that there are no further 
labels on the current PROCEDURE or ENTRY statement. 

Bump EQU* value for branch pseudo-code item. 

Bump return switch value to be used for current entry label. 

For current entry label, generate appropriate EQU* pseudo-code item. 

Converts current label dictionary reference to an absolute address. 

converts dictionary reference of triple second operand to absolute 
address, loads address into register BR. 

Makes dictionary entry for maximum negative number. 

N!akes indicated dictionary entry. 

Generates pseudo-code to compare source bit string, making library 
comparison routine dictionary entry, if necessary. 

Tests for SNAP. 

Using NAUTD, generates code for ON-units. 

Processes function RETURN statements for one data type. 

Outputs assignment triple. 

Processes function RETURN statements for more than one data type. 

Generates pseudo-code for branch and mask, labels. 

Converts ID to bit- string. 

Outputs pseudo-code. Compares bit-string to zero. 

Processes ON triples. 

Produce Library call at end of each procedure in source text. 

Processes RETURN triples. 

Processes REVERT triples. 

Processes SIGNAL triples. 

Processes STOP triples. 

String utility in Phase LV to provide a dope vector for a specified 
string. 



_j 
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• Table NG. Phase NG Pseudo-Code Operating System Services 



j JMain Processing! 

I Statement or Operation Type j Routine j Subroutines Used 

{Processes ALLOCATE statements for |ALOCAT |CALIB, FALOTl 

(based variables j | 

y + + 

I Processes DELAY statements jDLAY JCALIB, INTEG, SCAN (KT) 



-^ 



I Processes DISPLAY statements 



JDSPY 



jCALIB, CHAR, ENDLST, 
I I I SCAN (KT), STORAD 

I Processes FREE statements for based) FREE jCALIB, FALUTl 

(variables j | 

Y + + 

(Processes WAIT statements (WAIT (CALIB,INTEG,SCAN(KT) ,OPLAST 

L i X 



■H 



Table 1*31. Phase NG Routine/Subroutine Directory 

r T 

( Routine/Subroutine ( Function 

^ — + 

CALIB (Generates part of calling sequence and makes dictionary entry for 

Library routine. 



1 
I 

— ^ 



CHAR (NH) 

dl;vy 

DSPY 

DSPY3 

DSPYU 

DSPYIO 

ENDL3T 

FALUTl 

INTEG (NH) 
NGO 

OPLAST 
STORAD 



Converts a given argument to character string. 

Processes DELAY statements. 

Processes DISPLAY statements. 

Tests that operand is character variable. 

Makes dictionary entry for parameter list. 

Scans for REPLY option. 

Completes parameter list and makes dictionary entry for it. 

Examines argument of ALLOCATE or FREE statements to see if variable 
is based and forms RDV in workspace to prepare for call to the 
library. 

Converts a given argument to an integer. 

Scans to next statement. 

Builds up parameter list in workspace. 

Stores an address in a parameter list. 






._J 
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•Table NJ. Phase NJ Pseudo-Code RECORD I/O 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Initialize Phase NJ by calling in ISTRTNJ 

block NK and initializing SCAN 

utility 

Initializes switches and flags to INUSTAT 
indicate start of new statement. 
Determines RECORD-oriented I/O verb| 
and goes to appropriate routine 



ZLOADW (AA), SCINIT (KT) , SCI (KT) 



TXTEST 



^ 



SCNOPT 



FILOPT 



Gets next triple of interest, 
converts to internal code ajnd 
selects the appropriate routine to 
process it 

Processes FILE option of RECORD- 
oriented I/O by placing dictionary 
reference of FILE Declare DCB in 
the appropriate slot of the 
parameter list. The parameter list] 
is in STATIC if file constant, 
WORKSPACE if file parameter 



SC3 (KT), TXTEST, SCANOl, CMPERR 
TXTERR, ZABORT (AA) 



-H 



TXTARG, DYNMPL, LAONLY, STDROP, 
1 CMPERR, TXTERR, WRKSPC, MVPSCD, 
ZTXTRF (KT), SYMREG, MV3 (KT) 



-H 



Establishes the record dope vector IINTFRM 
(RDV) for the triple operemd and 
places the address in the second 
slot of the parameter list unless 
the operand of the INTO triple is 
A varying string, in which case it 
places the address of the string 
dope vector of the operand in the 
second slot in the parameter list. 



TXTARG, CMPERR, DYNMPL, LAONLY, 
STDROP, LA0SM2, CRDV, TXTERR, 
ZABORT (AA), WRKSPC, MVPSCD, TXTRF, 
SYMREG, ZDRFAB (AA) , CALLIB, 
ZDICRF (AA), REFRDV, SCALAR, 
PNTRDR, BSDRDV 



298 



« Table NJ. Phase NJ Pseudo-Code RECORD I/O (cont'd) 



Statement or Operation Type 






Processes the operand of the 
LOCATE triple by establishing the 
RDV for the triple operand and 
placing this address in the second 
slot of the parameter list. It 
establishes the pointer qualifier 
of the based variable and saves 
this, either to be used, or to be 
overwritten by the operand of a SET 
triple. It establishes a compiler 
label and puts this in the third 
slot of the pareuneter list in order 
to tell the library where to 
return, so that code assigning the 
pointer value returned in the RDV 
to the saved pointer operand is 
avoided. It then initializes the 
based variables just allocated 



Processes KEYTO option of RECORD- 
oriented I/O by verifying that its 
argument is a character string, 
then placing it in the appropriate 
parameter list slot, which may be 
in STATIC or WORKSPACE 






Main Process 
Routine 



ing 



LOCOPT 



KYTOPT 



TXTARG, SCALAR, DYNMPL, LAONLY, 
STDROP, NX1MPD, ZSTUT2 (STROT2 in 
LV), LA0SM2, LAOSMl, TXTERR, 
ZDRFAB (AA), SC5 (KT) , WRKSPC, 
MVPSCD, MV3 (KT), SYMREG 



Subroutines Used 

TXTARG, ZDICRF, PNTRDR, SCALAR, 
LOCRDV, CMPERR 



■H 



KEYOPT 



TXTARG, SCALAR, DYNMPL, LAONLY, 
STDROP, NXTMPD, ZSTUTl (STRUTl in 
LV), LAOSMl, LA0SM2, TMPSEL, TXTERR 



IGNOPT 



Processes the KEY or KEYFROM option 
of RECORD-oriented I/O by 
converting the argument to a 
character string if it is not 
already a character string and 
placing the result in the 
appropriate parameter list slot; 
this is either in STATIC or 
WORKSPACE 

Processes the IGNORE option of 
RECORD-oriented I/O by first 
checking that the argument is a 
scalar and then converting to a 
binary fixed integer if it is not 
already a binary fixed integer. 
The address of the argument is 
placed in the appropriate parauneter 
list slot in STATIC or WORKSPACE 

Processes the event option of 
RECORD-oriented I/O by checking 
that the argument is a scalar EVENT 
variable and placing its address in 
the appropriate parameter list 
slot. The parameter list is either 
in STATIC or WORKSPACE, depending 
upon the storage class of the 
argument . 



TXTARG, SCALAR, CINTEG, DYNMPL, 

LAONLY, STDROP, MVPSCD, WRKSPC, 

MVTRPL, LAOSMl, ZDRFAB (AA) , 

CMPERR, TMPREF, NXTMPD, MV3A (KT) , 

WRKSPC, SYMREG, MV3 (KT) 



EVTOPT 



TXTARG, DYNMPL, LAONLY, STDROP, 
NXTMPD, TMPREF, TXTERR, WRKSPC, 
MVPSCD, ZTXTRF (KT) , SYMREF, 
MV3 (KT) 



1 
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• Table liJ. Phase NJ Pseudo-Code RECORD I/O (cont'd) 



Statement or Operation Type 



Processes the pointer operand of a 
SET triple. If part of a READ 
statement, the address of the 
pointer variable is placed in the 
second slot of the parameter list. 
If part of a LOCATE statement, the 
pointer operand over%n:ites the 
pointer taken from the based 
variable in the LOCATE statement, 
to be used in the pointer 
assignment code produced by ENDIO. 

At end of I/O statement, places 
REQOEST_CODE (i.e. lODEF) in sta- 
tic consteuit chain, puts STATIC 
parameter list in STATIC chain. 
Creates external Library calling 
sequence for RECORD-oriented I/O 
statement as follows: 

EPRM 

LA 1, PARM.LIST 

L 15, RECORD. 10. LIBRARY. ROUT 

BALR 14,15 

EPRM 

If there is a WORKSPACE parameter 
list, it i:pdates the MVC or 
parameter list from STATIC to 
WORKSPACE. It checks whether a 
LOCATE statement is being 
processed, for which it generates 
pseudo-code to assign the pointer 
value from the RDV to the pointer 
variable and to initialize the 
REFER variable of a self-defining 
structure. It generates an 
allocate triple to indicate 
possible initialization of TASK 
and/or EVENT variables, and a 
compiler label triple to mark the 
end of initialization code for the 
library. It generates any SELL 
triples accumulated throughout the 
statement on SELL chain. It 
cancels the RECORD-oriented I/O 
option triple codes from the SCAN 
TRT interest table. It gets the 
next triple of interest and goes to 
NUSTAT to process as a new 
statement. 



Main Processing 
Routine 



SETOPT 



ENDIO 



Subroutines Used 



TXTARG, SCALAR, NXTMPD, DYNMPL, 
TMPREF, STDROP, TXTERR 



-I 



ZDICRF (AA), LAONLY, LAOSMl, 
CALLIB, NVPSCD, ZTXTAB (AA) , SELL, 
SC3 (KT) SYMREG, TMPREF, 
ZDRFAB, MVTRPL, RCBCMN 
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•Table NJ. Phase NJ Pseudo-Code RECORD I/O (cont'd) 



i JMain Processing 

I Statement or Operation Type ( Routine 

I Indicates presence of NOLOCK INLKOPT 

j option. j 

(Delete the SELL triple encountered JSELL routine 

I during scan of RECORD-oriented jat SVSELL or 

I I/O statement but puts dictionary (THPSELL entry 
{reference in the SELL chain so that (point 

I SELL triple can be regenerated at | 
I end of I/O statement 

I At end of program, releases ovm |PRGEND 

(modules and turns control over to ( 
(next requested phase. 




ZDRFAB (AA), MV3A (KT) 



RLSCTL 
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Table NJl. Phase NJ Routine/ Subroutine Directory 



i Routine/Subroutine j 



Function 



^ 



BSDRDV(NK) 

CALLIB 

CINTEG 
CMPERR 
CRDV (NK) 



DEFER 

DELETE 
DY!«MPL (NK) 



ENDIC 

EVTOPT 

FILOPT 

IGNOPT 

INTFRM 

KEYOPT 

LAONLY (NK) 

LOCRDV (NK) 

KYTOPT 
LAOSMl (NK) 

LA0SM2 (NK) 
MVPSCD (NK) 
MVTRPL (NK) 



NLKOPT 



Entry point to CRDV routine which marks it as processing a based 
variable in an INTO or FROM option. 

Creates pseudo-code to call library routine; indicates call in 
dictionary if not previously noted. 

Checks whether argument is a binary fixed integer. 

Indicates compiler error and ABORT, error code in HOLD register. 

Constructs a record dope vector (RDV) entry in WORKSPACE. If the 
dope vector descriptor bit is on, then the routine generates a 
library call to generate the RDV. If the variable has static 
extents and is not a string, the RDV is constructed from information 
in the RDV dictionary entry. If the variable is a string, then the 
RDV is constructed from its string dope vector. 

Indicates compiler error in the case of a deferred feature not 
detected by earlier phase. 

Establishes DELETE code as REQUEST_CODE. 

Establishes a parameter list in workspace if one is not already 
established. Calculates workspace offset to particular slot 
requested. Establishes a symbolic working register. Establishes 
skeleton pseudo-code for LA, ST, and DROP of register into workspace 
offset. 

Handles operations at end of I/O statement. 

Processes EVENT option. (Not implemented in second version.) 

Processes .FILE option. 

Processes IGNORE option. 

Processes INTO/FROM option. 

Processes KEY or KEYFROM option. 

Outputs pseudo-code for LA into symbolic work register of a 
dictionary reference without any offset modifiers. 

Entry point to CRDV routine which marks it as processing a based 
variable of a LOCATE statement. 

Processes KEYTO option. 

Establishes pseudo-code for a LA instruction into a symbolic work 
register with the address of WORKSPACE and a literal offset which is 
pointed to the argxament register. 

Generates LA pseudo-code in which both base and offset are in 
registers. 

Puts pseudo-code assembled in pseudo-code area into output text 
block. 

Invokes SCAN utility to move generated triples into output text 
block. 



Indicates presence of NOLOCK option. 
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Table MJl. Phase NJ Routine/Subroutine Directory (cont'd) 



I Routine/Subroutine | 
J. 

I NOSTAT 
INXTMPD 



T 



Function 



jPNTRDR 

jPRGEND 
IRCBCHN 
iREAD 

IREFRDV (HK) 

IREWRIT 
I SCALAR 

SCAiNOl 

I SCNOPT 
I SCRHOP 

SELL (NK) 

ISTDROP (MK) 

STHTNJ 
ISYMREG (NK) 
ITMPREF (NK) 

ITMPSEL (NK) 

ITXTARG 

I TXTERR 
I TXTEST 

I UNLOCK 

I WRITE 
IWRKSPC (NK) 



Handles operations at start of new statement. 

Invokes SCAN utility to get next triple, which is checked to see if 
it is a TMPD; if not, it is an error. 

{Establishes the seven- byte pointer information slot in a BASED 
I variable dictionary entry. 

I Releases control to next phase at end of program. 

I Commons the dictionary entries of request code blocks. 

I Establishes READ code as REQUEST_COD£ ; establishes parameter list 
I size. 

Establishes the address of the RDV dictionary entry in the ARG 
I register when given the data variable dictionary address in INDXl. 

I Establishes REWRITE code as REQUEST_CODE . 

I Confirms that dictionary code byte refers to scalar item; ascertains 
{whether item is a constant. 

I Indicates compiler error in the case of a deferred feature not 
{detected during Read-In. 

JGets next triple of interest^ branches to appropriate routine. 

Searches options, inserts RECORD- oriented I/O option entries into 
SCAN TRT interest table. 

Generates SELL triples for all dictionary references in the SELL 
chain. 

I outputs pseudo-code to ST contents of symbolic work register into 
I parameter list slot in workspace set up by DYNMPL, and the drop of 
I the symbolic register. 

Initializes phase. 

{Establishes symbolic work register. 

Generates the appropriate LA pseudo-code to load the address of the 
[temporary described by TMPD. 

I Adds temporary entry to SELL chain for generation of SELL triple 
I upon ccHnpletion. 

I Processes second argument of triple. If dictionary reference, 
establishes absolute address in INDXl. Returns to LR if zero, i.e., 

I TEMP, LR4-4 if dictionary reference. If null, indicates compiler 
error. 

I Writes error message. 

[Converts function code of triple interest TRT table to internal key, 
and invokes PRGEND if end of program is indicated. 

I Establishes UNLOCK code as REQUEST_CODE. (Not implemented in second 
[version.) 

I Establishes WRITE code as REQUEST_CODE. 

[Establishes the requested workspace area, starting on full%<ord 
[ boundary . 



—J 
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Table NM. Phase NM Pseudo-Code Executable I/O 

r r r 

I Main Processing | 
Statement or Operation Type | Routine | Subroutines Used 

Processes GET and PUT statements |GET | INSERT, STORAD, INSTFL, GENPC, 

I JGENTR, MVTRSP, ENDLST, CALIB, 

I I CHAR, INTEG, UTTMPW, SRCERR, 

li I I SCAN (KT), STRUTl (LV) , STRUT2 (LV) 

Processes OPEN and CLOSE statements! OPEN {INSERT, STORAD, INSTFL, GENPC 

I JGENTR, MVTRSP, ENDLST, CALIB, 

I JCHAR, INTEG, UTTMPW, SRCERR, 

I I SCAN (KT), STRUTl (LV) , STRUT2 (LV) 



Table NMl. Phase NM Routine/Subroutine Directory 



I Routine/Subroutine \ 
CALIB (NN) 



CHAR (NN) 
ENDLST (NN) 
GENPC (NN) 
GENTR (NN) 
GET 
GETOO 
GET20 
GET 8 5 

INSERT (NN) 
INSTFL (NN) 
INTEG (NN) 
MVTRSP (NN) 
NMRl 
OPEN 
OPENOO 
SRCERR (NN) 
STORAD (NN) 
UTTMPW (NN) 



Function I 

Generates part of calling sequence and makes dictionary entry for 
Library routine. 



Converts a given argument to character string. 
Completes parameter list and makes dictionaiT^ entry for it. 
Moves pseudo-code to output. 
Moves generated triples to output. 
Processes GET emd PUT statements. 
Initializes switches for GET/PUT. 
PAGE option. 

Processes end of I/O stat«nent. 
Inserts dictionary reference in parameter list. 
Inserts file reference in parameter list. 
Converts a given argument to integer. 
Moves data and format list triples to output- 
Begins scan for triples of interest. 
Processes OPEN and CLOSE statements. 
Initializes switches for OPEN/CLOSE. 
Makes error dictionary entry - 

Generates pseudo-code to store symbolic register in pareuneter list. 
Obtains temporary workspace 
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•Table NT. Phase WT Pseudo-Code Data and Format 



Statement or Operation Type 



Main Processing 
Routine 






NTOOOO 



None 



Initializes phase, obtains scratch 
storage 

NT0003 INTOOII, NTOOIU, NT0017, NT0021, 

NT0023, NT002U, SC2 (KT) 

None 



Scans text 



Identifies type of data list item INT0021 
and enters the type code in a list 



Associates format and data list 
items and marks INCLUDE matrix 

Identifies type of format list item 
and enters the type code in a list 

Sets bits in INCLUDE matrix to 
represent STREAM I/O conversion 
requirements at execution time 



NTUT20 



None 



Makes dictionary entry for Library 
Routine 



NTOOll 



Collects remote format items and 
saves until end of block 

Associates remote format items withiNT0014 INTUTIO 
data list items 

Makes entries for Library routines INT0017 INTUT20 

required for EDIT-directed I/O and 

copies skeletons for phase NU into 

scratch storage, then releases 

phase 



NT0023 
NT002U 
NTUTIO 



Subroutines Used 



■H 
■H 
-H 
-H 



None 



NTUTIO 



\ 

^ 



None 



None 



■H 






._j 



Table NTl. Phase NT Routine/Subroutine Directory 
I Routine/Siibroutine | Function 

NTOOOO 



NTOOOl 
NT0003 
NTOOll 
NT0014 
NT0017 
NT0021 
NT0023 
NT0024 
NT1700 
NTUTIO 
NTUT20 



Initializes phase, obtains scratch storage. 

Initializes phase address slots. 

Scans text. 

Collects remote format items. 

Associates remote format items with data list items. 

Makes entries for Library routines for EDIT-directed I/O. 

Identifies types of data list items. 

Associates format and data list items. 

Identifies types of format list items. 

No EDIT-directed I/O, therefore no scan pass. 

Sets bits in INCLUDE matrix. 

Makes dictionary entry for Libraury routine 
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•Table NO. Phase NU Pseudo- Code Data and Format Lists 



JMain Processing! 
Routine 



NU0022 



Subroutines Used 
INSERT,UT24,UT11,UT23 



I Statement or Operation Type 

^ 

I Generate Library calling sequences 
I for data items in DATA-directed I/O 
I statements 

{Generate Library calling sequences |NU0023 | INSERT,UT11,UT25,UT14,UT23,UT09 
I for data items in LIST-directed I/O 
j statements 

INU0024 






^ 



I Generate code for data items in 
jEDIT-directed I/O statements 
y 



UT09,1U 



^ 






I Scan text 

{Generate Library calling sequences 

I for format list items 

[ 



SCl(KT), SC2(KT), SC3(KT) 
I UTl 5 , UTl 8 , BCDCNV, UTl 



INU0002 

1NU0029,NU0030 

1NU0033,NU0037, 

INU0050 



Table NOl. Phase NU Routine/ Subroutine Directory 

I Routine/Subroutine | Function | 

jBCDCNV (NV) {convert decimal constant to binary. I 

Add an entry to an argument list. 

Scan text. 

Generate Library calling sequence for DATA-directed data list item. 

Generate Library calling sequence for LIST-directed data list item. 

Generate cards for EDIT-directed data list item. 

Generate Library call for A or B format item. 

Generate Library call for E or F format item. 

Generate code for R format item. 

Generate Library call for P format item. 

Generate Library call for X, PAGE, SKIP, LINE, C, or COLUMN format 
item. 

Make dictionary entry for constant in EDIT or LIST list. 

Convert a constant entry to one of specified type. 

Generate Library calling sequence passing argument list. 

Generate code for inteinnediate result items in EDIT and LIST data 
lists. 

Make dictionary entry for FED or DED. 

Generate an assignment triple. 

Generate Library call code. 

Construct symbol table dictionary entry. 



1 

1 INSERT 
1 




IND0002 
1 


(NV) 


1 

INU0022 

1 




INU0023 
1 




1 

INU0024 
1 


(NV) 


INU0029 
1 


(NV) 


I 

JNU0030 


(NV) 


1 

INU0033 

1 


(NV) 


INU0037 
1 


(NV) 


1 
INU0050 

1 


(NV) 


1 

1 UT09 

1 




1 

JUTIO 
1 




jUTll 
1 




1 
lUTlU 

1 




1 

JUT15 

I 




1 

|UT18 (NV) 

1 


IUT23 
1 




1 

iuT2t| 

1 




1 
JUT25 





Set bit in the INCLUDE matrix. 






306 



• Table OB. Phase OB Pseudo>Code Con^iler Functions 



Scans text for BUY, BUY ASSIGN 
statements and ccxiqpiler function 
and compiler pseudo-variables (see 
Appendix D.8), and transfers to 
appropriate routine 

Replaces MSF compiler functions 
(Af^endix D.8) by pseudo-code move 
character instructions, adjusting 
the tcorget field to controlled or 
temporary type 2 workspace where 
necessary 



Statement or Operation Type 



Main Processing 
Routine 

STl 



SCAN (KT) 






Replaces ADV compiler functions 
(Appendix D.8) by pseudo-code 
instructions to load specified 
element of a dope vector into a 
register 






Replaces SDV compiler functions 
(Appendix D.8) by instructions to 
load the maximum length from a 
string dope vector into a register 

Replaces compiler pseudo- variable 
triples and ccmipiler assignment 
triples by pseudo- code instructions 
which store the value assigned in 
specified part of dope vector 

Remove BUY, BUY ASSIGN, and SELL 
Statements for scalar 
non-adjustable temporary variables 
from the text, and allocate storage 
in the pseudo- code workspace for 
the temporari^ 

Generates code to drop a symbolic 
register, or mark a literal 
register not wanted 






MTFR 



ADVR 






SDVR 



ST4 



ST8, STIO, ST7 



DROPRG 



Subroutines Used 



\ 



BUFIZE, FRSTOP, SC3 (KT) 



SC3 (KT) 



1 



SC3 (KT) 



BUFIZE, STACK, MV3A (KT) , 
DROPRG, USTACK, SC5 (KT) 



FRSTOP, 






SC2, SC3 (both in KT) 



None 
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• Table OB. Phase OB Pseudo-Code Coirpiler Functions (continued) 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



Determines whether the target 
dictionary reference of MTF 
function, or ADV or SDV 
pseudo- variable is controlled or a 
temporary type 2. If it is, the 
dictionary reference is replaced by 
the dictionary reference of the 
controlled or temporary type 2 
workspace, with the appropriate 
offset, if the target is a 
structure base element 
Stack and unstack the information 
specifying the target field of 
compiler pseudo-variable assignment 



FRSTOP 



SETDVF 



STACK, USTACK 



None 



-H 



Calculates the offset of the dope 
vector of a structure base element 
from the start of the structure 
dope vector 



SETDVF 



None 



+ 



Place triples from the source text 
in an internal buffer. 



BUFIZE 



SC5 (KT) 



■H 
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Table OBI. Phase OB Routine/Subroutine Directory 



i Routine/Subroutine j 
ADVR 

AT7 

ATS 

BUFIZE 

BY5 

BY19 

DROPPG 

FRSTOP 

MTFR 

SDVR 

SETDVF 

STACK/DSTACK 

STl 



F\inction 



Sin, ST6 



ST7,ST8,ST10 



Replaces ADV compiler functions by pseudo-code instructions to load 
the specified element of a dope vector into a register. 

Generates pseudo-code. 

Replaces operand by workspace reference. 

Places triples from the source text in an internal buffer. 

Tests length of string. 

Processes string temporary (dope vector only) . 

Generates code to drop a symbolic register or mark a literal 
register not wanted. 

Replaces the target field of MTF function or compiler 
pseudo-variable by controlled workspace where necessary. 

Replaces MTF compiler functions by pseudo-code move character 
instructions . 

Replaces SDV compiler functions by pseudo-code instructions to load 
the maximum string length into an object register. 

Calculates the offset from the start of a structure dope vector to 
the dope vector of a particular base element. 

Stack and unstack information specifying target field of compiler 
pseudo- variable assignment. 

Scans text for BUY and BUY ASSIGN statements, compiler functions, 
and compiler pseudo-variables. 

Replaces compiler pseudo- variables and compiler assignment triples 
by pseudo code instructions to set the assigned expression, 
converted if necessary in the specified part of a dope vector. 

Remove BUY, BUY ASSIGN, and SELL statements for fixed scalar s from 
the text, and allocate space for the temporary variables in the 
pseudo-code workspace. 
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Table OD. Phase OD Pseudc3-Code Assiqnment 

r T — ■ T 

I IMain Processing] 

j Statement or Operation Type \ Routine | Subroutines Used 

|. + + 

I Get block of scratch core |SCRCOR |None 

^ + + 

jMove routines, constants and tables jMOVTAB | None 
I to block I I 

L X L 



Table ODl. Phase OD Routine/Subroutine Directory 

r T • 1 

I Routine/Subroutine I Function | 

I + ^ 

JSCRCOR [Obtains block of scratch core. | 

I I I 

jMOVTAB I Moves routines, tables and constants into scratch core. | 

L X i J 
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Table OE. Phase OF. Pseudo-Code Assignment 



I 

I Statement or Operation Type 

i Generates pseudo-code for 
I assignment triples 



Subroutines Used 



JMain Processing! 
I Routine | 
4 + 

jASSOO jASCOO, ASCDOO, ASDROP 



|. + + 

I Generates Library calling sequences} ALLOC, FREE, )CALIB 
I for ALLOCATE, FREE, 3DY, and SELL JBUY, or SELL j 
I triples I I 

L X L 



-^ 



Table OEl. Phase OE Routine/Subroutine Directory 

Function 
Processes ALLOCATE triples. 
Inserts target types for constants. 
Controls assignment of real and complex data. 
Drops symbolic registers. 

Generates code for fixed binary assignments. 
Generates code for fixed decimal assignments. 
Generates code for floating-point assignments. 
Generates code for label assignments . 
Generates code for pointer/offset assignment. 
Generates library calling sequence for area assignment. 
Processes assignment triples. 
Tests for special assignment triple. 

Generates code for string and numeric field' assignments. 
Processes BOY triples. 
Generates Library calling sequences. 
Enables for SIZE prefix option. 
Processes FPEE triples. 
Generates convert macro instruction. 
Generates RX instruction. 
Generates SS instruction. 
Obtains operand description. 
Removes index from operand. 
Obtains next symbolic register. 
Processes SELL triples. 



r T- 

I Routine/Subroutine | 

ALLOC (OF) 

ASCOO 

ASCDOO 

ASDRCP 

A3FB00 

ASFDOO (OF) 

ASFLOO 

ASLOO 

ASI-'OOO 

ASAROO 

ASSOO 

ASS032 

ASTRO (OF) 

BUY (OF) 

CAUB (OF) 

ENABLE 

FREE (OF) 

GENCNV 

GEIJRXO 

GENSSO 

GETDES 

RMNDX 

SBGTNR 

SELL (OF) 



SPASS (OF) 



Processes special assignment triples 






Chapter 3; Flowcharts, Tables, and Routine Directories 311 



•Table OG. Phase OG Library Calling Sequences 

r T T- 

Main Processing I 
Statement or Operation Type 



Routine 



Subroutines Used 



Scans triples and takes action on 
their values 



TRSCAN 



I EOBIN , TSCSNO , TSCCLB , TSCPRC , FMTOO 1 , 
I TSCEOP, TSC1:;P2 , JSCJMP , MOVITM ,MOVOUT 



Scans pseudo-code deleting IGNORE 
items and detecting CONVERT items 



PCSCAN 



I CNVFND, MOVITM, MOVOUT 
I 

4 

I MJG201, lEMOI ,CODCAL 



Examines fields of CONVERT, and 
determines whether the conversion 
is to be done in-line 



lEMOH 



Generates Library calling sequence 



MJG201 
lEMOI 



JMJG203,MJG20U,MJG298 



Generates in-line code for selected 
conversions 



j BITODI , FDTOFB , FIBFLT , DECFLT , PICHAR 
I 



Generates in-line code for pictures 
containing not more than four of 
the insertion characters (/ , . 
blank), if the target field is 
fixed decimal, fixed binary, float 
decimal or float binary 



lEMOL 



ISILCON, MOVOUI- 
I 



312 



•Table OGl. Phase OG Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



Entered when an end of input block marker is detected. 

Processes SN, SN2, and 3L triples. 

Processes CL triples. 

Processes PROC, PROC^, BEGIN, and BEGIN^ triples, and sets up counts 
for work space requirements. 

Handles the workspace requirements for FORMAT and FORMAT LIST. 

Processes EOP triple. 

Processes EOP2 triples and terminates phase. 

When a JUMP triple is found the routine sets up a counting mechanism 
and enters PCSCAN. 

Moves from input an item which spans blocks. 

Moves an item to the output block. 

When a CONVERT is found passes control to lEMOH and outputs 
pseudo-code generated on return. 

Generates pseudo-code to call the Library conversion package. 

Given a DED generates a code byte used by the in-line conversions. 

Generates pseudo-code to point registers at data. 

Generates pseudo-code to call Library conversion module. 

Sets bits in include card matrix. 

Generates in-line code for binary to decimal conversion. 

Generates in-line code for decimal to binary, conversion. 

Generates in-line code for decimal to float conversion. 

Generates in-line code for fixed binary to float conversion. 

Generates in-line code for picture to character string conversion. 

Generates in-line code for pictures containing not more than four of 
the insertion characters (/ , . blank) , if the target field is 
fixed decimal, fixed binary, float decimal or float binary 
conversion. 

J 



|£OBIN 




ITSCSNO 




1 TSCCLE 




1 TSCPRC 




jFMTOOl 




ITSCEOP 




1 TSCEP2 




1 TSC JMP 




IMOVITM 




1 MOVODT 




1 CNVFND 




IMJG201 


(OH) 1 


1 CODCAL 


(OH) 1 


IMJG203 


(OH) 1 


IMJG204 


(OB) 1 


IMJG298 


(OH) 1 


jBITODI 


(OX) 1 


IFDTOFB 


(OI) 1 


1 DECFLT 


(01) 1 


1 FIBFLT 


(01) 1 


1 PICHAR 


(01) 1 


1 SILCON 


(OL) 1 


L 


JL 
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Table OM. Phase OM In-line Data Conversions 



•T T" 

I Main Processing) 
Routine I 



Statement or Operation Type 



I Scans text for CNVC macros 

^ + 

{Passes control to code generation jCNVCDE 

I routines | 

L A 



Subroutines Used 



TEXTSC 



None 



I PACK , UNPACK , EDIT , EDMK 

I 

.X 



._J 



Table OMl. Phase OM Routine/ Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



^ + ^ 



I CNVCDE 

I EDIT 

EDMK 
PACK (ON) 

I PTNGEM 

I TEXTSC 
UNPACK (ON) 



{Passes control to the in-line code generation routines. 

I Generates conversion code, based on the ED instruction, for FIXED 
DEC to PICTURE conversion which includes punctuation and/or zero 
suppression. 

JGenerates conversion code, based on the EDMK instruction, for FIXED 
DEC to PICTURE conversion which includes a drifting sign. 

Generates conversion code, based on the PACK instruction, for 
PICTURE to FlkED DEC conversion when the picture contains only 9*s 
and V, and has only external sign or edit characters. 

Generates the editing constant or mask used by the ED or EDMK 
in-line instructions. 

Scans text for CNVC macros. 

[Generates conversion code, based on the UNPK instruction, for FIXED 
DEC to PICTURE containing only 9's and V, and with only external 
I sign or edit characters. 



L X J 



3H» 



Table OP. Phase OP Further In-line Conversions 



r T T 

j I Main Processing! 

I Statement or Operation Type | Routine | Subroutines Used 

I Initialize and perform test scan tojTEXTSC JCNVCDE 
(search for convert macros j j 

^ + + ^ 

I Examine convert macro and select |CNVCDE | BNTOBT, BTTOBN, FLTOBN 

{routine to generate in-line code j j 

I J L — ^ 



Table OPl- Phase OP Routine/Subroutine Directory 

I Routine/Subroutine I Function ( 

k f ^ 

JBNTOBT (Generate in-line code fcr conversion from fixed binary to bit string 

I I 

IBTTOBN I Generate in-line code for conversion from bit string to fixed binary 

I I 

IFLTOBN I Generate in-line code for conversion from float binary to fixed 

I I binary 
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Table OS. Phase OS Constant Conversions 
r T 



Scans constants chain for double | SCANl 
word constants 

Scans constants chain for single ISCAN2 
word constants 

Scans constants chain for unaligned I SCAN3 
constants 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 
POOLSC, SCNOIO, STPTST 



POOLSC, SCNOIO, STPTST 
CONVRT, lADENT, SCNOIO, STPTST 



■H 



Scans through constants chain for 
all constants used to initialize 
STATIC storage 



SCANU 



CONVRT, STPTST 



Sets up parameter and branches to 
the correct conversion routine 



CONVRT 



■H 



ARARD, ARBTD, ARCHD, CHARD, ERROUT, 
lACONV, lASTRN, IHEVFA, IHEVFB, 
IHEVFC, IHEVFD, IHEVFE, IHEVKF, 
IHEVKG, IHEVPA, IHEVPB, IHEVPC, 
IHEVPD, IHEVPE, IHEVPF, IHEVPG, 
IHEVPH, UPAA, UPAB, UPBA, UPBB, 
VSAA, VSCA, VSDA, VSEA, ZEROPT 



._J 



Table OSl. Phase OS Routine/Subroutine Directory 



i Routine/Subroutine \ 



Function 



I ARARD 

ARBTD 

I ARCHD 
I CHARD 
I CONVRT 

ERROUT 

lACONV 

lADENT 

ilASTRN 

I IHEVFA (OT) 

IHEVFB (OT) 
I IHEVFC (OT) 
I IHEVFD (OT) 

IHEVFE (OT) 



Handles the linking of routines required for any arithmetic to 
arithmetic conversions (corresponding Library module IHEDMA) . 

As above for arithmetic to bit conversion (corresponding Library 
routines IHEDNB) . 

j Arithmetic to character (IHEDNC). 

[Character to arithmetic (IHEDCN). 

Sets up parameters and branches to correct conversion routine. 

Handles the output of error messages for the conversion routines. 

Handles conversion to arithmetic type. 

Makes dictionary entry in the constant pool, generating a new 
constant pool block if necessary. 

I Handles conversion to string type. 

[Converts radix long floating-point binary to packed decimal 
intermediate. 

[Converts long precision floating-point number to fixed binary. 

I converts long floating-point number to floating-point variable. 

[Converts fixed point binary integer with scale factor to long 
[precision floating-point intermediate. 

Converts floating-point number of specified precision 
floating-point . 
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Table OSl. Phase OS Routine/Subroutine Directory (cont'd) 

Function 



i Routine/Subroutine \ 



IHEVKF (OU) 

IHEVKG (OU) 

IHEVPA (OT) 

IHEVPB (OU) 

IHEVPC (OU) 

IHEVPD (OT) 

IHEVPE (OT) 
IHEVPF (OT) 

IHEVPG (OT) 

IHEVPH (OT) 

LDCONP 
POOLSC 

SCANl 
SCAM2 
SCAN3 
SCAI14 

SCNOIO 

STPTST 

UPAA (UPAB) (OT) 

UPBA (DPBB) (OT) 

VSAA (OT) 

VSCA (OT) 

VSDA (OT) 

VSEA (OT) 

ZEROPT 



converts packed decimal intermediate to decimal fixed or 
floating-point numeric field with specified precision. 

Converts packed decimal intermediate to a sterling numeric field, 
with specified precision. 

Converts packed decimal intermediate to long float. 

Converts packed decimal intermediate to an F format item. 

Converts packed decimal intermediate to an E format item. 

Converts packed decimal intermediate to a decimal integer with 
specified precision and scale factor. 

Converts an F or E format item to packed decimal intermediate. 

Converts a decimal integer with specified precision and scale factor 
to packed decimal intermediate. 

Converts binary fixed or floating-point constant to long precision 
floating-point . 

Converts bit string constant with up to 31 significant bits, to 
floating-point with long precision. 

Points to head of constant chain. 

Given a converted constant in scratch storage, scans the existing 
pool for an identical entry. If such an entry is found, the pool 
offset and dictionary reference of the entry is moved into the 
dictionary entry for the constant. 

Scans constants chain for double word constants. 

Scans constants chain for single word constants. 

Scans constcmts chain for unaligned constants. 

Scans constants chain for consteuits used to initialize static 
storage. 

Controls the calling of the conversion routine CONVRT and pool scan 
routine POOLSC and, if required, lADENT. Also handles the case of a 
constant given in internal form. 

Checks for the end of the constant chain. 

Produces zero real (imaginary) part for CAD (corresponding Library 
module IHEUPA) . 

Produces zero real (imaginary) part for numeric field (IHEUPB) • 

Convert from bit string to bit string (XHEVSA). 

Convert from character string to character string (IHEVSC). 

Convert from character string to bit string (IHE\^D). 

Convert^ from character string to pictured character string (IHEVSE) . 

Produces a zero real or imaginary part for a constant given in 
internal form- 
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• Chart 09 • Storage Allocation Logical Phase Flowchart 



****A1 ********* 
> * 

• 09A2 * 
» « 

*************** 



*****A2***«****** 
•STATIC D3A PA* 

SETERMINES * 
*EL1GIBILITV FOR* 
* STATIC DSA'S * 
***************** 



->* 



-*-*-*-♦-» 



* SCANS TEXT 

* SORTS STATIC « 

* CHAIN » 

***************** 



*****C2 ********** 
*STATIC 2 PH* 

•ALLOCATES STOR * 
*AGE FOR STATIC * 
♦ARRAYS ( STRUCT* 
***************** 



••***q2*** ******* 
•SYH TABLE PL* 
♦-♦-*-»-*-*-•-«-♦ 
* ALLOCATES SYH. * 
•TABLES AND DEDS* 
•FOR VARIABLES * 
***************** 



*****E2* *****•••• 
•AUTO SORT PP* 
*-•-•.*-*-*-*.*-* 
*SORTS AUTOMATIC* 

• VARIABLES * 

* * 
******••*•**••*** 



*-•-*-•-•-*-•-»-* 

* ALLOCATES * 

* AUTOMATIC • 

* STORAGE • 
*********••••*••* 



*****Q2* ********* 
* PROLOGUES OF* 
*.*-*.*.*.*.*.$.• 

* CONSTRUCTS * 

* PROLOGUES FOR * 
•BEGIN.PROC.ON. * 
**•***»**•*••••*• 



*****|]2* •*•***••• 

• DYN. STORE QJ* 
*-*-*-*-•-*-*.«.* 
*SCANS TEXT FOR * 
•ALLOCATE (BUY * 

* STATEMENTS * 
*•*****•*••*•*••* 



*****J2* ********* 
•ALIGNMENT QU* 

*-♦-♦-♦-•-♦-•-*-• 

* SCANS PSEUDO- * 

* CODE TEXT * 
•ALIGNS OPERANDS* 
***************** 



****K1********* 
► lOAl 
*••*******••**• 



»< * 



, * LIST 

AGGREGATE 
* . LENGTHS . 



->• 



*****K3* *•••***** 
*LIST LENGTHS OX* 
•-*-*-•-•-••*-*-* 
PRINTS •- 

AGGREGATE * 
* LENGTH TABLE * 
**••••********•** 



• •**Klt **••****• 

->♦ lOAl • 

* * 

••****•••*•••** 
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Chart PA- Phase PA Overall Logic Diagram 



PICKUP HEAD < 

OF EUTRY TVFE 1< 

CHAIN < 



"ICK UP 

NEXT ENTRY 

TYPE 1 



.♦IT (NEITHER ». 

.PROCEDURE NOR.* 

». BEGIN .» 



.» HlLt 


« 


.♦ THERE 


bt • 


. ANY J-tl'ClC 


*. 3SA' 


n . • 


». 




•• . 


* 


• 


YES 


L 




• PD 


>• Al 



♦ r.ET OFF FLA'i 
>• IN TliE 

♦CCKKUNlCATiON.- 

• HEUIOM 



* ELIGIBILITY * 
» BIT OFF »< 

* IN ENTRY * 

* TYPE 1 • 



*****K2** ******** 

* * 

* CHAIN Binnt * 

-• FROM EKTRY *< 

* TYPE 1 » 

* • 



E3 *. 

.♦ IS ». 

.* BLOCK SO *. 

.FAR ELIGIBLE .* 

FOR A STATIC* 

*. DSA .* 

*. .* 

* YES 



DVSIZE 

*****F3* ********* 

* SCAN THE * 
*AUTOHATIC CHAIN* 

* TO CALCULATE * 
*STORAGE R£UUIRD* 
*FOR DOPE VECTRS* 



DSASIZE 

*****G3********** 

* CALC STORAGE * 

* FOR VARIABLES • 
•STRUCTURES AND « 

* ARRAYS * 

* * 
***************** 



*****H3** ******** 

* ADD * 
•STORAGE FOR STD* 
» 3SA SLOTS TO * 

* COMPLETE DCA * 

* SIZE * 



DICENT 

•****K3** ******** 

• MAKE STATIC * 
*DSA DICTIONARY • 

• ENTRY FCR * 

* STATIC CHAIN • 
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Chart PD, Phase PD Overall Logic Diagram 



* SCAN TEXT • 

* AND * 

* REVERSE • 

* SECOND FILE * 

* POINTERS • 



SCSORT 7 

*****B1********** 

* SCAN STATIC * 

* CBAIN • 
AND 






STATIC . . 

CI *. 

.♦SIMPLE *. 

.* STATIC ♦. 

*. INTERNAL 

•.VARIABLE .* 

*. .• 



****** 






••••*n2***« 



.* IS A *. YES 

. DOPE VECTOR .* 

• .REQUIRED .* 



»*D2********** 

• DETERMINE • 

• DV SIZE • 
>• AND • 

* ALLOCATE * 

* STORAGE * 






.♦ STATIC 
EXTERNAL 
• .VARIABLE 



*****^2********* 

• ALLOCATE 

• A d-BYTE 
->• AOmiBSSZHG 

• SLOT 



COMALC V 

*****fX********** 
•SCAN CONSTANTS * 

• CHAIN AND * 

• RELOCATE * 

• OFFSETS IN • 
•CONSTANTS FOOL • 
*•*•*••*••••*•*** 



••***G1********** 

• * 

• BDMF LOCATION • 

• COOHTER BY • 

• SIZE OF FOOL • 



.• ARE *. 
■ •THERE MORE *. YES 

CONSTANTS . • 

*. POOLS .• 



->• Al 

• * 

• ••* 
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Chart PH. Phase PH Overall Logic Diagram 



I'lCK UP 

STAB! OK 

PROCEDURE 

BEGIN CHAIN 



PICK iir 

UTABT OF 

(•ONTRCLLtn 

CHAi;i 



END OK 
AUTOMATIC 
. CHAIH . 



• tND OF 

CONTBCLLKD 
•. CH/,i:« . 



••«*t«***»*»«*i 



*0***;^2 ********** 
* MAKE SKELKTON ♦ 
» DOPE VECTOR • 
♦ENTRY. INCLtjrjE • 
♦WHOLE CTRUCTURE^ 
IF ■lECEiiSARV 



«•» 



>**•*• 



• »•♦ 



♦♦«!•♦♦♦♦♦ 

CONTINUt 

SCAN OF 

STATIC 

CHAIN 

t********* 



*t*t\.yt******** 

PUT 30PE 

VICTOR i:;)TFiY Xi* 

STATIC CHAIN. 

AIWJCAT). 

STORAGE 

«*4 *****••*«•** 



00 To NEXT 

ITEK I..' 

TliK CHAIN 



83 ♦. 
♦ CAN ♦ 
IT HAVE 
A DOPE 
VECTOR 



SK3V1 V 

*****CH*********» 

♦ HAKb 3KEIETON • 

♦ IjCrE VECTOF< ♦ 
♦£l*ri'Y. INCIIIM ♦<— 
♦WHOLE fiTBUCTURE^ 

♦ IF NECEofJA.'.Y ♦ 



YES .♦ ANYTrtlNii 

♦.lil STRUCT JRI- 

♦. BBUUIHt . 
♦.O.V. .• 



** 



IHCLUUE C'JPI' 

VECTOR E.ITHV I 

;.TAT1C ChAI.I. 

ALLOC AT t 

:'ToRAUL 



SKARGI I 



.♦ SKFLETCN 

>♦. ARGOflE.n 

♦. II -:t 



RTKALO 
HO .♦' 



ALLOCATE 
AMOUNT Cf 

3T0BAi;F. 
REOUISi!^ 



♦♦♦♦G3^^^^^^^^* 
ALLOCATE 
STORAGE. 
CALCULATli 
MUraEF CF 
ELIMENTr 



»**•*« 



***** 



***t*^-i********** 

♦ ALIO C ATE • 

♦ iSTOKAGE. WORK ♦ 
->♦ OUT JUKEEK OF *- 

♦EXEWE^W I'i AMY * 

♦ ABRAYS. (lil PA)» 
***************** 



****^m********t 

IF VIRTUAL 

ORIGIU ir, -vt 

ALLCCATt 

DFHEiJEbATL 

DOPE VtCTOP 

**************i 



*****iiH ********** 

♦ ALLCCATf • 

♦ UEfiMEiiATE ♦ 
->^liCPI. VtCTOK FOf* J 

♦ -VL VIRTUAL ♦ 
» OPKJIH. ♦ 
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Chart PL. Phase PL Overall Logic Diagreun 



SCAN CHAIN 



DECALl, DEDAL2 
ALLOCATE DED 



• OF STATIC ♦< — ,< • FOR VARIABLE ♦<- 

» VARIABLES » 1 • « 

« * « * 

***«****•***•*•** I ***************** 
**** A 



YES 



B2 ♦. 
. * DOES • 
.* VARIABLE 
->*. REQUIRE 
•*. DED 



ALLOCATE 
SYMBOL TABLE 
FOR VARIABLE 



Y£S 



US ♦. 
.♦ DOES ♦. 
. ♦ VARIABLE ♦. NC « 

REQUIRE .* >• 

•. SYMBOL .» * 

♦.TABLE.* 



DEDALl, 



» SCAN CHAIN ♦ 
» OF CONTROLLED « 

* VARIABLES * 

• * 
***************** 



•****•***•*****•* 



D2 *. 
.* DOES ♦ 
.* VARIABLE 
REQUIRE 



>**•************• 



NO 



F2 ♦. 

. * DOES » 

CONSTANT 

REQUIRE 

DEO 



* ALLOCATE 
-* SYMBOL TABLE 

* FOR VARIABLE 

• 



YES 



D3 ». 

.♦ DOES ». 

,* VARIABLE 

REQUIRE 

*. SYHBOL . 

♦.TABLE.* 

♦• »♦ 



)***•***•*• 



***************** 



BCSCAN 

*****GI *•*•**•*** 

* SCAN CHAIN * 

* OF PROCEDURE ♦ 

* AND BEGIN * 

* BLOCKS ♦ 

* * 
*•*••****•******• 



G3 ♦. 
.* DOES ♦ 
.* VARIABLE 
REQUIRE 



DEDALl, 
DEDAL2 V 

*****H3** ******** 



SCAN CHAIN 



. » 
.♦ 
*. .♦ 
* YES 

1*»»* 
*PP • 
->♦ Al ♦ 
* * 



->♦ OF AUTOMATIC *< — 1< * FOR VARIABLE »< 

* VARIABLES « I ♦ ♦ 

• * I * * 

***************** I ******•••****«**• 
»*** 



GH *. 
.* DOES *. 
VARIABLE 
REQUIRE 
. SYRBOL . 
♦.TABLE.* 

■»'yes 



* ALLOCATE * 
-♦ SYMBCL TABLE * 

* FOR VARIABLE • 

* « 
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Chart PP. Phase PP Overall Logic Diagram 



*****A1********** 



••***•*•••••••••* 



THERE 
AMENTRy 
. TYPE 1 



••••• 
•PT • 
• Al* 



• « 
» C2 • 

• * 
**** 



CI ♦. 
.♦IS ♦. 
THERE * 

AN Axrco 

CHAIN . < 
*• •* 

*. •* 
* NO 



*•****•••*••••*•* 



•♦•♦♦Dl**»***»*** 


* 






• 


MAKE AN 




< — • 

* 






* 








•*•• 




* 


• 




* 


El * — - 




♦ • i 




SORCH .*. 






El ♦. 




NO . 


•''theIe h*'* 






. DEfBNDEOT ^ 


. •- 



* • 

* ADD TO • 

* INDEPENI^IT *< 

* CHAIN * 

* • 



RA7 
NO .*■ 



r 



« E2 • 

* * 
**** 



.» 



HI *. 

♦ ANY *. 
ITBIS *. YES 

ADDED TO .* 

*.IND. CHH .* 

♦ . 7 .• 

♦. .♦ 
• NO 



* ERROR 

* 



•****E2********** 

* • 

* SCAN * 
->* DEPENDENT * 

• CHAIN * 

• * 



3 .» ANY • 

-•.DEPENDENCIES 

*. .* 



****G2********* 



••••***•*••**•* 



SCRDBI 

* REIKfVE • 

* INDEPENDENT • 
>• ITEHS PROH •- 

* DEPENDENCIES • 

* • 



D3 ♦ 

» 

TEMP 



SC2II 

*****CI|********** 

* • 

YES * PLACE IN * 

• — >» <»)-CHAIN •■ 



YES * PLACE IN 

* >* INDEPENDENT 

* CHAIN 



••**•••**•••*•••* 



.* NON *. YES 

*. ADJ08TABLE .* 

•. ITEM .♦ 



SCNCHN, SRCH2 
SRCR2 

• SET LIST OF * 

• DEPENDENCIES * 
>* IN CURRENT • 

* DEPENDENT * 

* CHAIN * 



->* 



• ****GI| **•••****• 

• C<MtBINE * 
ON CHAIN * 

AND • 
INDEPENDENT • 

• CHAIN • 




* INDEPMDBNT * 

>* CHAIN TO • 

* AUTO CHAIN * 

* * 



* * 

* MAKE * 
>• CHAIN » 

* DELIMITER * 

* • 



* • 

* El ♦ 

* * 
• *•• 



• Al ♦ 

* * 
• ••• 
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Chart PT. Phase PT Overall Logic Diagram 



CONTl 

*****A1 ********** 
♦SCAN CONTROH.ED* 
♦CHAIN FOR SIZE ♦ 

♦ OF IARGK8T ♦ 

♦ DOPE VECTOR ♦ 

♦ * 
***************** 



DSALOC 1 ' 

*****B1* ********* 

♦ * 

♦ PICK UP FIRST ♦ 

♦ ENTRY TYPE 1 ♦ 

♦ IN El CHAIN ♦ 

♦ * 
***************** 

**** 

♦ * 

♦ CI ♦-> 

♦ 4 
***• 

DSA5 

*****C1^^****^*^* 

♦ ALLOCATE ♦ 
» STANDARD ♦ 

♦ SAVE AREA ♦ 
♦AND FLAG BYTES ♦ 

♦ * 
*••****•••******* 



2********** 



♦♦♦♦•D2« 
♦ALLOCATE 8-BYTE^ 

♦ SLOT AND ♦ 
>♦ COMPILE CODE ♦ 

♦ TO INITIALIZE ♦ 

♦ * 
***************** 



***♦ ♦£!♦♦•♦♦♦♦♦♦ 

♦ ALLOCATE 8 

♦ WORDS FOR 

♦ ADDRESSING 

♦ VECTOR 

*****•*****••••* 



Fl ♦ 

* 

PROC' 



*****F2*** ♦♦♦♦•*♦ 

♦ ALLOCATE ♦ 

♦ 2 WORDS FOR ♦ 
>♦ ADDRESSING ♦ 

♦ SLOTS ♦ 

♦ * 
*•*♦**♦♦♦*•***•** 



» ALLOCATE ♦ 

♦ PSEUDO-CODE ♦ 

♦ WORKSPACE * 

♦ * 
***************** 



DSA17 

♦♦♦♦•H2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ALLOCATE ♦ 

♦ PARAHLIST ♦ 
>♦ AND 'BUY' ♦ 

♦ WORKSPACE ♦ 

♦ * 
***************** 



♦. •♦»« 

♦.NO * « 

PROC .♦ >♦ E3 * 



♦ ALLOCATE 

♦ STORAGE 

♦ REQUIRED 

**************** 



♦ COMPILE CODE * 
♦ TO INITIALIZE ♦ 

♦ DOPE VECTOR ♦ 

♦ • 
***************** 



♦ GET NEXT El' 

♦ ENTOY IN 
♦CIRCULAR CHAIN 

* 
**************** 



) .♦ IS THIS ♦ 

' ♦.THE ORIGINAL 

♦. PROC .♦ 



**•* 
l< * 
» E3 ♦-> 



**** 
DSA25 

*****E3********** 

♦ • 

♦ ALLSCATE ♦ 

♦ DOUBLE WORD ♦ 

♦ STORAGE ♦ 

♦ * 
***************** 



♦ ALLOCATE ♦ 

♦ SINGLE WORD ♦ 

♦ STORAGE ♦ 

♦ • 
*****•**•*****••* 



♦ ALIACATE ♦ 

♦ CHAR STRING ♦ 

♦ STORAGE ♦ 

♦ * 
***************** 



*****H3********* 
* 

♦ ALLOCATE 

♦ BIT STRING 

♦ STORAGE 
* 
*****•****•***•• 



♦ ALU) C ATE ♦ 

♦ STORAGE FOR ♦ 

♦ ARRAYS ♦ 

♦ * 
*****•*••*•****** 



> ALIOCATE • 
» STORAGE FOR ♦ 

> STRICTURES ♦ 

> ♦ 
•**♦♦♦«*******•*« 



*****BI|*i******* 



**************** 



DSA7II 

*****0I« ********** 

♦ STORE POINTER ♦ 

♦ TO 2ND FILE ♦ 
— >♦ STATEMENT 

♦ CREATED * 

♦ * 
***************** 



♦<- 



♦ GET VDA ♦ 
>♦ FOB REGION ♦ 

♦ IF REQUIRED ♦ 

« * 

***************** 



• STORE DSA 

• SIZE IN 

» ENTRY TYPE 1 

»****••******•*• 



.♦ . 




DSAEND 


G« ♦. 




*****G5^ ♦♦♦♦♦♦♦♦♦ 


♦ ♦. 




♦ » 


END OF ♦ 


YES 


♦ RELEASE ♦ 


El CHAIN 

. * 








♦ AND CONTROL ♦ 


♦ . .♦ 




♦ * 


♦. . ♦ 




***************** 


♦ NO 

I 




**** 

♦QF ♦ 

->♦ Al ♦ 


*♦♦* 




* * 


* ♦ 




♦ *** 



♦ CI • 

* * 
*•** 
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Chart QF. Phase QF Overall Logic Diagram 



» A3 • 

**** 



* **** 

* * * 
SCAH TEXT ♦< » Al • 

* * * 



• SCAN 

• AUTOMATIC 

• CHAIN 

• 
**************** 



->*. DbLIHITtR 



•PLACE DELIMITER* 

• 2iO fILE « 
>• STATEMENT • 

• I.* TEXT « 



END 


OF ». YES 


TE nr . » — , 


.* 1 


.» 1 


». .♦ * 


■ NO •»••* 




*QJ * 




• Al» 




« ♦ 



YES .»■ 



• *•• 

• A3 » 

• < 



•EXTRACT EXTENT • 

* EXPRESSIONS * 
» FOB ITEM ♦ 

* FROM 2ND * 

* FILE * 



****CS********** 
SKIP 2ND • 
FILE TEXT • 
TO FIRST * 
STATfcMENT ♦ 
IN BLOCK 



QF1215 

• •** 

• ♦ NO •♦ 
► A3 *< ♦. 

» » A ♦, 

• •** 



DOES 
ITEM NEED 
STORAGE . 



WF119« 

*****DS****** 

EXTRACT 

HAPPING 

CODE FROM 

2ND FILE 



El • 

* 

PROC 



Fl •. 

* 

BKIN 



QPPROL 

*****£2*** ••***•* 

* GENERATE * 

♦ ENTRY POIOT • 
>♦ CODE FOR •- 

* EACH LABEL * 

♦ ON PROC » 



* GENERATE 
>* PROLOGUE 

* TO GET DSA 

* 



* GENERATE • 
>* PROLOGUE *- 

» TO GET DSA • 

* • 
***************** 



**** 

* • 
->* A3 * 

* • 

**•* 



->* Al * 

A * * 

***• 



QF0370 

«**t*pil*t **»**«** 

* GENERATE * 

* COMMON * 

* PROLOGUE • 

* FOR GET DSA * 

* * 
***************** 





ES •. 


• GENERATE * 


.* IS ♦. 


• SET STATIC * 


NO .* ITEM * 


< *. FIRST 


* ADDRESS IN * 


*. IN ZONE .* 


♦ Rll * 


*. .* 




• . . • 



gpisii 

****«f$« ••*••••** 

* REMOVE VOA • 

* ACCUMULATOR * 
* ALIGNMENT • 

* CODE FROM * 

* MAPPING CODE * 



**** 

• * 

• J3 * 



CODE to 

COPY ABG 

AMD TARGET 

ADDRESSES 



QHOVEl 



♦ NO 
J< 



.* ARE *. 

.* THERE ANY 

ENTRY PTS 



* NO 
J<.„ 



*****J5** ******** 



•FOR EACH ENTRY * 

***************** 
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Chart QJ. Phase QJ Overall Logic Diagram 



» * 

• A2 » 
> * 

• *** 



GSl 

*****A1 ********** 

• * 

* • 
— >• SCAN TEXT *< 

* * 

• * 
***************** 



_ 


• * ADJUST • . 
*. ARRAY OR 




*. STRUCT .* 




*. •* 




*. .♦ 


• 4** 


* NO 




1 **** 


* Al * 


* 


• * 


l->» E5 




* 




• »*♦ 




*****B2********* 




» COPY 




* EXTENTS 




* FROM OLD 




♦ DOPE VECTOR 



***************** 

i 

**** 

« * 

* an * 

• * 
**•* 



ALUX 

•****Q2*** ******* 

* SCAN AilEAO * 

* TO REVERSE * 
>* 2HD FILE *- 



* POINTERS 

* « 

«»♦♦»**♦»*»*♦»•«« 



**** 

* » 

* F2 ♦ 

* * 
**** 



Fl 



♦ . 



STRING 

►. •* 
*. .* 

• NO 



. *AOJUSTABI,E *. NO 

ARRAY OR .* 

*. STRUCT .* 



BY15 

*****F2* ******** 

* SET SIZE 

* AND GENERATE 
>* CALLING 

* SEQUENCE 

**************** 



*****G2*** ******* 

* GENERATE » 
» DOPE VECTOR * 

* RELOCATION * 
» CODE * 



»*»« 

* * 

* F2 * 

* * 
**•* 



***************** 



l<- 



BYIS.BYIH V 

•^***H1*********« 

* EXTRACT « 

* HAPPING • 

* CODE * 

***************** 



**** 

* * 

* Al * 

* * 
**** 



**** 
>. YES » * 
.* >* G« * 



**** 

* * 

* BO * 

* * 
**** 



BNOBXP V 

*****BU* ****•**< 

♦ EXTRACT 

• EXTENT 
>* 2ND FILE 

* STATEMENTS 



***•*••*•******* 



****C<t********* 
EXTRACT 
MAPPING 

SODE FROM 
ND FILE 

****•*********< 



* NON 

STRING 
SCALAR 



LIBCl 

*****E3********** 

* DETERMINE * 

* SIZE, AND * 

* GENERATE * 

* CALLING * 

* SEOIENCE * 
******** ********* 



**•* 
» * 
• F3 » 

» * 

**** 



* E5 *-> 



• •** 
LIBCl 

*****ES* ********< 
* DETERMINE * 
SIZE. AND 4 



->* 



GENERATE 

CALLING < 
SEQUENCE • 

'****•******•**• 



STAR 
STRING 
LENGTH 



**•* 

* * 

* Al ♦ 

* * 
**** 



*•** 
• * 
» G« *-> 



*****Q3***«****** 

* EXTRACT 2ND * 

* FILE * 

* STATEMENT * 

* * 
***************** 



COPY 
,__* OLD 

DOPE VECTOR 



n. 

**** 

* * 

* E5 * 

* * 
**** 



*****F5** **••••** 

* GENERATE * 
» DOPE VECTOR » 

* RELOCATION * 

* CODE ♦ 

* * 
***************** 



**** 

* « 

->* F3 * 



*****GS** ******** 

* EXTRACT * 

* 2HD FILE * 
>* STATEMENT * 

* FOR * 

* LENGTH * 
***************** 



**** 

* * 

* F2 * 

* * 
*•** 
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Chart QD. Phase QU Overall Logic Diagram 



* INITIALIZE * 

* TEXT POIOTERS •- 
« ETC * 

* • 



TRANS 

••***A2* ********* 

* SCAM TEXT ♦ 

* NOTING IPKM * 
>♦ AND EPRM *- 

NESTS « 



.1.." 



**B1******* 
SET ARGSH *<— 



• •*• 

LARGO .*. 

B2 *. 
. * *. 
YES .♦ IS IT * 

*. AN ARGUMENT 

*. REGISTER .* 



edIt CALLI.IG* 
*. Sli, .• 



> • 

> E5 • 

> • 

• ••• 



IT WITHIN *. 
A CALLING 
.SEQUENCE .* 



->* J5 * 

* * 
**•* 



NO .♦IT REGISTER*. 

*WITH KISALIGNED*<- 

♦. ADDRESS .♦ 



♦♦C3^^^^^^* 

• * 

SET DEDSW 
♦♦♦*♦♦*♦♦♦* 



-?.*- 



D2 ♦. 
.♦ IS ♦. 
• OPERAND 

DICTIOflARY 

♦ . REFERENCE. 

♦ . .♦ 

♦. .♦ 



HO .♦ DEDSW 

♦. OR ARGSW 

♦. SET 



♦ SET ♦ 

♦ ALIGNMENT ♦ 

♦ REQUIRED FROM ♦ 
♦DED OF VARIABLE^ 

♦ ♦ 
♦♦♦♦♦♦♦♦***•*♦*** 



ALGREF 
YES 



♦♦•♦♦D3*^^ ♦♦♦♦♦♦* 

* SET ♦ 

♦ ALIGtmiWT ♦ 
♦REQD ACCORDING ♦<~,<J 
♦TO INSTRUCTION * ' 



.♦ IT LOAD ♦ 

, FROM ADDRESS 

*. OB DOPE .* 

♦VECTOR.* 



.♦ IS ♦. 
IT WITHIN 
A CALLING 

.SEQUENCE . 



BS •. 

. • OTHtH *. 
lUnTBUC.IS < 
REQUIRING 

.ALIGUMtNT.' 



••♦♦•cs* ♦♦♦♦*♦•♦♦ 

♦ ♦ 

♦ TURN orF ♦ 

♦ ARGSW AND ♦<— 

♦ DEDSW ♦ 



♦ ♦♦♦ 

♦ ♦ 
->♦ D3 ♦ 

♦ ♦ 

♦ ♦♦♦ 



♦♦****♦***♦♦*♦* 



♦ *♦♦ 



. ♦ GET/PUT ♦ . 

. EDIT IHIT. . 

ROUTINE CALL^ 

♦ . SEU .♦ 



» D3 « 
• ♦ 

♦ ♦♦♦ 



IS ♦. 
IT A ♦. 

*. MISALIGNED . 
♦.VARIABLE .♦ 



♦ **♦ 
♦ « 
— >♦ A2 « 
A ♦ ♦ 

l:: 



♦♦£«♦♦♦♦♦♦♦ 

• « 

GET/PUT 
SWITCH 

♦ • 
♦*•**♦♦•*** 



♦ . 

♦ **♦ 

♦ ♦ 

♦ E5 *-> 

♦ ♦ 

♦ ♦♦• 



•♦♦♦♦es^^^^**** 

* POP UP 

* OUTPOTTING 

* MVC'S STORED 



.*• 


ADECQ . ♦ . 


.♦. 


MTSQ .♦. 


MTMVC 




01 «. 


G2 *. 


G3 ♦. 


GH ♦. 


♦ •^•♦GS^^^^^*^^^^ 


* *. 

IS *. NO 


.* ♦• 
.♦ ♦. NO 


.♦' *♦. NO 


.♦ IS ♦. 

.♦ OPERAND *. YES 




H^FIED ♦ 




>♦. DEDSW .♦ 

♦. . ♦ 






>♦ 


^roiL^D™ ♦ 


O.K. .* 




*. FIELD .* 


*. .* 


♦ . .♦ 


♦. . ♦ 


*. - * 


** 


BY NVC ♦ 


* YES 




> YES 




YES 


4 


NO 






i 
• ♦♦♦ 
















V 
• ♦♦♦ 


* ♦ 
















♦ ♦ 


♦ A2 ♦ 


REGENT ' ' 


MSTACK ' i 


MS 't 




* A2 * 




♦ ♦♦♦♦H2^ >*♦♦♦♦*♦♦ 


***»0fl-i*******»** 


•♦•.•H«*^^**^^^^^ 






•♦♦♦ 


• NOTE REGISTER ♦ 


♦ POT HVC ♦ 


* OUTPUT ♦ 




• *♦♦ 




* liOADED BY THE ♦ 


♦ INSTRUCTION ♦ 


♦ HVC FOLLOWED ♦ 








• INSTRN, AND * 


♦ FOR IT INTO ♦ 


♦ BY MCniFIED ♦ 








•OPERAND AlIGNMT^ 


♦ STACK ♦ 


♦ INSTRUCTION * 








• REQUIRED ♦ 


♦ * 


♦ * 




♦ *♦* 










♦ ♦ 






1< 


1 




♦ J5 ♦ 

♦ ♦ 












V 
♦ **♦ 

♦ ♦ 












♦ 1 


\2 ♦ 










TEOP 





♦ FINISH OUTPUT ♦ 

♦ RELEASE TEXT ♦ 
♦RELEASE CONTROL ♦ 
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SCANC 

««»««A2««»«»»»*»< 

• SCAN STATIC « 
» AUTOMATIC AND « 

* CONTROLLED " 

• CHAIilS IW * 

* DICTIONARY < 



«*»*tB2*********« 



* 
01 • 

* 
• ♦♦» 



♦••♦Cl.» •♦*****•* 



l»*»*****»***«*« 



»*•*♦»»• 


»*♦ 


• *»♦ 




» » 




♦ C2 •-> 




* * 




*•*« 7 


. *. 


C2 ♦. 


, ♦ 


.♦ END 


>». OF CI 


lAii^ 





••Ea»*»»»»» 


,t»,,a'„ 




* « 






• TURN ON » 


• GhT H 




» COBOL • 


>»CHUCEDU 




• SWITCH • 














*•*•*•** 




A 










, 


YES 


1 YBS 


J 



D2 ♦. 
. * ♦. 
.» IS • 
♦.COBOL SWITCH 



WAS IT 

STATIC 

CHAIN 



D3 •. 

.* IS IT •• 

.» ENTRY FOR • 

->*A COBOL MAJOR- 

». STRUCTURE.* 



.». 

E2 ♦. 

.* IS IT *. 

.♦ENTRY FOR A*. 

». MAJ-STR: OR .« 

NON-STRUCTURED 

♦.ARRAY.* 

♦. .♦ 

♦ YES 



♦ AHALYSa DICT; * 

♦ ENTRY FOR AN ♦ 

♦ AGGR3GATE ♦ 
» ♦ 
***************** 



♦MAKE ENTRY FOR ♦ 

♦ AGGREGATE IN * 

♦ TEXT 3L0CK ♦ 

♦ * 
******** ********* 



*****A2*** ******* 

• CHAIN THE ♦ 

♦ EiWRY INTO * 
-♦ ALPHABETIC ♦ 

SEUUEtlCE OF 



**** 
t « 
► CI ♦ 
» « 

»♦♦» 



« E« ♦ >♦. 



♦ WAS IT 

CONTROLLED 
♦ . CHAIN . 



*****on*** ******* 

♦AUTOMATIC CHAIN* 

• FINISHED. GET * 

* NEXT ENTRY IN * 
* PROCEDURE CHAIN* 

♦ • 



END OF 
PROCEDURE 
CHAIN . 



*. COBOL SWITCH .*- 



A 

****ES*i*******« 

GET HEAD OF < 

AUTOKATIC « 

CHAIN FOR • 

PROCEDURE • 



*•**•******•**•• 



*t***f^* ********* 

* 4 

♦ GET HEAD OF * 
>♦ COriTROLLED « 

♦ CHAIN * 

* i 
****************n 



PRNTAB 

***QH*** ******* 

PRIriT 
* AGGREGATE « 
LENGTH 
* TABLE * 

**************** 
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Table PA. Phase PA DSAs in STATIC Storage 

r T T- 

I Main Processing! 
Statement or Operation Type | Routine j 



H 



Subroutines Used 



-^ 



Scans Entry Type 1 chain for blocks |PADSA 
eligible for STATIC DSAs | 

Makes a dictionary entry for each JDICENT 
STATIC DSA I 



|DSASIZ,DVSIZE 



-+ 

I None 



Sorts STATIC chain (called from PD)JSCS0RT 
+ 

Scans STATIC chain for INTERNAL JARRSCN 

arrays; calculates number of | 

elements for those arrays needing j 

initialization. Allocates storage j 

for arrays and, if necessary, for | 

secondary dope vectors j 



I None 

-+ 

(None 



Table PAl. Phase PA Routine/Subroutine Directory 



i Routine/Subroutine j 



Function 



^ 



ARRSCN 



I DICENT 



I 

I 

I 
jDSASIZ 

I 
JDVSIZE 



I PADSA 

I 

I SCSORT 

L 



Scans STATIC chain for INTERNAL arrays ; allocates storage for arrays 
cuid secondary dope vectors (called from PH) . 

Makes a dictionary entry for each STATIC DSA. 

I Calculates size of DSA excluding Register Allocator Workspace. 

Scans AUTOMATIC chain for variables requiring dope vectors, and 
calc\ilates size of dope vectors. 

Determines eligibility of a block for a STATIC DSA. 

Sorts STATIC chain (called from PD). 
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Table PD. Phase PD Storage Allocation Static 1 

r T 

Main Processing 
Statement or Operation Type | Routine 



Subroutines Used 



-H 



I Reverses second file dictionary 
I pointers 



PD 



NXBLCK 



I Sorts STATIC chain 
h 



SCSORT (in PA) 



None 



(Allocates storage for simple, 

I non- structured, non-external it«ns 



STATIC 



SDSAl 



I- 

{Allocates dope vectors for all 

I non-external items 



— + 



DVALOC 



None 



I Allocates **-byte addressing slots; 
I calculates control section size for 
I all external items 



■H 

-H 

I 



TVALOC 



STRCDV 



j. 

I Allocates storage for constants. 

L J 



CONALC 



None 



r T- 

j Routine/Siabroutine | 

I CONALC 



^ 



Table PDl. Phase PD Routine/Subroutine Directory 

Function 

I Allocates storage for constants. 

DVALOC I Allocates dope vectors for all non-external items. 

NXBLCK (Obtains next text block. 

PD I Scans text file and reverses second file pointers. 

SDSAl I Allocates a 4-byte address slot for each STATIC DSA. 

SCSORT I Sorts STATIC chain. 

STATIC I Allocates storage for simple, non- structured, non-external items. 

STRCDV I Allocates relative offsets of structure member dope vectors. 

ITV.B.LOC |?.llocates 4-byte addressing slots; calculates control section size 

for all external items. 



—J 
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Table PH. Phase PH Storage Allocation Static 2 



K 



Statement or Operation Type 



Main Processing 
Routine 



I Scans AUTGHATIC chain; allocates 
I dope vector 






h 



I Scans CONTROLLED chain 












(Allocates storage for skeleton 

I argument lists appearing in STATIC 

I chain 

{Scans STATIC chain for INTERNAL 
I arrays; calculates number of 
(elements for those arrays needing 
I initializing. Allocates storage 
I for arrays and, if necessary, for 
(secondary dope vectors 

(Scans STATIC chain for INTERNAL 
(structures. Calculates number of 
(elements in structured arrays 
(needing initializing. Calculates 
(size of storage for all structures 
(and bumps location counter. 



PBSCAN 



CONSCN 



SKARGL 



ARRSCN (in PA) 



■I 

STRALO 



--+ 



Subroutines Used 



AUTOll, SKDVl, SKENT3, STRSCN, 
TEMPDV 



i 



AUT04, SKDVl, STRSCN 



None 



■H 



None 



J 



None 



■H 
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Table PHI. Phase PH Routine/Subroutine Directory 
I Routine/Subroutine j 



Function 



ARRSCN (in PA) 

AUTEND 
AUTOU 

CONSCN 

CSCN2 

END513 

PBSCAN 

PBSl 

SKARGL 

SKARGl 
SKDVl 

SKENT3 

STRALO 

STRSCN 

TEMPDV 



j 

Scans STATIC chain for INTERNAL arrays; allocates storage for arrays 
and secondary dope vectors. 

Tests for end of AUTOMATIC chain. 

Calculates size of dope vectors for dynamic temporaries and 
CONTROLLED variables. 

Scans CONTROLLED chain. 

Tests for end of STATIC chain. 

Stores STATIC location counter and releases control. 

Scans AUTOMATIC chain; allocates dope vectors. 

Gets next item in chain. 

Allocates storage for skeleton argiament lists appearing in STATIC 
chain. 

Allocates storage required. 

Creates skeleton dope vector dictionary entries for non- structured 
variables in AUTOMATIC and CONTROLLED storage. 

Constructs skeleton dope vector dictionary entries for function 
values . 

Calculates number of elements in structure arrays to be initialized; 
calculates size of storage for all structures. 

Creates skeleton dope vector dictionary entries for structures in 
AUTOMATIC and CONTROLLED chains. 

Creates skeleton dope vector dictionary entry for temporary 
workspace . 
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Table PL. Phase PL Storage Allocation Symbol Table and DEDs 



I I Main Processing I 

I Statement or operation Type j Routine t Subroutines Used 

lAllOcates STATIC storage for all |IEMPL | BCSCAN, CCSCAN, CNSCAN, SCSCAH 

jsyndsol tables and DEDS j | 

(Scans STATIC chain for symbol and jSCSCAN |DEDAL1, STRSCN, SYMTAB 

JDED variables j j 

k + k 

{scans CONTROLLED chain for symbol JCCSCAN JDEDALl* STRSCN« SYMTAB 



land DED variables 



I 



ACSCAN, DEDALl 



j Scans PROCEDURE block chain of (BCSCAN 

lEinrRY type 1 oitries j | 

I Scans AUTOMATIC chain for symbol jACSCAN | DEDALl, STRSCN, SYMTAB 

land DED variables j j 

I Scans chain of members of | STRSCN | DEDALl, SYMTAB 

{particular structure for symbol andj | 

I DED variables j j 

I Allocates storage for symbol tables (SYMTAB |DEDAL2 

(Allocates storage for DEDS (DEDAL (two (None 

( (entry points: ( 

( (DEDALl, DEDAL2)( 



^ 

H 
\ 

— ^ 

— ^ 



■H 
-H 



Table PLl. Phase PL Routine/Subroutine Directory 



— r- 



( Routine/Subroutine | 



Function | 



(ACSCAN 

( 
(BCSCAN 

( 
(CCSCAN 

I 

j CNSCAN 

( 

(DEDALl (PM) 

I 
(lEMPL 

( 

( SCSCAN 

( 

j STRSCN 

( 

I 

(SYMTAB (PH) 

L 



Scans AUTOMATIC chain for symbol and DED variables. 

Scans procedure block chain of ENTRY type 1 entries. 

Scans controlled chain for symbol and DED variables. 

Scans constants chain for DED variables. 

Allocates storage for DEDs. 

Allocates STATIC storage for symbol tables and DEDs. 

Scans STATIC chain for symbol and DED variables. 

Scans chain of members of particular structure for symbol and DED 
varieibles. 

Allocates storage for symbol tables. 
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Table PP. Phase PP Storage Allocation Sort of AUTOMATIC Chain 



Statement or Operation Type 



Main Processing 
Routine 



Scans BEGIN-ENTRY for ENTRY type 1 
entries 

Scans AUTCSfATIC chain from each 
ENTRY type 1 entry 

Adds ON conditions to first 
AUTOMATIC zone 

SC31 



None 



Adds temporaries (type 2) and 
independent items to first zone 

Adds dependent items to subsequent 
zones 



Determines list of dependencies 
from INITIAL attribute 

Determines list of dependencies 
from DEFINED attribute 



RAO 



SETCH 



SC2U 



SC44 
SC39 



SCUO 






Determines list of dependencies forjsc35 
array bound expressions 

Determines list of dependencies for|SC50 
string length expressions 



Subroutines Used 
SETCH, SCRUBl, SORCH 



EXDT, SRCH2 



None 



None 



SCNCHN, SRCH2 



SCNCHN, SRCH2 
EXDT, SCNCHN 
SCNCHN, SRCH2 



Removes independent item dictionary 
references upon which items in the 
AUTOMATIC chain depend. 



SCRUBl 



None 



—J 
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Table FPl. Phase PP Routine/Subroutine Directory 
I Routine/Subroutine j 



Function 



lEXDT 

|RAO 
|RA1 
I RAH 
|RA7 
ISCNCHN 

SCRUBI 

SC2a 
tSC31 

SC35 
ISC39 
iSC40 
|SC4l| 

SC50 

SETCHN 

SORCH 

SRCH2 



1 



Scans dimensions tables for second file statements with adjustable 
bounds. 

i Scans BEGIN-ENTRY for entry type 1 entries. 

I Tests for end of ENTRY type 1 chain. 

I Creates an AUTOMATIC chain delimiter. 

j Tests for end of chain. 

Scans current AXJTOMATIC chain; determines whether reference belongs 

I to it. 

I Removes independent item dictionary references from the stack of 
dictionary references upon which items in the AUTOMATIC chain 
I depend. 

JAdds ON conditions to first automatic zone. 

I Adds temporaries (type 2) and independent items to first zone. 

I Determines list of dependencies for array bound expressions. 

I Determines list of dependencies frc»i INITIAL attribute. 

Determines list of dependencies frcxn DEFINED attribute. 

I Adds dependent items to subsequent zones. 

I Determines list of dependenci^ for string length expressions. 

I Scans AUTOMATIC chain from each ENTRY type 1 entry. 

I Sorts chain in order of dependencies; creates zone delimiter 
dictionary entries. 

Scans second file statements for dictionary references of labels, 
I data items, and structures, which may belong to the current 
I AUTOMATIC chaizus. 
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• Table PT. Phase PT S-borage Allocation AUTOMATIC Storage 

r r r 

I Main Processing] 



Statement or Operation Type 



DVSIZE 



DSALOC 



MKSTAT 



Scans stacked CONTROLLED chain for 
largest dope vector 

Initializes ElfTRY type 1 chain scan| 
and DSA 
\. 

Allocates slots for ON conditions 



Routine 
MYNAM 



Subroutines Used 



i 

H 






Allocates storage for workspace and 
for DSA addressing vector 

Scans AUTCMATIC chain and allocates 
storage. for dope vectors 



DSAU 
DSAIO 



DSA16 



I MKSTAT 
None 

COPY, DVSIZE, INITDV, MKSTAT, 
STDVIN 



^ + 

Allocates BUY workspace |DSA17 

Allocates storage for parameters |DSA19 

Allocates storage for double IDSA25 
precision variables 

DSA29 



--+ 



■H 



None 



None 
None 



Allocates storage for single 
precision variables 

Allocates storage for character |DSA38 
strings and halfword binary 

Allocates storage for bit strings IDSAU6 

Allocates storage for arrays and IDSA54 
secondary dope vectors 

Allocates storage for structures |DSA68 

Gets VDA and initializes dope IDSA72 
vectors for adjustable regions of 
AUTOMATIC chain 

{Allocates storage for DEi'INED items JDSA98 



None 



■H 



None 



None 



^ 

^ 



COPY, INITDV, MKSTAT, SDVCDE 



-H 



■H 



COPY, MKSTAT 

COPY, INITDV, MKSTAT, STDVIN 



None 
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•Table FTl. Phase PT Routine/Subroutine Directory 



I Routine/Subroutine | 
CONTl 
COPY 
DSALOC 
DSA4 
DSA5 
DSAIO 
DSA16 
DSA17 
DSA19 (PO) 
DSA25 (PU) 
DSA29 (PU) 
DSA38 (PU) 
DSA46 (PU) 
DSA54 
DSA68 
OSA72 
DSA74 
DSA98 
DSA161 
DSA162 
DSA952 
DVSIZE (PU) 
INITDV 
MKSTAT 
MYNAM 
SDVCDE (PU) 



STDVIN 
L 



Function j 

Scans controlled chain for size of longest dope vector. 
Compiles code to copy skeleton dope vector into real dope vecror. 
Initializes ENTRY type 1 chain scan and DSA. 
Allocates slots for ON conditions. 
Allocates standard save area and flag bytes. 
Allocates storage and workspace for DSA addressing vector. 
Scans AUTOMATIC chain and allocates dope vectors. 
Allocates BUY workspace. 
Allocates storage for parameters. 
Allocates storage for double precision variables. 
Allocates storage for single precision variables. 
Allocates storage for character strings and half word binary. 
Allocates storage for bit strings. 

Allocates storage for arrays and secondary dope vectors. 
Allocates storage for structures. 

Initializes dope vectors for adjustable regions of AUTOMATIC chain. 
Stores pointer to skeleton second file stat«aent. 
Allocates storage for DEFINED items. 
Allocates storage required for dope vectors. 
Compiles code to initialize dope vectors. 
Gets VDA for this region of AUTOMATIC chain if required. 
Determines size of dope vectors. 

Ccunpiles code to initialize address slot in dope vector. 
Makes a second file statement. 
Scans CONTROLLED chains. 
Compiles code for secondary dope vectors. 



{initializes structure member dope vectors. 
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Table QF. Phase QF Storage Alloca-tlon Prologues 

Main Processing 
S-ta-tement or Operation Type | Routine 






QBEGEP, QBPROL, QEOP, QMOVE, QPROL, 
QSL 



Scans text for statement labels, IQFOOOO 
PROCEDURE Statements, begin 
statements, BEGIN END statements, 
and end- of -program marker 

Processes statement label I QSL IQMOVE 

pseudo-code items 

QEOP 



Frees text storage at end of phase; 
releases control 



Creates stereotyped prologue for a 
BEGIN block requiring a dynamic 
storage area 

Creates stereotyped or special IQPPROL 
prologues for PROCEDURE statements, 
depending on conditions. Processes] 
statement label pseudo-code items 



QMOVE 



QBPROL 



Subroutines Used 



QADJAL, QFSKIP, QF0201, QMOVE 



QADJAL, QFSKIP, QF0201, QMOVE, 
QONPRL 



1 



■H 



Creates a compiler label marking JQBEGEP 
the return from a BEGIN block 



QADJAL, QF0201, QMOVE 



Creates a prologue for ON block 



Assembles code to initialize DSA 
dope vector data areas, and to 
allocate variable data areas 



QONPRL 
QADJAL 






QADJAL, QFSKIP, QF0201 
QMOVEl 



H 



Skips second file statements 
following a block heading statement 



QFSKIP I None 



Obtains new buffer and chains it to 
the previous one 



QF0201 



None 



\ 

^ 



Moves input text being skipped from 
input buffer to output buffer 



Moves a second file statement, 
pointed at by PARI, to the prologue 
being generated 



QMOVE 
QMOVEl 



None 



QMOVE 
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Table QFl. Phase QF Routine/Subroutine Directory 






i Routine/Subroutine | 



Function 



1 



QADJAL I Assembles code to initialize DSA dope vector « variable data areas « 

I and to allocate variable data areas. 

QBEGEP {creates a compiler label marking the return frcnn a BEGIN block. 

QBPROL (QG) (Creates stereotyped prologue for a BEGIN block requiring a dynamic 
(storage area. 

QEOP (Frees text storage at end of pheise; releases control. 

QFSKIP (QG) (Skips second file statements following a PROCEDURE or BEGIN 
(statement. 

gpOOOO (Scans text for statement labels, PROCEDURE statements, BEGIN 

(statements, BEGIN END statements, and end-of- program marker. 

QF0201 (QG) (Moves code to output buffer; obtains new buffer if required. 

QF0360 (Tests for external procedure. 

QF0370 (Generates prologue for GET DSA. 

QF0570 (Generates code to copy argument and target addresses. 

QF0625 (Tests for entry points. 

QF0860 (Tests end of chain. 

CF1172 (Tests end of first region. 

QF1194 (Extracts mapping code from second file. 

QF1215 (Tests for storage required. 

QF1511 (Removes VDA accumulator assignment code from mapping code. 

QMOVE (Moves text from input buffer to output buffer. 

QMOVEl (Moves second file statement to prologue being generated. 

QONPRL (QH) (Creates prologue for ON block. 

QPPROL (QG) (Creates stereotyped or special prologues for PROCEDURE statements, 
(depending on conditions. 

QSL (Processes statement label pseudo-code items. 
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Table QJ. Phase QJ Storage Allocation Dynamic Storage 



Statement or Operation Type 



Main Processing' 

Routine | Subroutines Used 



General scan of text for ALLOCATE « 
BUY and FREE statements 



GSl 



ALLOC, BUY, BUYP, FREE, TRFl. 



Allocates items not requiring dope 
vector 



AL20 



AL15, TRF2 



Generates code to move skeleton 
dope vector into workspace for 
controlled variables 



MOVEDV 



TRF2 



h 



Looks ahead to reverse pointers for 
ALLOCATE Statements 



REVPT 



GSl, TRPl 



Allocates storage for controlled 
string 



Allocate storage for controlled 
array 



— + 



Allocates storage for controlled 
structure 



AL28 
AL27 
AL29 



GSl, LIBCl, LIBC2, SCANSF, TRF2 



ABOUND, LIBCl, MOVEDV, PREVAL, 
SCANSF, TRF2 



•-4 



BNDEXP, LIBCl, MOVEDV, NXTREF, 
NXTVAR, PREVAL, SCANSF, TRP2 



Loads Library call parameter 
register to free allocated storage 



FREE 



TRF2, TRF3 



Moves skeleton dope vector for 
bought temporary 



BUYP 



TRF2 



Buys storage for temporary array 



BYIU 



SCANSF, TRF2 



Buys storage for temporary 
structure 



BY13 



LIBCU, NXTREF, NXTVAR, SCANSF, TRF2 



Places initial value code line for 
controlled variables 



AL15 



NXTRF, SCANSF 



Skips scan register over 
initialization statements 



SKIPTX 



GSl 



h 



Generates code to set a pointer to 
the previous allocation. 



PREVAL 



TRF2 



Searches dimension tables for 
adjustable bound expressions 

Generates code for temporary 
variables requiring only a dope 
vector 



ABOUND 
STMP 



SCANSF 
LIBC3, TRF2 



—J 
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Table QJl. Phase QJ Routine/Subroutine Directory 

I Routine/Subroutine j Function 

Searches dimension tables for adjustable bound expressions. 



ABODND (QK) 
ALLOC (QK) 
AL15 

AL20 (QK) 
AL27 (QK) 
AL29 (QK) 
BNDEXP 

BUY 

BOYP 

BY13 

BYll» 

BY15 

FREE (QK) 

GSl 

LIBC1/LIBC2/LIBCU 

MOVEDV (QK) 

MXTREF (QK) 
NXTVAR (QK) 
PREVAL (QK) 
REVPT 
SCANSF 
SKIPTX 
STMP (QK) 

TRFl 
TRP2 
TRF3 



Ascertains the type of allocate statement. 

Places initial value code line for controlled variables. 

Allocates items not requiring dope vector. 

Allocates storage for controlled arrays. 

Allocates storage for controlled structures. 

Generates or extracts code to set the adjustable bounds of 
structures . 

Ascertains the type of buy. 

Moves skeleton dope vector for bought temporary. 

Buys storage for temporary struct vure. 

Buys storage for temporary array. 

Buys storage for tenqporary string. 

Loads Library call parameter register to free allocated storage. 

General scan of text for ALLOCATE, BUY, and FREE statements. 

Places the library calling sequence for controlled storage in 
sequence in the text. 

Generates code to move skeleton dope vector into workspace for 
controlled variables. 

Cft>tains the next structure base element reference. 

Obtains the next varying array base element reference. 

Generates code to set a pointer to the previous allocation. 

Looks ahead to reverse pointers for ALLOCATE statements. 

Places second file statement in the line in the text. 

Skips scan register over initialization statements. 

Generates code to buy storage for temporary variables which only 
require a dope vector. 

Transfers input text to output. 

Adds text skeletons to the output text. 

Adds the Library Calling sequence to the output text. 



.-J 
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•Table QU. Phase QU Alignment Processor 

T -T 

Main Processing 
Statement or Operation Type | Routine 






ALIGNQ 



ALREGQ , MVCMAK, REGENT 



MVCMAK 



ABEOT , NEXREG , OUTEST , PSMOVE , REMOVE , 
SNEXT, TRANS 



-^ 



Tests pseudo-code instructions for 
misaligned operands and deduces the 
correct alignment 

Generates a move character (MVC) 
instruction for a misaligned 
operand 

- - - T3 

1. 

TLA 



Skips a pseudo-code item 



Processes the load address (LA) 
pseudo-code instruction 



Processes the library calling 
sequence in the pseudo-code 






TLTB 



Subroutines Used 



— ^ 



TNEXT 
TRR 



ABEOT, T 3 



-^ 

-H 



^ 

ALIGNQ, ALREGQ, OUTEST, PSMOVE , REMOVE , 
SNEXT, TRANS, TRR 

ALIGNQ, TRRS 



Processes the L pseudo-code 
instruction 

Processes pseudo-code instructions, 
other than L and LA, that may have 
misaligned operands 

Examines a pseudo-code item and 
passes control to the appropriate 
processing routine 



TLL 



THT 



TRANS 



T3, TABS , TDROP',TEOP, THT, TLA , TLIB, 
TLL,TRR,TSN 
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•Table QUI. Phase QU Routine/ Subroutine Directory 

I Routine/Subroutine I Function | 

lABEOT (Outputs termination error message. 

ALREGQ I Tests whether or not the register is in the register table. 

NEXREG I Gets a symbolic register. 

OUTEST I Gets a new output text block if required. 

PSMOVE I Fills current output text block and gets a new one. 

REGENT I Makes an entry in the register table for a register that has been 

I loaded with the address of a misaligned operand. 

REMOVE I Copies text into the output text block. 

SNEXT (Accesses next pseudo-code item in the source text. 

TABS I Scans absolute code and copies it onto the output text if necessary. 

TDROP (Removes dropped registers from the register table. 

TEOB I At the end of a source text block, moves out the scanned text and 

(gets the next source text block. 

TEOP I At the end of the program, outputs the remaining text, and releases 

I control. 

TRR (Deletes an assigned register from the register table. 

TSN (Updates the statement number slot in the communications region. 



—J 
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Table QX. Phase QX Print Aggregate Length Table 

I I Main Processing! 

I Statement or Operation Type j Routine | Subroutines Used 

I Scan storage chains in dictionary JSCANC JANAGG, PRNTAB 

I for aggregate entries | | 

Y + + , 

(Analyze aggregate dictionary |ANAGG j ANCOB,EXTENt,FI NALA, FIR STA, FORMAL, 

I entries and print table entry j JGETVO,GETSB,MAKEN,PRHED,SORTEN, 

I I I VOPLUS 



Table QXl. Phase QX Routine/ Subroutine Directory 
j Routine/ Subroutine | 



Function 



—^ 



^ 

JANAGG 

lANCOB 

I EXTENT 

I FINALA 
I FIRSTA 
I FORMAL 
IGETVO 
I GETSB 
IMAKEN 
{PRHED 
I PRNTAB 
I SCANC 

I SORTEN 

I VOPLUS 



+ 



[Analyzes dictionary entries for a major structure or non-structured 
eurray. 

j Finds original major structure dictionary entry for a COBOL major 
structure. 

Calculates length in bytes of a data variable, label, task, event, 
lor area. 

{calculates address of final basic element of a major structure. 

[Calculates address of first basic element of a major structure. 

[Calculates length of a non-structured array. 

Gets virtual origin of a dimensioned variable. 

Sets pointer to BCD in a dictionary entry. 

[Makes an entry in text block for each aggregate. 

I Prints main heading and sub-heading of table. 

[Prints Aggregate Length Table. 

Scans STATIC, AUTOMATIC and CONTROLLED chains in dictionary for 
aggregate entries. 

Sorts text block entry for aggregate so that the entries are chained 
in collating sequence order of the aggregate identifiers. 



Calculates address of first or last element of major structure. 



.-J 
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•Chart 10. Register Allocation Logical Phase Flowchart 



** 



AX********** 
FIRST SCAN RA* 
-*- *-*-■*- *-*-*-* 

ESTABLISH ♦< 
ADDRESSIBILITY • 
* 
**************** 



»****Q1 ********** 

« RD» 

*-*-*-*-*-*-*-*-* 
*SET UP TABLE TO* 
♦DEAL WITH EQU'S* 

* * 

***************** 



****A2********* 
» lOAl 
*************** 



»****C1****** 


**** 


♦SECOND SCAN 
*-•-*-♦-»-*-♦ 


RF^ 

-*-* 


♦ ALLOCATE 

♦ PHYSICAL 

:*.5fSJ§ll5f* 


* 

* 
**** 




*• 


** 




*11 ♦ 

— >» Bl » 



Chapter 3: Flowcharts, Tables, and Routine Directories 3U5 



Chart RA. Phase RA Overall Logic Diagram 



»<- 



♦ GET TEXT FOR 

♦ OUTPUT t 

♦ INSERTION 

♦ FILES. GET 
♦SCRATCH STORAGE* 
***************** 



*****St***** 



***************** 



****H2********* 
> * 

» RAAl * 

*************** 



* Bl » 

* * 
*»** 



PROC/BEGIN 



ACT6 

*****Q2********* 

* STACK 

* INFORMATION FOR 
>» PREVIOUS 

* PROC/BEGIN 



• *** 

* • 
» Bl *<- 

* * 



*****C3* •****•*** 
GET NBN STACK • 
ENTRY FOR NEW • 
BLOCK IN * 
•SCRATCH STORAGE* 
* * 

**•••**••***••*** 



->* 



Dl *. 
.* *. 

*.PROC' /BEGIN' 



*DOWN DATE STACK* 
>* IN SCRATCH ♦ 

* STORAGE • 

* * 
***************** 



.» START ♦. 
♦ OF PL/I ». YES 
STATEMEHT .* 



.♦STATE- MEOT*. YES 

->*.N0. DIAGN RE-.* 

*. QUESTED .* 



DRTEST 

**»**f 2*** ****** 

* EXTRACT 

* DICTIONARY 
>*REFERENCES AND 

* OFFSETS 



♦♦**♦♦♦*♦*•♦♦♦♦* 
♦ ♦♦♦ 

* Bl ♦<-, 

• • 1 
**♦♦ I 

ri2 I 

♦♦♦♦♦G2* •♦****** 



* GENERATE CODE * 
>♦ TO UPDATE *- 

•STATEMENT SLOT ♦ 

♦ ♦ 



.♦ HAS CODE *. YES 
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*. BEFORE .* 



GENFLP 

*****EH*^* 

* GENERATE CODE 

* TO UPDATE 
>*PREPIX ON-SLOTS* 



*•♦* 

♦ ♦ 

♦ Bl ♦<-, 

♦ * 1 

♦ ♦*♦ I 

*****JH*1*****»** 



GENERATE LOAD 
FROM STORED 
ADDRESS 



♦♦♦♦♦♦♦*♦♦♦♦•♦♦*♦ 



* ABSOLUTE 


♦ 


YES 


♦SKIP TO END OF * 


CODE MARKER 






>*ABSOLUTE CODE * 




♦ 




* ♦ 


*. .♦ 






♦ * 


*. .* 








* NO 






♦ *♦♦ 

* ♦ 

* Bl *<-i 

* * 

♦ ♦♦♦ 


.♦. 






ACT13 


HI ♦. 






*****H2* ******** 


.♦ * 






♦START CHAIN TO ♦ 


* PROLOGUE 


♦ 
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♦ AD )RESSING ♦ 


INSERTION 
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*. POINT 


* 




♦INSERTION FILE ♦ 



♦♦♦♦♦G3^*^^^^^^*^ 
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U25 
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>♦ FROM SCRATCH * 
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* IN-LINE • 



♦♦♦♦♦•♦♦♦♦♦♦♦♦♦♦♦ 



ADINST 

♦****H4*** ******* 
*IF WORTH-WHILE,* 
*PUT INSTRUCTNS * 

* IN INSERTION * 

* FILE PROLOG * 

* ELSE IN-LINE * 
*♦♦♦♦♦•*♦♦♦♦♦♦♦♦♦ 



UtAUU4 V 

♦ ♦♦♦*JI|*^^*^^^*^^ 

♦ IF IN PROLOG, ♦ 
♦GENERATE STORE * 

♦ OF CALCULATED ♦ 

♦ ADDRESS ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



ft 

♦♦♦*J5^ •*•♦♦♦*•< 
GENERATE LOAD < 
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I ♦♦♦♦ 

♦RD ♦ 
l->* Al ♦ 
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•Chart RD. Phase RD Overall Logic Diagram 
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Chart RF, Phase RF Overall Logic Diagram 
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Table RA. Phase RA Register Allocation Addressibility Analysis 

Main Processing! 
j Stateioent or Operation Type 



{Controls scan of source 



k- 



I Subroutines Osed 
4 ^ 

JACTl, ACT2, ACTS, ACT8, ACT9, 
I ACTIO, ADCBUF, GETSBF 



(Obtains next insertion file buffer 



Routine 



LAA 



ACT 3 



lADTEST, DRTEST 



ACTU 



lADTEST, DRTEST 
+ 

ACT15, ACTIU, lADCBDF, GENFLP, UPSN 
ACT16 I 






(Processes RX« RS, or SI 
I instruct icois 

(Processes SS instructions 

(Compiles code for start of PL/I 
(Staten^nt: 1. with label, 2. 
(without label* 3. compiler label 

(Processes PROCEDURE and BEGIN (ACT6 (ADCBUF 

( blocks 

(Processes END statements on 
(PROCEDURE or BEGIN blocks 

ADCBUF ( GETCBF 

ADIBUF ( GETIBF 

GETSBF ( None 
j. 

GETCBF ( None 



ACT7 



ADCBUF 



^ 



(Adds text to output string 

(Adds text to insertion file 

(Obtains new source buffer 
I 

(Obtains next output buffer 



I GETIBF ( None 

(Exeunines dictionary reference in (DRTEST 
( source 

(Produces recovery code when literalJADTEST 
(offset greater than U095 is met 

lADINST (ADCBUF, ADIBUF | 



(ADINST, DECOMP, SETBLK 

I 
4 

(ADCBUF 



H 



(Creates coded addressing 
j instructions 
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Table RAl. Phase RA Routine/Subroutine Directory 

r— --' — ---- -— -T~--— — — • 

I Routine/Subroutine | 



h 



ACTl 

ACT2 

ACT3 

ACTU 

ACTS 

ACT6 

ACT7 

ACTS 

ACT9 

ACTIO 

ACT12 

ACT13 

ACTIU 

ACT15 

ACT16 

ADD/ADD 2 

ADCBOF 

ADIBUF 

ADINST 

ADTEST 

ATD 

DECOMP 

DRTEST (RB) 

DTY 

GENFLP 

GETCBP 

GETIBF 

GETSBF 

LAA 

LI 25 

SETBLK 

UPSN 



1 

I 

— ^ 



Function 
Copies non- special three- byte item to output. 
Copies non-special five- byte item to output. 
Processes RX, RS, or SI instructions. 
Processes SS instructions. 
End of block routine. 
Processes PROCEDURE and BEGIN blocks. 

Processes END statements on PROCEDURE or BEGIN blocks. 
End of source text routine. 
Action of start of common block of prologue. 
Action at end of prologue. 
Copies absolute code to output stream. 
Creates ADI instruction at prologue insertion point. 
Compiles code for start of PL/I statement with label. 
Compiles code for start of PL/I statement without label. 
Compiles code for start of PL/I statement compiler label. 
Generates store of calculated address. 
Adds text to output string. 
Adds text to insertion file. 
Creates coded addressing instructions. 

Produces recovery code when literal offset greater than U095 is met. 
Tests whether previous offset is out of bounds. 
Decodes dictionary reference. 
Examines dictionary reference in source. 
Scans step table and generates addressing instructions. 
Generates code to set bits on and off in a prefix ON- slot. 
Obtains next output buffer. 
Obtains next insertion file buffer. 
Obtains next source buffer. 
Scans input text. 

Moves addressing instructions to IN-LINE. 
Finds block number of referenced item. 



Generates code to keep the statement number slot in the DSA up to 
date. 
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•Table HD. Phase RD Use Determination of all EQUs 

I I Main Processing! 

I Statement or Operation Type . | Routine j Subroutines Used 

{Initializes text blocks for tables | LIMIT |None 

I Scans text |LBUILD |LEQV, LBC, LBAL, LOBR, LEOB, 

I I I LABS, L3BYT, L5BYT, LVARB, 

I j JLSTAT, L2BYT, LEOP 

(Processes EQU items JLEQU JFNDIND 

{Processes BC items JLBC JFNDIND 

(Processes BAL items (LBAL (LOBR, LSBYT 

(Processes any other branch item (LOBR (FNDIND 

(Skips a 2-l:^te iteax |L2ByT (None 

(Skips a 3-byte item ( LSBYT (None 

(Skips a 5-byte item (LSBYT (None 

(Skips a Veuriable length item (LVARB (None 

(Processes a statement number item (LSTAT (None 

(Processes eui EOB item (LEOB (None 

(Scans absolute code (LABS (None 

(Finds the indicator byte emd text (FNDIND (None 

(reference of em EQU value ( ( 

(Ends table build and passes control (LEOP (LSCAN 

(to second section ( ( 

(Scans tables for optiroizable EQUs (LSCAN ( LFLAG 

( Flags EQUs in text as optimizable ( LFLAG ( None 
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•Table RDl- Phase RD Routine/Subroutine Directory 
r- 



j Routine/Subroutine | 
IFNDIND 



I 

I LABS 

I 
JLBAL 

I 
JLBC 

I 
JLBUILD 

I 
JLEOB 

I 
|L£OP 

I 
JLEQO 

I 

j LFLA6 

I 

I LI NIT 

I 
JLOBR 

I 

I LSCAN 

I 
JLSTAT 

I 
JLVARB 

I 
|L2ByT 

I 

I L3BYT 

I 
JL5BYT 

L 



X. 



Function 
Finds indicator byte and text reference of EQU value 
Scans absolute code 
Process BAL itons 
Processes BC items 
Scans text 
Processes EOB items 

Ends table build and passes control to second section 
Processes EQU items 
Flags EQOs in text as optimizable 
Initializes text blocks for tables 
Processes any other branch item 
Scans tables for optimizable EQUs 
Processes statement number items 
Skips variable length items 
Skips 2- byte items 
Skips 3- byte it^ns 
Skips 5- byte items 



._j 
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Table RF. Phase RF Register Allocation Physical Registers 



I 



Stat^nent or Operation Type I 



I Controls scan of text iz9 

t I 

1 I 

I I 

(Processes PROCEDURE or BEGIN 
I statement 



JMain Processing) 
Routine I 



Subroutines Used 



ILPROC 
I 



(ADCBUF, AOIMOV, BRl, BR 3, BRU, 

JGETNXT, LBAL, LBALR, LBCTR, LEOB« 

JLEOP, LRl, LR3« LRU, LR6, LR7, LR9, 
JLSHIFT, 0BRE6S 

(None 



j Processes end of PROCEDURE or BEGIN | LEND 
(block I 



I 
(None 






(BRGUSE, LOADl« STOREl, STORE2, 
I RECUSE 
1. , 

JADCBUF 



{Processes requests for registers; JOBREGS 

I allocates physical registers | 

jconqpiles code to store symbolic |STORE2 

I registers j | 

I Compiles code to store assigned JSTOREI JADCBUF 

I registers | j 

I Compiles load of physical registers | LOADl |ADCBUF 

{compiles load register 

(Expands coded addressing 
I instructions 



(LOADRG JADCBUF 



JADINOV 



JADCBUF 
I 



JAdds to output buffer 



lADCBUF 

.J 



+ 

(None 



\ 

1 

I 



Table RFl. Phase RF Routine/Subroutine Directory 



r T 

I Routine/Subro\itine | 

{ADCBUF 



— 1 
I 



Function 



lADIMOV 

I 

I BRGUSE 

I 

JBRl (RH) 

I 

|BR3 (RH) 

I 

|BR4 (RH) 

I 
IFRTEST 

I 
JGETNXT 

I 

JLADl (RH) 

I 

I LB (RH) 



Adds to output buffer. 
Expands coded addressing instructions. 
Tabulates use of base register in look-ahead. 
Processes RX branch instructions. 
Processes BCT instructions. 
Processes RR branch instructions. 

Scans list of free registers to make even-odd pair. 
Obtains next block. 

Processes ADl (addressing) instructions, 
i Constructs and puts out completed instruction. 



—J 
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Table RFl. Phase RF Routine/Subroutine Directory (cont'd) 

Function 



j Routine/Subroutine j 



h 



LBAL (RE) 
LBALR (RH) 
LBCTR (RH) 
LDROP (RH) 
LEND (RH) 
LEOB (RH) 
LEOP 
LOADl 
LOADRG 
LPROC (RH) 
LRl (RH) 

LR3 (RH) 
LRU (RH) 
LR6 (RH) 

LR7 (RH) 
LR9 (RH) 

LSHIFT (RH) 
OB560(RG) 
OB630 (RG) 
OB895 (RG) 
P9INIT (RH) 
OBREGS (RG) 
REGUSE 
STOREl 
ST0RE2 
W4 (RH) 
Z9 (RH) 



■+— 



Processes BAL instructions. 

Processes BALR instructions. 

Processes BCTR instructions. 

Processes DROP pseudo- instruction. 

liOads end of PROCEDURE or BEGIN block. 

Processes end-of-block marker. 

Processes end-of-program marker. 

Compiles load of physical registers. 

Compiles load register. 

Processes PROCEDURE or BEGIN statement. 

Processes instaructions in which first and second operands require 
loading, and the first is altered, e.g., AR. 

Processes floating-point instructions. 

Processes SS instructions. 

Processes instructions where a load of first operand is required, no 
operands are changed, e.g., ST. 

Processes SI instructions. 

Processes instructions in which no load of first operand is needed, 
and it is changed, e.g., LA. 

Processes shift instructions. 

Tests whether all registers are available. 

Generates stores of registers if branch in or out. 

Generates code to load registers. 

Main text scan. 

Processes requests for registers; allocates physical registers. 

Tabulates use of registers in look ahead. 

Compiles code to store assigned registers. 

Compiles code to store symbolic registers. 

Extracts ADIs at prologue insertion point. 

Controlling scan of text. 



._j 
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•chart 11. Final Assembly Logical Phase Flowchart 



•***A1********* 

• « 

* llBl « 



*PASSt TF* 

* ASSIGN OFTSET * 

* TO lABKLS * 

* • 



•OPT TJ* 

•OFTXHIZE MVC'S • 

* AND BC^S • 

* * 



*****D1********** 
*ESD TO* 

• GBNBRKTB BSD • 

• CMtDS * 

• • 



•••••El********** 
•PASS2 TT* 

♦-*-*-*-*-*-*-*-* 

* 6E1QRATB TV! * 
*AMD lOO CUSCDS • 

• • 
•••*•*••••••***** 



*.*-*-*.•- *.*-*-* 



inKLIZAT 



*************•••• 



••***gx********** 
*RU>/TXT OD* 

•<-•-•-•-•-*-*-*-* 

* GEROIATES RIO * 
•ADD TXT CABOS * 

* • 
•••••••********** 



i^^SSii': 



***************** 



ji •. 
.* *. 

.• •. 

*• LIST TEXT . 
*. .* 

• . .* 
♦ . .• 
• MO 
I •••* 
I *XA * 
L.>* Al 



•- *- *- *m*- •-•-•-• 
>* * 

* LIST TEXT * 



*••••*•***•***•** 



•*** 

*XA * 

->* Al 
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Chart TF. Phase TF Overall Logic Diagram 



• * 

» A3 * 



ILOOOO 

•****A1** ******** 
♦INITIALIZATION.* 

* GET SCRATCH * 

* STORAGE FOR * 

* LABEL TABLE. * 
*GET INPUT TEXT * 
****•*******•*•*• 



• Bl »-> 



IL0003 

*****B1********** 

* GET BRANCH * 

* LIST INDEX * 

* FROM TABLE 1 

* USING CURRENT 

* OP CODE • 
*••*•****••*•*•** 



END 

OF TEXT 

BLOCK 



IL0022 

*****AI| *••**•**** 

* * **•* 

* CHAIN TO * * • 
>• NEXT TEXT ♦ >* Bl • 

* BLOCK * 



»•• 



♦< 



IL002lt « 

*****B2*** ******* 

* GET LENGTH * 

* OF CURRENT * 

* ITEM FROM 

* TABLE 2. BUMP 

* INPUT POINTER * 
******•**•*•*•*** 



*<- 



PROGRAM . • 1 

••*. .*•* ] 
*. ,* V 



•*••* 
*TJ * 
* Al* 



END OF 
PROCEDURE 
. MARKER . 



ILOOIO 

*****C2*** ******* 

* SAVE CURRENT * 

* LOCN COUNTER * 
>« VALUE IN ETl *- 

* OF CONTAINING * 

* PROC (IF ANY) • 
***************** 



ILOOll 

*****D2********** 

* PLACE TOTAL * 

* SIZE OF PROC * 
>* IN LOCNl SLOT *- 

* OP * 

* ENTRY TYPE 1 * 
***************** 



*****C3********** 

* DETERMINE * 

NUMBER OF 

CONS REQOIB__ 

FROM ESTZMATB 

*0F SIZE IN ETl • 

*******••*••*•*•* 



••***03* ********* 

* ADO SIZE OF * 

* PROCEDURE TO * 
->* CURRBIT TOTAL *-• 

* PROGRAM SIZE * 

* * 
***************** 



*****Clt********** 

* * •*** 

* SET LOCATION * * • 
>* COUNTER * >* B2 « 

* TO ZERO * A * * 
• *♦* 



••***D«********** 

• RESTORE * 

LOCATION 



*•*•*•••••••**•*• 



.*. 


IL0015 


1 *. 


*****E2********** 


». 


* PLACE SXZ£ * 


PLBS *. YES 


* OF PROCEDURE * 


OR . * 


>• SO PAR IN * 


PCBS .* 


*L0CN2 OR L0CH3 * 


.* 


♦ SLOT OF ETl * 


». .* 


*•****•***«••••** 



*****E3********** 

* RESET LOCH * 

* COUNTER TO ♦ 
->*ZERO PLUS SPACE*-- 

*FOR AODRESSINS • 

* ADCONS * 
**••••*••*•*•*••• 



*****EI|********** 

* SET PROLOGOB • 

* SNITCH * 
>* ON (PLBS) ♦ J 



.* NON-BRANCH *. YES 

MACHINE . * 

*. INST .* 



.* BRANCH *. YES 

*.OR LOAD ADDR .* 

* . INST . * 



IL0014 

••***F2********** 

* ADD LENGTH OF * 

* INSTRUCTION * 
>♦ TO LOCATION * >* B2 * 

* COUNTER * 

* * 
*«**•*****•***•** 



IL0020 

*****G2********** 
* DETERMINE * 
AMOUNT OF 



«**•***«****••*** 



->* 



*****G3********** 
*ADD TO LOCATION* 
' COUNTER AND * 
SET IN THE *- 
PRECEDING ADR * 



Bl *. 

* 

LABEL 



IL0019 

* ****l]2********** 

* ASSIGN THE * 

* CURRENT * 
>* LOCATION *- 

* COUNTER VALUE * 

* AS OFFSET * 
***************** 



**** 

* * 

♦ A3 * 

• * 
• *** 
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Chart TJ. Phase TJ Overall Logic Diagram 



• « 

• A3 » 

♦ » 



•IHITIALI2ATI0H ♦ 

* * 

« • 



*••• 






* i 


* 


NO 


* 


END 


D2 ♦<- 






OF 


♦ 




• 


PROCRAH 


• *** 






*. .< 



•••**B3** ******** 

* * 

* RELEASE THE * 

* CURRENT TEXT * 

* BLOCK * 

* * 
******•****•••*** 



OPTIMA V 

*****C1********** 
*GET PIRST TEXT * 

* BLOCK. SET • 

* LOCH coamst *< 

* AND PROGRAM * 

* SIZE TO ZERO * 
***************** 



IL0003 

*****D1*** ******* 

* GET BRANCH * 

* LIST IWDEX * 
» FROM TABLE 1 

* USING CURRENT * 

* OP CODE * 
***************** 



*****C2* ********* 



***************** 



« 

•■•1 



***** 
•TO * 
* Bl* 

• * 



*< 



*****Q2********** 

* GET LENGTH * 

* OP CURRENT 

* ITEM PROM 

* TABLE 2. BUMP 

* INPUT POINTER • 
***************** 



*<- 



*****]]3«********* 

* SUSPEND SCAN * 
*POR OTHER THAN * 

-* PROC' AND END * 

* OP TEXT BLOCK * 

* • 
***************** 



END OF 
PROCEDintE 
. MARKER . 



ILOOIO 

*****E2* ********* 

* IF SCANNING * 

* CURRENT PROC * 
>* SAVE LOCH CTR •- 

* VALUE IN LOCNl * 

* SLOT * 
**•****•••******• 



ILOOll 

••***F2*** ******* 

* IF SCANNING * 

* CURRENT PROC, * 
>♦ UM)ATE PROC *- 

* SIZE IN LOCNl * 

* SLOT * 
***************** 



NO 

ILlOOl 
*. *****EI|********** 

,_ *. * EVALUATE NEW ♦ 

* OPTA *. YES * AOCON NEEDS. * 

FLAG ON IN .* >*SET LOCN COUNT *- 

NEM ETl .* * TO ZERO * 

.* * * 

,* ***************** 



E3 



*. 



*****{>3********** 

* IF OPTB FLAG * 

ON, SET OPTA * 



*••**•••*•****•** 



ILllOl 

*****Flt ********** 

* RESTORE • 

* CONTEXT OF « 
>* CONTAINING *- 

* PROCEDURE * 

* * 
***************** 



***• 

* * 

>* D2 ♦ 

1 * • 
**** 



.* MACH. *. 
.*INST. PLBS.*. YES 

*.PCBS, END OP .* 

*. BI^CK .* 



* ALL TREATED * 
>* IN SAME WAY *- 

* AS IN lEMTF * 

* • 
•*••******•*•**** 



* ASSIGN NEW * 
>• OFFSET TO *- 

* LABEL * 

* * 
•****•*•*****•*** 



• *** 

* * 
>* D2 ♦ 

* * 
**** 



IL0027 

*****J2* ********* 

* IF PREVIOUS * 

* INST WAS HVC, * 
>* ATTEMPT TO * 

* COMPRESS * 

* * 
•******•*****•**• 



.* CHANGE *. 

->*. FROM > 4096 . 

*.T0 < HOW.* 



• *•* 

* * 

* D2 * 

* • 
**** 



*****]Iil ********** 

* SET OPTB ON • 

* IN ETl OF * 
->* CURRENT PROC. *- 

* SET REPEAT * 

* SWITCH * 
***************** 



**** 

* * 

* A3 * 

* * 
*•** 



* D2 * 

* * 
*•** 
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Chart TO. Phase TO Overall Logic Diagram 



•****B1* ********* 

* • 

* GENERATE BASE * 

* FOR ESD EWTRY » 

* MAMES * 

* * 
***************** 



MAKE 6 * 

STANDARD * 

ESD ENTRIES * 

• 
*******••****••• 



*****ni********** 



*THE MAIN CSECT * 
*IF EXT PROC HAS* 
* 'MAIN' OPTION ♦ 

***************** 



LGOOl 

*•***£!*******•** 

* MAKE LD TYPE * 
*ENTRy FOR NAMES* 
*0F ALL ENTRIES * 
*T0 THE EXTERNAL* 

* PROC * 
***************** 



LG030 

*****F1* ********* 

* MAKE PR TYPE * 
*EWrRY FOR OISP * 

* P.R. OF EACH * 

* BLOCK IN THE * 

* COMPILATION * 
***************** 



LGOSO 

*****G1* ********* 

* SCAN * 

* EXTERNAL * 
— >* SECTION OF * 

* STATIC CHAIN * 

* * 
***************** 



.*. 

HI *. 

.♦ *. 

.♦ *. H 

*. FILE .*- 

*. .* 

*. .* 

*. .* 

* YES 

'' 
*****J1* ********* 

* * 

* MAKE SD * 

* AND PR * 

* TYPE ENTRIES ♦ 

* * 
***************** 



* SCAN * 

* CONTROLLED *- 

* CHAIN * 

* * 
***************** 



GU *. 
.* DICT *. 
.* ENTRY FOR *. YES 

. DECLARED . * 

*. VARIABLE .* 

*. .* 

*. . * 



$*•*••*•••« 



H2 



*. 



.* EXTERNAL *. K 

->*. VARIABLE OR . *- 

*. CONDITION.* 

*.NAME .* 

*. .* 

* YES 



•****J2* ********* 



***************** 



.* EXTERNAL *. 

->*. ENTRY NAME OR. 

*. FUNCTION .* 



*****J3* ********* 



***************** 



.* DICT *. 
* ENTRY FOR *. YES 

CONTROLLED . * 

*. TEMP .* 



.♦ DICT *. NO 

. ENTRY FOR .* 

ALLOCATION OF 
VARIABLE* 



IL0200 

*****J5********** 

* IREINC • 
*- *. *.*.*. *. •- *. * 

>*GEHERATE STRING* 

* OF LIBRARY * 

* MODULE iMMES * 



*****KS********* 

* 

• PRODUCE ER TYPE* 

RY FOB E 

MODULE 
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Chart TT. Phase TT Overall Loqic Diaqram 



•INITIALISATION • 

• SET SWITCHES • 
•WR l>tmCH/U>AO • 

• OPTIONS • 



• ««« 
ILOOti.4 

•«*«*Bl ********** 



1- 



•••••Bj •«««•««•• 

♦ iJET LENUTH Ot' 

* CURKKNT ITKM 
♦ PROM TA8LE 2. 

• DUMP 

• INPUT POINTER 



ILUOIO 

••***C2*** ****** 

• SAVE CUHRKNT 

• LOCH CTR IN 
>* LOCNl SLOT OF 

* CONTAINING 

* PROCEDURE ETl 



ILQOIl 



END OP *. tES 

PROCEDURE . • 

. MARKER .* 



CLEAR 
*TBXT BUFFER. 

> RESTORE LOCN 

• COUNTER FROM 
LOCNl IN ETl 



ILdOlS, 
IL0016 

••***£2* ****•*«•* 

• UPDATE PROCLC • 
•BY ADDING LOCN • 

>• COUNTER AND »- 

• ROUNDING UP • 

• TO FULL WORD • 



•L0CN5 » PROCLH • 

•PROCLC = PROCLN* 

->*PROCLM » PROCU'*- 

• ♦ LB«UTH OF * 

• PROC( LOCNl) • 



SbT CURKIslN-r 
♦ LOCATION • 

> COUNTER VALUE 
•TO ZERO. CLEAR* 
TEXT BUFFER 



•****D3********** 

« • ••«« 

•RESTORE PRCCU" • • ♦ 

->• FROM LOCNS ♦ • >• BJ • 

• L0CN3 IN BTI • A • • 

*•** 



iJENTXT 

••***B3* ••••*•••» 

• iSENERATE TEXT * 

• AND RLD FOR • 
>* THE REQUIRED • J 

* NUMBER OF • 

* AOCONS • 



Fl *. 


• GENERATE 


• « 


MACHINE *. YES 


• TEXT AND RLD 


• • • 


INSTRUCTION .• 


>» INFORMATION 


• >• B2 • 




* AND PLACE IN 


• * • 


* • • • 


• TEXT BUFFER 


• •*«• 



•IS CCMPILES*. 

SUBROUTINE . < 
•. HANTED .• 



* MARX CURRENT 



*•••* 

♦ UA ♦ 

• A2» 
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Chart UA. Phase UA Overall Logic Diagreun 



>•**«**** 



*****A3* ********* 



♦INITIALIZATION •- 



***************** 



***************** 



*<- 



UAOIO 

*****C2* ********* 
•START SCAB FOR * 

* ADDRESS * 

* CONSTANT 
* INITIALIZATION * 

* * 
***************** 



. * END OF 
THIS FART 
*. OF SCAN . 



-* GET NEXT ITEM *<- 

* * 

« * 

***************** 



.* SIMPLE *. 
. * DATA 
VARIABLE 
•.OR LABEL . 



UA220, 
UA22S, 
UA230 



UAOllt 

♦ TXTMOV* 

*-*-*-*.*-*-*.*-• 



* * 

* * 

* GET NEXT ITEM *< 

* * 

* * 
••****•*••***•*** 



DOES 
ITEM NEED 
. AOCON . 



*-•-*-•-*-*-•-*-• 
.* * 

* PROCESS ITEM. * 

• * 
***•***•*•*•***•* 



****•***••******• 



.* EID 


OF *. YES 


». STATIC .* 1 

*. CHAIN .* 1 

*. •* 1 


*. .* V 


* NO ***** 




*OT • 




* B2^ 








• 


UA021 


7 


*****P3** **«•**•• 


* • 


*RESaME SCAN OF * 


* STATIC 


CHAIN * 



*****cs** ******** 

• TXTMOV* 
*-*-•-♦-•-•-*-»-♦ 

>* • 

• PROCESS ITEM * 



****E5********* 
• « 

» TXTMOV » 



*••*••******•**•* 



»****P5** •**••••« 



***•****•*******< 



. * END OF *. YES 
STATr ' 

• . cha: 



1 



NO •♦♦♦♦ 
•OD ♦ 
• B2* 

* • 



***G5*********** 



*•****•**•***•** 



* GET NEXT ITEM *<- 

* • 

* * 
***************** 



****H5********* 
I « 

• RETURN • 
t « 

•**•***•*•***** 



oAonS, 

OAOSO r 

*****J3*****«**** 

* TXTMOV* 

*-•-*-*-*-•-•-•-* 
* * 

* PROCESS ITEM * 

* * 
*•*•***•••****•*• 
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Chart UD. Phase UD Overall Logic Diagram 



♦INITIALIZE TXT » 

♦ AND RLD CARD * 
♦SKELETONS WITH ♦ 

♦ CSECT NO. OF ♦ 

♦ STATIC ♦ 
♦♦♦♦♦♦♦♦♦♦••♦•♦♦• 



♦♦♦♦♦C2^ ♦♦♦♦♦♦♦♦♦ 

♦ MOVE CURRENT ♦ 

♦ LENGTH OF ♦ 

♦ STATIC FROM ♦ 
♦COMM. REG. INTO^ 

♦ DSAOPF ♦ 
*♦♦♦•♦♦♦♦♦*•**•*♦ 



♦♦♦♦♦D2^ ♦♦♦♦♦♦♦♦♦ 

♦ REFER TO ♦ 

♦ FIRST OR NEXT 

♦ STATIC DSA 

♦ DICTIONARY 

♦ ENTRY ♦ 
*♦♦*♦♦*♦•♦♦****♦♦ 



♦<- 



♦♦♦**E2^ ♦♦♦♦♦♦♦♦♦ 
« GENERATE TXT • 

♦ CARD. OFFSET* ♦ 

♦ DSAOFF. TEXT* ♦ 

♦ DSA LENGTH ♦ 

♦ ♦ 
♦♦♦♦**♦••♦••♦♦♦♦• 



***t*F2* ********* 

♦ ACCESS AUTO ♦ 

♦ CHAIN VIA ♦ 
->♦ ENTRY TYPE 1. ♦ 

♦ SCAN IT ♦ 

♦ * 
♦*♦♦♦♦♦♦•♦♦♦♦♦♦♦♦ 



♦♦♦♦♦D3* ***♦♦♦♦♦* 

♦ UPDATE ♦ 
» DSAOFF BY ♦ 

-♦ LENGTH OF ♦ 

♦ PREVIOUS DSA * 

♦ * 



DELIMITER 



MORE 


♦ 


NO 


♦. . ♦ 




^ 


* 




«*♦♦* 
♦UE ♦ 
♦ A3^ 



NO .♦ ITEM ♦. 

< — ♦. REQUIRING . 

♦DOPE VECTORS 



CORRES- 
PONDENCE 
. DEFINED 



♦ GENERATE 

♦ TXT CARD 
->♦ FOR STRUCTURE 

♦ DOPE VECTOR 



♦ GENERATE TXT ♦ 

♦ CARD DOPE ♦ 

♦ VECTOR AND ♦ 

♦ BU) CARD FOR ♦ 
♦VIRTUAL ORIGIN ♦ 
♦♦*♦♦♦♦♦♦*♦♦♦♦♦♦♦ 



♦♦♦♦♦J5^^ •♦♦♦♦♦♦♦ 

♦ SCAN BASE ♦ 

♦ ELEMENTS ♦ 

♦ GENERATING ♦ 

♦ RLD CARDS FOR ♦ 
♦VIRTUAL ORIGINS ♦ 
♦♦♦♦♦♦•♦♦♦•*•♦*** 
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Chart UE. Overall Logic Diagram 



***************** 






***************** 



»**«****•******• 



C* •• •»i»»c5»»**»»»»»* 

. * *. * * 

.* SIMPLE *. YES * • 

->*.DATA VARIABLE.* >* PROCESS ITEM * 

*.0R LABEL .* * * 

*. .* * * 



.* END OF *. YES * RESUME SCAN • 

->».THIS PART OF .* >*0F STATIC CHAIN* 

*. SCAN .* ♦ * 

», .» * • 



**£!********** 



* GET NEXT ITEM *< ♦. 



***************** 



E2 *. 
.» DOES *. 
ITEM *. 
NEED DOPE .* 
. VECTOR .* 



*****F2 ********** 

* • 

* 4 

* PROCESS ITEM * 

* * 

* 4 

********** **••**« 



-* GET NEXT ITEM *<- 

* * 

* * 
*****•*•*****•*•* 



*****F5* ********* 



>* PROCESS ITEM * 



*********** *****< 



***************** 



***** 
*UF » 
* Al* 



***************** 



*****j 3* ******•*« 



***************** 



IS ITEM *. YES 

INITIAL . * 

,* 



*****jS* ********* 



>* PROCESS ITEM 



***************** 
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Chart UF. Phase UF Overall Logic Diagram 



***************** 



ILQ003 

* GET BRANCH * 

* UST INDEX » 

* ntOM TABLE 1 

* OSING CURRENT • 
OP CODE 



•<- 



**•*•****•••••*•* 



IL0002 V 

*****B2* ********* 

* GET LENGTH OF * 

* CORREHT ITBt * 
• FROM TABIi 2. • 

* BUMP * 

* INPUT POINTER • 
***************** 



ILOOIO 

•****C2********** 

* SAVE CORRENI * 

* LOCH CTR IN * 
>* LOCNI SLOT OF *- 

* CONTAINING * 

* PROCEDURE ETl * 
***************** 



*****C3** ******** 

* SET LOCM CTR * 

* TO EERO AND * 
->*PROCLC (COUNTER*- 



END OF *. YES 

PROCEDOtE . * 

. MARKER .* 



ILOOll 

***02*** ******** 
PRINT * END 
*PROCEDURE AND * 

> ENTRY NAHES ~ 

* AND STATEMENT* 
NUMBER 
**************** 



IL0015, 
IL0016 

***E2*********** 
PRINT PROLOGUE 
* OR * 

> PROCEDURE BASE. ~ 

* SET ♦ 
LOCN CTR ■ 
**************** 



0032 



.* LABEL *. YES 

.OR STATBIBHT .* 

*. MIHBBR .* 



IL0012,IL0013, 

ILOQlUjlLOO-' 

IL00|6,IL0g 

IL0028,IL00;>< 

•«*t*f 2* ********* 
♦SET UP LOCATION* 

* COUNTER AND * 
>* MNEMONIC AND *- 

* HEX OP CODES * 

* IN BUFFER * 
•*****•*••******* 



IL0018. 
IL0019 

***G2*** ******** 
PRINT STATEMENT 
* NiniBER * 

> AND ANY LABEL — 

• IDENTIFIERS * 



***************** 



*****D3********** 



•••****••*****••* 



PRINIT 

***E3*********** 
PRINT LIST 
* or ADCONS * 

> GSmRMED^ 

*FOR AODRSSSING* 
PURPOSES 
**************** 



IL2005 
NM0003 

*****F3* *•*•*•••* 

* IDBITIFY _ * 

* OPERANDS AMD * 
>* EXPRESS IN *- 

*TERMS OF SOURCE* 

* IDEHTIFIERS * 
*******•*•*•****• 



***C<t*** ******** 
PRINT 
* * PROCEDURE * 
> FOLLOVIED BY 
* ENTRY NAMES * 
AND STAT NO, 
**************** 



***FI|*********** 
PRINT LINE 
* AND * 
-> INCREMENT 
* LOCATION * 
COUNTER 
****•********••*. 



**************** 



**** 

* * 
->* B2 « 

* * 
***• 



**•* 

* * 

* B2 * 

* * 
**** 



***************** 



. *IS COMPILER*. 
. SUBROUTINE . 
*. HANTBO .* 



*****J3********** 



***************** 



*****X3********** 






*PRINT LINE WITH* 

* OPERATION * 

* MNEMONIC END * 

* • 
***************** 



**** 
•XA « 
->• Al 
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Chart XA. Phase XA Overall Logic Diagram 



*****A1 *****•**•* 



***************** 



XAOl 

*****A2******** 

* ESTABLISH 

* LEVEL OF 
>» DIAGNOSTIC 

» PRIMT OUT 



**•***•**•*•**•** 





XAl . ♦ . 


•••**B1********** 


B2 ♦. 


* * 


.♦ ANY ♦. 


♦CONSTRUCT PHASE* 


YES .♦ ENTRIES • 


• DIRECTORY TOR »<-- 


♦. TO BE 


♦MESSAGE BLOCKS ♦ 


♦. PROCESSED. ♦ 



♦♦♦B3^*^^^*^*^*^ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦••*♦♦♦•***•** 



♦ ♦♦** 
♦AA ♦ 

♦ HU* 



XAU V 

♦♦♦♦♦Cl^ *♦♦♦♦♦♦♦♦ 

♦ LOAD ♦ 

♦ MESSAGE ♦ 

♦ ADDRESS ♦- 

♦ BLOCK ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦C2^^* ♦*♦♦♦♦♦ 

♦ ♦ 

♦ SCAN ♦ 
>♦ MESSAGE ♦- 

♦ CHAINS ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦C3* ♦♦♦♦♦♦♦♦< 

♦ HAKE UP < 

♦ LIST OF < 
>♦ BLOCKS • 

♦ NEEDED * 

♦ « 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦4 



♦ RELEASE ♦ 

♦ MESSAGE ♦ 
>♦ ADDRESS ♦ 

♦ BLOCK ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦ ♦♦♦ 

♦ ♦ 

♦ DU ♦-> 

♦ ♦ 

♦ ♦♦♦ 



ALL 

ENTRIES 

.PROCESSED. 



♦ ♦♦♦♦ 
♦AA ♦ 

♦ HH* 



GET TO ♦ 

HEAD OF ♦- 

CHAIN ♦ 

♦ 
************* 



LOAD 
NEXT 
BLOCK 



E3 ♦. 

.♦ IS ♦. 

THIS A 

NEW CHAIN 



PRINT OUT 
♦ APPROPRIATE ♦ 
-> SEVERITY 
♦ HEADER ♦ 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦ 



♦ GET TO ♦ 

; — >♦ NEXT ENTRY ♦- 

♦ IN CHAIN ♦ 

♦ ♦ 
♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ *♦♦ 

♦ ♦ 

♦ Gl ♦ 

♦ ♦ 

♦ ♦♦♦ 



.♦ SKELETON 
->♦. IN CURRENT 
♦. BLOCK . 



*****fi2********** 

♦ MESSAGE ♦ 

♦ NUMBER ♦ 

♦ TO PRINT ♦- 

♦ BUFFER ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦**♦♦♦ 



END 
OF 
CHAIN 



♦ ♦♦♦ 
YES • ♦ 
♦ >♦ D» ♦ 



I ♦♦*♦ 

* * 
I— >♦ Gl ♦ 

♦ ♦ 
♦ ♦♦♦ 

XA32 .♦. 

H3 ♦. 
. ♦ HAS ♦ . 
.♦ IT GOT ♦. 1 

>♦. A STATEMENT . ♦- 

♦. NUMBER .♦ 



->♦ 



♦♦♦•♦HO •*•♦*♦♦♦♦* 
» STATEMENT ♦ 

♦ NUMBER ♦ 
TO PRINT ♦ 

• BUFFER ♦ 
t ♦ 
•♦♦♦♦♦♦•♦♦♦♦♦♦♦♦♦ 



♦ ACCESS ♦ 

♦ MESSAGE *- 

♦ SKELETON ♦ 

♦ ♦ 
♦♦♦♦♦*♦*♦♦♦♦♦♦♦♦♦ 



***^*J2* ♦♦♦♦♦♦♦♦* 

♦ ♦ 

♦ SCAN ♦ 
>♦ MESSAGE ♦- 

♦ SKELETON ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦* 



->♦ 



•****J3* *•••♦«**« 

♦ BUILD * 

♦ MESSAGE * 
TEXT IN * 

PRINT « 

BUFFER * 

♦♦♦♦♦♦♦♦♦»♦•♦♦< 



• **jl| *••***♦♦♦♦♦ 

♦ PUT OUT ♦ 

-> DIAGNOSTIC 
• MESSAGE ♦ 

*♦♦♦♦♦♦♦♦•♦♦♦♦•♦ 



.♦. 
KU •. 

.♦ WAS ♦. ♦♦♦♦ 

3 .• THIS ♦. YES ♦ ♦ 

-♦. LAST ENTRY .♦ >♦ D« ♦ 

♦.IN CHAIN .♦ ♦ ♦ 

♦. .♦ ♦♦♦♦ 
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Table TF. Phase TF Final Assembly Pass 1 
r 



T T- 

I Ma in Process ing| 
Routine 1 



I 



Statement or Operation Type 



Subroutines Used 



-H 



Scans text 



j Assigns offsets to labels 

|. 

I Increments location counter for 

I machine instructions 

^ 

I Determines code for instructions 
(which refer to labels 

^ 



|lL002tl 
■+ 

IIL0019 

4 

IILOOIU 



None 



JFINEQl, NEXTSL 



None 



iIL0020 



I FINEQl 



I Initializes location counter at 
I start of procedure 



IILOOIO 



None 



4 

IILOOII 



-^ 



(Stores size of procedure and 
I resumes containing procedure 



None 






._j 



Table TFl. Phase TF Routine/Subroutine Directory 

Function 

Locates label number table entries. 
[Entry point from compiler control. 

Entry point to scan from initialization routine. 

Initializes location counter at start of procedure. 

Stores size of procedure and resumes containing procedure. 

Increments location counter for machine instructions. 

Processes the start of prologues. 

Releases control. 

Assigns offsets to labels. 

I Determines code for instructions which refer to labels. 
I Processes end-of -block pseudo-code item. 

Scans text. 

Deterroines multiple statement label entries in dictionary. 



r T 

I Routine/Subroutine | 

I FINEQl 

ILOOOO 

IL0003 

ILOOIO 

ILOOll 

ILOOm 

IL0015 
IIL0017 
1IL0019 
IIL0020 
I1L0022 
1IL002»J 



NEXTSL 



J 
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Table TJ. Phase TJ Final Assembly Optimization 

r T 

Main Processing 
Statement or Operation Type 



Routine 



Subroutines Used 



Controls phase 



ILOOOO 



OPTIMA 



Maintains location counter for 
machine instructions 



ILOOIU 



None 



■H 



Assigns offsets to labels 



IL0019 



COMRTN, FINEQl, NEXTSL 



Determines code for instructions 
which refer to labels 



IL0020 



FINEQl 



■H 

■H 



Initialize location counter at 
start of procedure 



ILOOIO 



None 



Stores size of procedure for 
machine instructions 



ILOOll 



None 



Reduces number of MVC instructions 



IL0027 



OFFSET, OSMRTN 



Determines offset from a given 
dictionary reference 



OFFSET 



None 



—J 



Table TJl. Phase TJ Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



— H 



COMRTN 

FINEQl 

ILOOOO 

IL0003 

ILOOIO 

ILOOll 

IL0012 

IL0014 

IL0019 

IL0020 

IL002U 

IL0027 

ILlOOl 

ILllOl 

NEXTSL 

OFFSET (TK) 

OPTIMA 

OSMRTN 



Determines whether further optimization is possible. 

Locates label niimber table entries. 

Controls phase. 

Entry point to scan loop from initialization. 

Initializes location counter at start of procedure. 

Stores size of procedure and resumes containing procedxire. 

Processes machine instructions, etc. 

Maintains location counter for machine instructions. 

Assiqns offsets to labels. 

Determines code for instructions which refer to labels. 

Gets pseudo-code item length and updates text pointer. 

Elides MVC instructions. 

Evaluates new ADCON needs. Sets location counter to zero. 

Restores content of containing procedure. 

Looks for equivalent statement labels. 

Determines offset from a given dictionary reference. 

Scans text. 

Scans ahead for literal offsets. 



J 
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Table TO. Phase TO Final Assembly External Symbol Dictionary 



I 

I Statement or Operation Type 



T T- 

Main Processing! 
Routine I 



I Constructs first six standard ESD 
I entries 



Subroutines Used 



LG«t01 



I MOVE, NAME, ERROR 



|. 

{Constructs entries for external 
I procedure labels 



LGOOl 



I MOVE, ERROR 



I Constructs PR type entries for each 
(block and procedure 



H 



LG030 



JMOVE, NAME 



^ 

{Constructs entries for external 
(variables and external entry names 



~+ 

JMOVE, ERROR 



LG050 



I Constructs entries for controlled 

I variables and task names 

|. 

(Constructs entries for Library 
j conversion modules 



LG090 
IL0200 



(MOVE, NAME, ERROR 



--+■ 



IHEINC 



Table TOl. Phase TO Routine/Subroutine Directory 

r T 

j ROUTINE/SUBROUTINE ( 



FUNCTION 



^ 



ERROR 

LGOOl 

LG030 

LG050 

LG055 

LG080 

LG085 

LG090 

LG093 

LG401 

MOVE 

NAME 

IHEINC (TQ) 



Truncates over-length external identifier, generates error message. 

Constructs entries for external procedure labels. 

Constructs PR type entries for each block and procedure. 

Constructs entries for external variables and external entry names. 

Processes ON-conditions and external variables. 

Processes external entry names. 

Processes FILE constants. 

Constructs entries for controlled variables and task names. 

Inserts name in ESD entry for CONTROLLED. 

Constructs first six standard ESD entries. 

Moves ESD entries to card buffers, and puts out buffer when full. 

Generates names for pseudo- registers . 

Constructs a string of Library module names. 



._j 
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Table TT. Phase TT Final Assembly Pass 2 

r T 

Main Processing 
Statement or Operation Type | Routine 



Subroutines Used 



Scans text 



IL0002 



None 



Generates text for RR instructions 



IL0012 



GENTXT 



Generates Text for RX non-branch 
instructions LM, STM, and SI Types 



IL0013 



EOBRTN, GEWTXT, OFFSET 



Generates text for shift 
instructions 



IL0027 



GENTXT 



Generates Text for SS instructions 



ILOOIU 



EOBRTN, GENTXT, OFFSET 



Sets up trace information and 
numbers compiler labels 



f 



IL0019 



GENTXT 



Generates text for branch and load 
address instructions 



IL0020 



FINEQl, GENTXT, OFFSET 



Initializes location counter at 
start of procedure 



ILOOIO 



PUNCHT 



Resumes containing procedure at end 
of procedure 



ILOOll 



PUNCHT 



Moves Text into card image 



GENTXT 



PUNCHT 



Punches cards ensuring that RLD 
cards follow related TXT card 
|. 

I Generates text for compiler 

! subroutine 

L 



PUNCHT 



CARDOU 



INCLUD 



GENTXT 
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Table TTl. Phase TT Routine/Subroutine Directory 

I Routine/Subroutine I Function 

Directs card image to load file or punch file. 



CARDOU 
E03RTN 
FINEQl 
GENTXT 
IL0002 
IL0003 
ILOOIO 
ILOOll 
IL0012 
IL0013 

IL0014 
IL0015 
IL0016 
IL0017 
IL0019 
IL0020 
IL0022 
IL0027 
OFFSET (TU) 



PUiSCfiT 



Chains to next input text block. 

Locates label niomber table entries. 

Moves text into card image. 

Scans text. 

Entry point to scan frc«n initialization routines. 

Initializes location counter at start of procedure. 

Resumes containing procedure at end of procedure. 

Generates text for RR instructions. 

Generates text for RX non- branch branch instructions, LM, STM, and 
SI type. 

Generates text for SB instructions. 

Processes the start of prologues. 

Processes the end of prologues. 

End-of-text routine. 

Sets up trace information and numbers compiler labels. 

Generates text for branch and load address instructions. 

End-of -block routine. 

Generates text for shift instructions. 

Determines offset and relocation pointer from given dictionary 
reference. 

Punches cards ensuring tnat RLD cards follow related TXT card. 
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Table UA. Phase UA Final Assembly Initial Values, Pass 1 



i JMain Processing! 1 
1 Statement or Operation Type | Routine | Subroutines Used 1 
|. + 1 ^ 

1 Scans STATIC chain to beginning of jUAOOl |UA200, UA220, UA230 j 
1 external section | ( | 

Y + + ^ 

1 Initializes scalar variables |UA200 |TXTMOV j 
^ + + ^ 

I Initializes BCD for label |UA220 |RLDMOV, TXTMOV | 
^ + + ^ 

I Initializes DED for temporary JUA230 j TXTMOV | 
1 Initializes address constants. |UA010 jOAIOl, UA403, UAUOa, UAa05, UAMOe | 

1 Initializes address slots for |UA403 |RLDMOV, TXTMOV | 
1 external variables | j | 

1 Initializes address slots for |UA401 |RLDMOV, TXTMOV | 
1 functions and programmer-defined j j | 
j ON-condition names | | | 

1 Initializes address slots for label |UAU04 |RLDMOV, TXTMOV | 
j constants 1 j I 

1 Initializes address slots for entry |UAU05 | RLDMOV, TXTMOV | 
[labels 1 1 1 

J Initializes file attribute entries |UAU06 | RLDMOV, TXTMOV | 
land files II 1 

{Initializes constants pool |UA014 | RLDMOV, TXTMOV ( 


1 Initializes dope vector skeletons |UA021 | TXTMOV | 
1 Initializes argument lists |UA025 | RLDMOV, TXTMOV | 
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Table UAl. Phase UA Routine/Subroutine Directory 

r T ^ 

I Routine/Subroutine I Function | 

Moves card images to punch and/or load file. 

Moves RLD entries to card buffer. 

Moves TXT entries to card buffer 

Entry point from compiler control. 

Scans STATIC chain to start of external section^ to initialize 
scalar variables. 

Return point for branches taken in first scan. 

Initializes address constants. 

Return point for branches taken in second scan. 

Initializes constants pool. 

Initializes dope vector skeletons. 

Produces text for dope vector skeleton. 

Initializes argument lists. 

Return point for branches taken in last scan. 

Initializes symbol table entries. 

Initializes one-word CSECT •IHEMAIN* . 

Exit from UA to compiler control and UD. 

Initializes scalar variables. 

Initializes BCD for label. 

Entry to label routines for label variable BCDs. 

Initializes DED euid FED for temporary. 

Initializes address slots for functions and programmer-defined 
ON-condition names. 

Initializes address slots for external variables. 

Initializes address slots for label constants. 

Initializes address slots for entry labels. 

Initializes DECLARE control blocks for files and file attributes 
entries. 

Makes text for file attributes entry. 

Initializes array variables. 

Initializes arrays of varying strings. 

Initializes bit arrays. 

Completes packing of bit strings in structures or arrays. 



1 OUTPUT 
1 


(UB) ji 


1 

1 RLDMOV 
1 


(UB) |] 


1 

JTXTMOV 

1 


(UB) |] 


1 
JUAOOOO 




jUAOOl 
1 




1 

IUA0015 

1 




1 UAOIO 
j 




IUA013 

1 




IDAOIU 
j 


(UC) 1 


IUA021 
1 




IUA0215 
1 


(UC) 1 


IUA025 
1 




1 

IUA033 

1 




IUA080 
1 


(UC) 1 


1 

lUAlOO 


(UC) 1 


1 

lUAlOOA 
1 




1 

IUA200 




1 
IUA220 


(DC) 1 


IUA225 
1 


(UC) 1 


IUA230 
1 


(UC) 1 


1 

1 UAUOl 

1 




! 

iUA403 
1 




1 

1 




IUA405 
1 




lUAdoe 
1 




1 

IUA407 
1 




1 

j UCINIT 

1 


(UC) 1 


1 

1 UCUPDT 

1 


(UC) 1 


1 

IUC0080 

1 


(UC) 1 
1 


1 1 
I TIDY (UC) 1 
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Table DD. Phase UD Final Assembly Pseudo-Code Static OSA's 



Statement or Operation Type 



JMain Processing! 
Routine 



Subroutines Used 



-H 



(Scans STATIC DSA chain |A1 

(Scans STATIC DSA's AUTOMATIC chain jAUTO 



AUTO 



iDAT,LAB,STRUC 



(Initializes dope vectors for data (DATLAB 
(items and label variables j 

( (unstructured) j 

(Initializes dope vectors for (STRUC 

( structures ( 

L J. 



j TXTMOV ( UB ) , R IDMOV ( UB ) 

( 

( 

( TXTMOV ( UB ) , TLDMOV ( UB ) 






.-J 



Table UDl. Phase UD Routine/Subroutine Directory 



r T- 

( Routine/Subroutine | 
^ 



Function 



-i 



JAl 

( 

(AUTO 

( 

j DATLAB 

( 

( STRUC 

I 
(UDOOO 

( 

lUDEND 



Scans STATIC DSA chain. 

Scans STATIC DSAs AUTOMATIC chain. 

Initializes dope vectors for data items and labels. 

Initializes structure dope vectors. 

Entry point 

Releases control. 



—J 
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Table DE. Phase UE Final Assembly Initial Values, Pass 2 
r 



T T 

Main Processing 
Routine 



Statement or Operation Type 



Scans STATIC chain to beginning of 
external section 



UAOOl 



Subroutines Used 
UA200, UA220, UA230 



-^ 



Initializes scalar variables 



UA200 



TXTMOV (UB) 



Scans STATIC chain to initialize 
internal dope vectors 



— + 



UA003 



UA300, UA320, UA3U0, UA360, UA365 



Initializes dope vectors for 
internal strings 



UA300 



RLDMOV (UB), TXTMOV (UE) 



Initializes dope vectors for 
internal data arrays 



Initializes dope vectors for arrays 
of varying strings 



Initializes dope vectors for 
internal label arrays 



UA320 


1 RLDMOV (UB), 
1 


TXTMOV (UE) 


UA3U0 


1 

1 TXTMOV (UB), 

1 


UCUPDT (UC) 



UA360 



RLDMOV (UB), TXTMOV (UB) 



-^ 



-H 



H 



Initializes dope vectors for 
internal structures 



UA365 



UA300, UA320, UA360 



Initializes arrays 



— + 



UA030 



RLDMOV (UB), TXTMOV (UB) , 
UCINIT (UC) 



.^_^ 



Initializes structures 



Initializes one word CSECT 
•IHEMAIN* 



UAOUO 
UAIOO 



-^ 






TXTMOV (UB), UA200, UC0800 (UC) , 
TIDY (UC) 

OUTPUT, RLDMOV, TXTMOV (all in UB) 



■H 



Initializes CSECT for STATIC 
external variables 



UAIOO 5 



OUTPUT (UB), UA030, UA200, UA300, 
UA320^ UA360, UA365, UA«t01, UAa06 



UA120 



Makes up EllD card and terminates 
phase 

I Initializes array variables | UCINIT (UC) 
L X 



OUTPUT (UB) 

I TXTMOV (UB), UC0080 (UC), TIDY (UC) I 
J. J 
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Table UEl. Phase UE Routine/Subroutine Directory 



r T" 

I Routine /Subroutine | 



Function 



AREA 

EVENT 

TAt3K 

UAOOO 

UAOOl 

UA0015 
UA003 

UA021 

UA030 

UA031 

UA033 

UA03U 

UA040 

UAIOO (UC) 

UA105 

UA120 

UA200 

UA207 

UA300 

UA320 

UA340 

UA360 

UA365 

UA401 

UAU06 

UA1005 



Initializes AREA variables. 

Initializes EVENT variables. 

Initilizes TASK variables. 

Entry point from UA and compiler control. 

Scans STATIC chain to start of external section, to initialize 
scalar variables. 

Return point for branches taken in first scan. 

Scans STATIC chain to initialize all dope vectors for internal 
variables. 

Start of scan for arrays and structures. 

Initializes arrays. 

Produces RLD entry for label array virtual origin. 

Return point for branches taken in array scan. 

Produces RLD entry for data array virtual origin. 

Initializes structures. 

Initializes IHEMAIN CSECT. 

Return point for branches taken in external scan. 

Makes up END card and terminates phase. 

Initializes scalar variables. 

Lists label variables. 

Initializes dope vectors for internal strings. 

Initializes dope vectors for internal data arrays. 

Initializes dope vectors for arrays of varying strings. 

Initializes dope verrtors for internal label artays. 

Initializes dope vectors for internal structures. 

Initializes address slots for functions and programmer-defined 
ON-condition names. 

Initializes DECLAPE control blocks for files and file attributes 
entrie? 

Initializes CSECTs for STATIC external variables. 



._j 
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Table UF. Phase UF Final Assembly Object Listing 

r ^ J. 

I Main Processing I 

Statement or Operation Type j Routine | Subroutines Used 

Scans Text | IL0002 | None 

Lists RR instructions |IL0012 |PRINIT, RRRTN 

I Lists RX non-branch instructions |IL0013 |BXRTN, PRINIT, PRNTOU, PRNTVF, 

I I SECOND 

[Lists SS instructions |IL001U |EOBRTN, PRINIT, PRNTOU, SSRTN 

Lists shift instructions |IL0026 | PRINIT, PRNTOU, PRNTVF 

^ + + ^ 

Lists LM and STM |IL0027 (PRINIT, PRNTOU, PRNTVF, SECOND 

iLists SI instXTXCtions |IL0028 |CHARVF, PRINIT, PRNTOU, PRNTVF 

I I SECOND, SSRTN 

ILists branch and load address |IL0020 |IL0013, NAMEIT, NAMEQU, PRINIT, 

instructions | | RRRTN 

ILists labels |IL0019 | NAMEVF, NEXTEL, NEXTSL, 

I JPRNTLC, PRNTOU, PRNTVF, STATMN 

Lists procedure names |IL0010 (NAMEVF, NEXTEL, PRNTOU, STATMN 

Lists ends of procedures (ILOOll (NAMEVF, NEXTEL, PRNTOU 

I Scans ahead for literal offsets; (SECOND (EOBRTN 

inserts second instruction byte ( j 

I into print image j ( 

I Generates listing of text for base (SSRTN, BXRTN (ABSOFF, ADDEND, NAMEIT, NAMEQU, 

I offset pair ( (PRNTVF 

Names generated label number (NAMEQU (DECINT, FINEQl 

Inserts location counter value, and (PRINIT (PRNTLC 

I hexadecimal and mnemonic operation ( ( 

codes in print line j j 

I Moves variable length item into (PRNTVF (PRNTOU 

j variable field part of print line ( ( 

I Lists statement numbers ( STATMN ( STATNO 

Determines name and offset from (NAMEIT (DECINT, HEXINT 
[dictionary reference ( ( 

I Generate listing of compiler (IL0017 (PRNTLC, PRNTVF, PRNTOU 
subroutine ( j 
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Table UFl. Phase UF Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 



Function 



j. 

JABSOFF 
1 




Appends literal offsets to operands in variable part of print line. 


1 

j ADDEND 

1 




Appends signed literal offsets to operands. 


1 

I BXRTN/SSRTN 

1 


Generate listing of text for base offset pair. 


1 

1 CHARVF 

1 


(UG) 


Places one character in variable field of print line image. 


1 

IDECINT 
1 


(UG) 


Converts binary to externally coded decimal. 


1 EOBRTN 
1 




Chains to next input block. 


1 

1 FINEQl 

1 




Locates label number table entries. 


1 

1 HEXINT 
j 


(UG) 


Converts binary to externally coded hexadecimal. 


IILOOOO 
1 




Entry point from compiler control. 


1 

IIL0002 

1 




[Scans text. 


1 

JIL0003 

1 




1 Entry to scan from initialization routines. 


1 

IILOOIO 
1 


(UG) 


1 Lists procedure names. 


1 

IILOOII 

1 


(UG) 


[Lists ends of procedures. 


1 

IIL0012 

1 




1 Lists RR instructions. 


1 

IIL0013 

1 




1 Lists RX non-branch instructions. 


1 
IILOOIU 

1 




(Lists SS instructions. 


1 
IIL0015 

1 




[processes the start of prologues. 


1 

IIL0016 

I 




(Processes the end of prologues. 


1 

IIL0017 

1 


(UI) 


|End-of-text routine, and compiler subroutine listing. 


1 
IIL0018 

1 




1 Processes compiler generated label numbers. 


I1L0019 

1 


(UG) 


1 Lists labels. 


1 
IIL0020 

1 




1 Lists branch and load address instructions. 


1 
IIL0026 

1 




1 Lists shift instructions. 


1 
IIL0027 

1 




1 Lists LM and STM. 


IIL0028 

t 




1 Lists SI instructions. 


1 

IIL0032 




1 Processes SS decimal instructions. 


1 
IIL1003 

t 


(UG) 


1 Prints "♦PROCEDURE" followed by entry names and statement number. 


1 

IIL2005 




1 Identifies operands. 


1 

1 NAWEIT 




|Deteiinin3S name and offset from dictionary entry. 


1 

1 NAMEQO 

1 




1 Names generated label number. 


1 

1 NAMEVF 


(UG) 


(Places a variable name in the print line. 


1 

1 NEXTEL 


(UG) 


(Scans dictionaiY for multiple entry labels. 



-■I 



_J 
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Table UFl. Phase UF Routine/Subroutine Directory (cont'd) 

Function 



r -T- 

I Routine/Subroutine | 



h 



NEXTSL (OG) 
NM0003 (UH) 
PRINI-T (UG) 
PRNTLC (UG) 
PRNTOU (DG) 
PRNTVF (UG) 
RRRTN 
SECOND 

STATMN (UG) 
STATNO (UG) 



Scans dictionary for multiple statement labels. 

Common return point in naming routine. 

Prints location counter value, hexadecimal, and mnemonic op codes. 

Converts location counter to hexadecimal; places it in print image. 

Prints a line. 

Moves variable length item into variable field part of print line. 

Generates RR format listing of text. 

Scans ahead for literal offsets; inserts second instruction byte 
into print image. 

Lists statement numbers. 

Converts statement number to decimal . 
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Table XA. Phase XA Error Message Editor 

r T T 

I I Main Processing) 

I Statement or Operation Type | Routine j 
I- 



Subroutines Used 



I Determines whether error messages |XA 

I are to be printed j 

^ + 

I Scans error message text skeletons |XA8 

I and prints them out j 

L J 



None 



IXA50, XA70, XA90, XAllO, ZUPL 



-•f 



Table XAl. Phase XA Routine/Subroutine directory 
I Routine/Subroutine j 



Function 






|XA 
I 




1 

|XAO 
1 




|XA01 
1 




|XA1 
1 




iXA2 
1 




1 

|XA4 

j 




|XA7 
1 




|XA8 




1 

JXA9 (XB) 

1 


1 

IXA12A 
1 




1 
|XA30 


(XB) 


|XA32 
1 


(XB) 


|XA35 
1 


(XB) 


1 

jXAUO 

1 


(XB) 


|XA50 
1 


(XB) 


|XA70 
1 


(XB) 


1 
IXA90 

1 


(XB) 


1 

IXAIIO (XB) 

1 


1 

I ZUPL 





Determines whether error messages are to be printed. 

Sets severity code. 

Establishes which message types to suppress. 

Counts number of error chains to be processed. 

Puts out messages if there are no diagnostics. 

Prints out "COMPILER DIAGNOSTIC MESSAGES". 

First scan of message chains. 

Scans error message text skeletons and prints them. 

Scans to head of next non-empty chain. 

Selects and prints header for messages of given severity. 

Gets next entry in message chain. 

Builds up first part of message in buffer. 

Accesses message skeleton. 

Puts out completed message. 

Moves message text to print buffer. 

Converts binary statement number to character representation, and 
moves it to print buffer. 

Converts binary numeric value to character representation and moves 
it to print buffer. 

Moves identifier from dictionary entry to the print area. 

Prints a line on SYSPRINT data set. 



—J 
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APPENDIX A; GUIDE TO PHASES AND MODULES 



This appendix relates the logical 

phases, physical phases, and modules 

contained within the physical phases, 

compiler neune is lEMAA. 



JZ 



The 



Builds second half 
phase directory 



PHYSICAL 

PHASE MODULES 

Compiler Control 

AA 

AB 
AC 

AD 

AE 
AF 

AG 



PI 



DESCRIPTION 



Controls running of 
compiler 

Performs detailed 
initialization 

Writes records on 
intermediate file 
SYSUT3 

Performs inter-phase 
dumping as specified in 
the DUMP option 

End of read- in phase 

Controls system 
generation ccxnpiler 
options 

Closes SYSUT3 for 
output, reopens for 
input 



Compile-!-tiroe Processor Logical Phase 

AS Resident phase for 

compile-time processor 

AV Initialization phase 
for compile-time 
processor 

BC BC,BE,BF Initial scan and 

translation phase for 
compile-time processor 

BG BG,BI,BJ Final scan and 

replacement phase for 
compile-time processor 

BM BM,BN Error message printout 

phase 

BO,BV Contain the diagnostic 
messages 

BW Cleanup phase for 

compile-time processor 



Read-In Logical Phas e 
CA 



Read-In phase common 
routines 









CC 


Read-In 


phase common 


AH 


Format annotated 
dictionary dump 






routines 


» 








CE 


Keyword 


tables 


AI,AJ 


Format annotated text 












dump 


CI 


CG,CI 


Read-In 


first pass 


AK 


Closing phase of 
compiler 




CK 


Keyword 


tables 






CL 


CL,CM 


Read-In 


second pass 


AL 


Controls extended 












dictionary compilation 




CN 


Keyword 


tables 


AM 


Phase marking 


CO 


CO.CP 


Read- In 


third pass 


AN 


Controls normal 
dictionary compilation 




CR 


Keyword 


tables 






CS 


CS,CT 


Read-In 


fourth pass 


AT 


Carries out extra 












debugging during 


CV 


CV,CW 


Read-In 


fifth pass 




compiler runs 














Dictionary Logice^ 


Phase 




BX 


48-character set 












preprocessor 


ED 


ED 


Initialization , 



Checks whether Syntax 
Check should terminate 
compilation 



EG 



EF.EG 



subroutine package for 
Declare Pass 2 

Initialization 
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PHYSICAL 

PHASE MODULES DESCRIPTION 



EI 



EL 



EP 



EW 



EY 



FA 



FE 



PI 



EH,EI,EJ First pass over DECLARE 
statemen-ts 



EKyEL^EM Second pass over 

DECLARE statements 



EP Constructs dictionary 
entries for PROCEDURE, 
ENTRY and CALL 
statements 



EV,EW Constructs dictionary 
entries for LIKE 
attributes 

EX,EY,EZ Constructs dictionary 
entries for ALLOCATE 
and for explicitly 
qualified based 
variables. 

FA,FB Checks context of 
source text 

FE,FF Changes BCD to 

dictionary references 

FI Checks validity of 

dictionary references 



FK 


FK 


Rearranges attributes 


FO 


PO,FP 


Constructs dictionary 
entries for 
ON- conditions 


FQ 


FQ 


Checks validity of 
PICTURE chain for PL/I 
functions and the 
TRANSLATE and VERIFY 
functions 


FT 


FT.FU 


Dictionary 
hous e- keeping 


FV 


FV,FW 


Merges second file 
stat^nents into text 


FX 


FX,FY,FZ 


Processes identifiers 



for cross reference and 
attribute listing 



Pretranslator Logical Phase 

GA 6A Constructs DECLARE and 

OPEN control blocks 

GB GB,GC Modifies I/O statements 

GK GK Checks parameter 

matching 



GO 



6P 



6U 



HF 



HK 



HP 



GO 



Preprocessor for second 
check on parameters 



6P,GQ,GR Second check on 
parameters 



GU,GV Processes CHECK 

condition statements 

HF, HG Processes structure 
assignments 

HK,HL Processes array 
assignments 

HP Processes items defined 
using isUBs 



Translator Logical Pha se 
lA 



IA,IB,IC stacks operators and 
operands 



IG 



IK 



IL 



IM 



IG 



IK 



IL 



Processes array and 
structure arguments and 
built-in functions 



First part of 
preprocessor for 
generic functions 

Second part of 
preprocessor for 
generic functions 



IM,IN,IP, Processes generic 



IQ 



functions 



IT 




Processes function 
triples 


IX IX 




POINTER and AREA 
checking 


JD JD 




Evaluates constant 
expressions 


Aggregates Logical 


Phase 


JI JI, 


,JJ 


Structure 
pre-preprocessor 



JI JI,JK,JL 

JK JK,JL,JM 

JP JP 

Optimization Logical Phase 

KA KA, KB 



Structure preprocessor 
Structure processor 
Checks DEFINED chains 



KC 



KC,KC1 



Table handling and 
initialization 

DO temporaries 
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PHYSICAL 




PHASE 


MODULES 


KE 


KE^KEl 


KG 


KG,KG1 


KJ 


KJ 


KN 


KN 


KO 


KO,KP,KQ 


KT 


KT 


KU 


KU,KV 



DESCRIPTION 

DO MAP build 

DO examine 

SOBS TABLE build 

Initialization 

Subscript optimization 
1 and 2 

SCAN utility 

Merge patches and loop 
control 



Pseudo-Code Logical Phase 

LB LB,LC Generates triples to 

initialize AUTOMATIC 
and CONTROLLED scalar 
variables 

LD LD Constructs dictionary 

entries for initialized 
STATIC scalar variables 
and arrays 

LG LGfLH Expands DO loops 

LR LR Fixed decimal 

expression optimization 
and initialization for 
phase LS 

LS LS«LT»LU Converts expression 

triples to pseudo-code 

LV LV Provides string 

handling facilities 

LW LW Initialization for 

phase LX 

LX LX,LY Converts string triples 

to pseudo-code 

MA MA Constructs pseudo-code 

for functions 

MB MB,MC Constructs pseudo-code 

for pseudo- variables 

MD MD Scans for ADDR and 

STRING functions and 
generates code for each 

ME ME Constructs pseudo-code 

for in-line functions 

M6 MG,MH Constructs pseudo- code 

for in-line functions 

MI HlfNJ Constructs pseudo- code 

for in-line functions 



MK 



ML 



MM 



MP 



MS 



NA 



NG 



NJ 



MK 



ML 



NM 



NT 
NU 

OB 



OP 



OS 



MM,MN,MO 



MP 



MS,MT 



NA 



NG 



NJ,NK 



NM,NN 

NT 
NU,NV 

OB,OC 



OD 




OE 


OD,OE,OP 


OG 


OG,OH,OL, 




01 


OM 


OM,ON,00 



OP,OQ 



OS,OT,OU 



Constructs pseudo-code 
for in-line functions 



Processes generic entry 
names 



Processes CALL and 
function procedure 
invocations 



Reorders BUY and SELL 
statements 

Constructs pseudo-code 
for subscripts 

Generates pseudo-code 
for branches, RETURN 
triples, etc. 

Generates Library 
calling sequences for 
DELAY and DISPLAY 
statements 

Generates Library 
calling sequences for 
executable 
RECORD-ori ented 
input/ output statements 

Generates Library 
calling sequences for 
executable 
STREAM-ori ented 
input/output statements 

Pre- processor for NU 

Generates Library 
calling sequences for 
data/format lists 

Processes compiler 
functions and 
pseudo- variables 

Pseudo-code assignment 

Constructs Pseudo-code 
for assignments 

Generates library 
calling sequences 

Generates pseudo- code 
for data type 
conversions in-line 

Generates pseudo-code 
for further in-line 
conversions 

Converts constants to 
required internal form 
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PHYSICAL 

PHASE MODULES DESCRIPTION 

Storage Allocation Logical Phase 

PA PA Puts eligible DSA's 

into STATIC 

PD PD First STATIC storage 

allocation phase 

PH PH Second STATIC storage 

allocation phase 

PL PLfPM Constructs symbol 

tables and DEDs 

PP PP^PO Sorts AUTOMATIC chain 

PT PT,PU,PV Allocates AUTOMATIC 

storage 

QF QF,QG,QH Constructs prologues 

QJ QJ#QK,QL Allocates DYNAMIC 

storage 

QU QU Aligns misaligned 

operands and processes 
half word binary 
operands 

QX QX Lists lengths of 

aggregates 

Register Allocation Logical Phase 

RA RA«RB,RC Processes addressing 

mechanisms 



Final Assembly Logical Phase 



RD 



RF 



RD Flags branches for 
optimization 

RF,RG,RH Allocates physical 
registers 



TF 



TJ 



TF 



TO 


TO,TP,TQ 


TT 


TT,TU 


UA 


UA,UB,UC 


UD 


UD,UB,UC 


UE 


UE.UB.UC 


UF 


UF,UG,UH 


UI 


UI,UG,UH 


Error 


Editor 



XA 



XA 

XA«XB 

XA,XC 

XF 
XG.YY 



Aissembly first pass 



TJ.TK Optimization 



Produces ESD cards 

Assembly second pass 

Final assembly initial 
values, first pass 

Generates RLD and TXT 
cards to set up dope 
vectors for STATIC DSAs 

Final assembly initial 
values, second pass 

Produces listings 

Completes final 
assembly listings 



Determines whether 
there are diagnostic 
messages to be printed 

Constructs the third 
phase list 

Controls the printing 
of messages 

Message address blocks 

Contain the diagnostic 
messages 
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A A . Al 



AL / AN « 



_&L 



AC AM 



>X AC 
Ai. AV 

BC >E >F 

BC Bl iJ 

BM B N BO BP 

Ji 

JI 

BV 



BW_AC 
CA CC 



AE 

Up 

IF EC_ 

EH El EJ 
EK EL EM 

EV EW 
EX EY EZ 
|A_|.| 

liJf 

Fl 
ft 

FO J_P 
IQ 

_FV_FW 
.FX .FY n 

f.k 
CA 
CB CC 



CE .C.C__CJ 
CK CL CM 
CN CO CP 

CS CT 
CV CW 



CK 



!-f^ 



CO 




OP 


CO G» 


ov 


CV 


HF 


HC 


HK 


HL 


_HP 




lA 


IB IC 


IC 




IK 




J^L 




IM 


IN IP 




k 


IT 




IX 




JD 




h-" 


JJ 


JL 


JM JI 



JZ 



KA 



KT 



JK 



."B 
KC 
K| 

.Ki 

KO KP 

KU KV 



_LB LC 



LP 
LC 



LH 



LS 



LT LU 



LV LV 



LW LX 



MA 



MB MC 
MP 
ME MF 



MC MH 



Mi MJ 



MM 



MK 
ML 
MN MO 



LV MP 



MS MT 



NA NB 



NC NH 



NJ NK 



^ REPRESENTS COMPILER PEBUCCINC ROUTINES,AP, AH, Al , AJ OR AT, 
WHICH HAY BE IN PERMANENT RESIPENCE IF REQUESTED 



•Figure 7. PL/I Phase-in-Storage Map 



KT LV 






NM NN 


NI 




NU NV 


OB OC 


OP 




Of OF 


OC OH OL 01 



1-9 M 


ON qo 


Of_ 


QQ 


OS 


or OU 


PA 


PO 




PH 


PL 


PM 


PO 


pp 


PT 


PU PV 


OF 


OC OH 


QJ 


Olt-Q-I: 


OU 




OX 




RA 


RB RC 


RO 




RF 


RC RH 


TF 




TJ 


TK 


^TO 


TP_Jia 


TT 


.-.TU 


UB 


UC UA 

lyo 




UE UP 


yL 


UC UH 




XA 


XB 



XC XF 



XC 
XH 

Xt 

Xi 
XK 

XL 

XO 



Lt. 



XA XC 



XO 

M. 
M. 

XT 

xy 

' XW 

.XX 

YO 
iYY 



AK 



In this phase-in-storage map, modules on 
the sane horizontal line may be in storage 
together. Modules on the same vertical 
line can never be in storage together. 



This map represents the •worst* case, and 
does not always reflect the order of 
loading. 
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APPENDIX B; RBIDHJT TABLES 



There are three resident tables: the 
dictionary, the keyword tables, and the 
phase directory. The dictionary is 
resident through part of the compilation; 
the formats of the dictionary entries are 
fully described in Appendix C. The keyword 
tables are resident during the read-in 
logical phase, and the phase directory 
throughout the compilation. 



ORGANIZATION OF KEYWORD TABLES 



The read-in phase is divided into five 
passes containing the modules shown in 
Figure 8. 

Modules CA and CC contain routines which 
are comnon to all five passes. Successive 
blocks of routines overlay the areas used 
in the first pass by modules CE, CG, and 
CI. The keyword tables are held in 
separate modules (CE, CK, CN, and CR) which 
must each be less than 1,02U bytes (IK) 



long. In this way it is possible to hold 
in storage only those keywords which are 
required for any one pass. The keyword 
tables are constructed in the following 
manner. 

For ease of searching and modifying a 
keyword table, it is organized into tvio 
levels and by keyword length, as shown in 
Figure 9. 

The KEYWD routine is called by one of 
the statement scanning routines, and is 
supplied with a parameter which enables it 
to decide which set of key«iords to look at 
(e.g., statement identifier, ON condition, 
miscellaneous) . It does this by using the 
parameter to extract the required relative 
address (R(A),etc.) from the first level 
directory- The second level directory 
provides the KEYWD routine with the means 
of reaching a table containing keywords of 
correct length; the KEYWD routine calls the 
KEYID routine, which scans the next 
significant item in the source text to 
obtain the length used in this look-up. 



I I 
I CA I 

I I 



1" ~ 


"""""T 


1 CC 


1 


L 


J 



> Common Routines 






[ CE 1 



I CG I 
I _ J 

I 1 
I CI I 

[ J 

Pass 1 



r 1 

I CK I 



I CL I 
[ I 

\ 1 

I CM I 

[ J 

Pass 2 



I CN 



I 



I CO I 
I J 



I CP I 

I I 
I J 

Pass 3 



r 1 

I CR I 
t J 

r 1 

I I 
I CS I 
I t 

L J 



I I 

I CT I 
I I 

L 1 

Pass 4 



r 1 

I CR I 
t J 

r ^ 

i I 
I CV I 

i I 



cw 



Pass 5 



Figure 8. Organization of Read-In Phase 
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First Level 
Directory 



r — 



A».>| 



Ci.> 



Second 
•I Level 
Direc- 
|. ^ tory 

j. ^ 



Figure 9. Organization of Key%rard Table 



Format of First Level Directory 

FSTLVL DC AL2(STATID - FSTLVL) 
DC AL2(ONID - FSTLVL) 



Format of Second Level Directory 



The second level tables contain relative 
addresses, which enable the KEYWD routine 
to reference a third level table containing 
keywords of the correct length. If one of 
these entries should contain zero, then 
KEYWD will interpret this as meaning that 
no keywords of this length exist in this 
table. 



STATID DC FL2*ro* where m is smallest 
length in table 

DC FL2'n' where n is largest 
length in table 

DC AL2(STIai-STATID) 

DC AL2(STLn- STATID) where the 

symbols beginning STL are 
the symbolic addresses of 
the corresponding keyword 
tables 



Format of Third Level Tables 



The third level tables have a prefix byte 
containing the number of entries in this 
particular table followed by keyword 
entries. These consist of the keyword in 
internal code plus the replacement 
character (keywords recognised as such are 
replaced by a single code byte) . 



STLm DC FLl*x* where x is number of 
key%fords in this table 

DC X* 112315* keyword in internal 
code 

DC X*55' replacement in internal 
code 

DC X'393839* 

DC X«5A* 



Seme keywords are not represented by one 
word (e.g., GO TO, BY NAME) euid clearly, 
the mechanism must be modified to cope with 
the second word. This modification is 
achieved by placing a 1-bit into the first 
bit of the first level by using the OR 
logical operation. The presence or absence 
of this bit is tested by the KEYWD routine 
before the suspected keyword is compared. 
If the bit is absent, the pass through the 
routine is qiiick, as there is no 
possibility of an extra level search. If 
the bit is present, the keyword must be 
ccxnpared after the additional bit has been 
removed by the AND logical operation. If 
the ccxnparison is equal, the two bytes 
following the replacement character are 
used as a relative address to reach the 
next level table. 



Format of Entry Requiring Additional 
Comparisons 



DC X'9726* GO ♦ X*1000» 

DC X'40' 

DC AL2(N XTLVL-*) Relative address 
of next level table 

The format of these extra level tables 
is similar to that for the third level. In 
this %«ay, it is possible for national 
leuiguage keywords to replace single words 
by two or more words, if so desired. 
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PHASE DIRECTORY 



The format of a phase directory entry is 
as follows: 



Because of the number of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of neunes of the phases in the 
second half is kept in Phase AA. This list 
is used to pass status indications (i.e., 
whether phases are wanted or not wanted) 
from the first half to the second half. 
Phase JZ uses the list to construct a new 
directory for the second half. 

The phase directory is constructed by 
use of the BLDL macro and a build list. 
The format of the build list is fully 
described in the publication IBM System/360 
Operating System, Supervisor and Data 
Management Services . 

Each entry in the build list is 30 bytes 
long. On returning from the BLDL macro, 
two bytes of the name field and ten other 
bytes of each satisfied entry in the build 
list are used to construct a 12- byte phase 
directory entry in the compiler control 
routines. The build list is destroyed 
after the initialization process is 
complete. 



r — 



I Byte Number | Description 
^ + 

0-1 I Phase name 



Status byte 



-H 



3-4 



5-7 



8-9 



10 - 11 



Concatenation number and 
library identification 

TTR of first text record; 
where TT is the relative 
track number, and R is the 
block number on that track. 
After the phase is loaded, 
these bytes contain the 
absolute address of the 
begining of the phase. 

Total amount of storage 
required 

Length of first text record 
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APPENDIX C; INTERNAL FORMATS OF DICTIONARY ENTRIES 



This appendix describes -the formats of 
dictionary entries during the compilation 
of a sotirce program. The appendix is 
organized in the following manner: 



1. Dictionary Entry Code Bytes 



2. Dictionary Entries for ENTRY Points 



3. Code Bytes for ENTRY Dictionary 
Entries 



4. Dictionary Entries for DATA, LABEL, 
and STRUCTURE Items 



5. Code Bytes for DATA, LABEL, and 
STRUCTURE Dictionary Entries 



6. Format of Variable Information 



7. Other Dictionary Entries 



8. Dimension table 



9. Dictionary Entries for Initial Values 



1. DICTIONARY ENTRY CODE BYTES 



The dictionary is used to communicate a 
complete description of every element of 
the source progrcun, the compiled object 
program, and the compiler diagnostic 
messages between phases of the compiler; 
the text describes the operations to be 
carried out on the elements. 



Each type of element has a 
characteristic dictionary entry, which is 
identified by a code occupying the first 
byte of the entry. In general, each type 
of element has a different code byte, but 
in order to permit rapid identification of 
dictionary entries « the code bytes have 
been allocated on the following basis; 



First Half Byte 

Bit Bit 

Position Value Meaning 

entry has BCD 

1 entry has no BCD 

1* entry is to be chained 
1 entry not to be chained 

2 not a member of structure 
1 m^nber of structure 

3 not dimensioned 
1 dimensioned 

*This bit only applies to Phase FT which 
constructs the storage class chains by a 
sequential scan of the dictionary; later in 
the compiler, items with this bit on are 
added to the storage class chains. 

Second Half Byte 

In the second half byte, the following 
codes have the meanings shown, unless the 
first half byte is X«C« : 



label variable 
task identifier 
event variable 
structure 
data variable 



The second and third bytes of every 
dictionary entry contain the length, in 
bytes, of the entry. If the entry has BCD 
(i.e., the first bit of the entry is zero), 
this length count does not include the BCD; 
instead, the BCD, which follows the main 
body of the entry, is preceded by a single 
byte containing one less than the number of 
characters of BCD. 

Using this general scheme, the code 
bytes allocated for dictionary entries 
appear in the following table. Code bytes 
in the table which have no corresponding 
description are not allocated. 

X*00* Statement label constant 

01 Procedure or entry label 

02 GENERIC entry label 

03 Extextial entry label (entry type U) 
OH Built-in function, e.g., DATE 

05 Temporary variable and controlled 
allocation workspace 

06 Built-in GENERIC label, e.g., SIN 

07 Label variable 

08 File constant 
09 



xn* 


means 


X'C 


means 


X'D* 


means 


X'E« 


means 


X'F* 


means 
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OA 
OB 
OC 
OD 
OE 
OF 



10 
11 
12 
13 
lU 
15 
16 
17 
18 
19 
lA 
IB 
IC 
ID 
IE 
IF 

20 
21 
22 
23 
21 
25 
26 
27 
28 
29 
2h 
2B 
2C 
2D 
2E 
2F 

30 
31 
32 
33 
34 
35 
36 
37 

38 
39 
3A 
3B 
3C 

3D 

3E 
3F 



40 
Ul 
42 
43 
44 



Task identifier 
Event variable 

Data variables (not dimensioned or a 
structure member) 



Dimensioned label variable 



Dimensioned task identifier 
Dimensioned event variable 

Dimensioned data variable 



Label variable in structure 



Task identifier in structure 
Event variable in structure 
Structure item 
Data variable in structure 



Dimensioned and structured label 
variable 



Dimensioned task identifier in 

structure 

Dimensioned event variable in 

structure 

Dimensioned structure item 

Dimensioned and structured data 

variable 

Formed, parameter type 1 



45 
46 
47 
48 
49 
4A 
4B 
4C 
4D 
4E 
4F 

80 

81 

82 
83 
84 
85 
86 
87 

88 
89 

8A 
8B 
8C 
8D 
8E 
8P 



90 
91 
92 
93 
94 
95 
96 
97 

98 
99 
9A 
9B 
9C 

9D 

9E 
9F 



AO 
Al 
A2 
A3 
A4 
A5 
A6 
A7 
A8 
A9 
AA 
AB 
AC 



ON CONDITION entry 



ENTRY type 1 — from a PROCEDURE 

statement 

BEGIN statement entries — entry 

type 1 

ENTOY statement — entry type 1 

Entry type 5 

Entry type 3 

Entry type 2 

Entry type 6 

Label variable formal parameter or 

temporary 

Constant 

File formal parameter or file 

temporary 



Task identifier foinnal parameter 
Event variable formal parameter 

Data variable formal parameter or 
temporary 

Invocation count dictionary entry 



Dimensioned variable formal parameter 

or temporary 

File attribute entry 



Dimensioned task identifier formal 

parameter 

Dimensioned event variable formal 

parameter 

Dimensioned data variable formal 
parameter or dimensioned temporary 



Structured label variable temporary 



Structured task identifier temporary 
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AD Structured event variable temporary 
AE Temporary or formal parameter 

structure 
AF Structured data variable temporary 



BO 
Bl 
B2 
B3 
BH 
B5 
B6 
B7 



B8 
B9 
BA 
BB 
BC 

BD 

BE 

BF 



CO 
CI 
C2 

C3 
CU 
C5 
C6 
C7 
C8 

C9 
CA 

CB 
CC 

CD 
CE 
CF 



5 
6-7 

8-9 



Dimensioned and structured label 
variable temporary 



Dimensioned and structured task 
identifier temporary 
Dimensioned and structured event 
variable temporary 
Dimensioned structure formal 
parameter or temporary 
Dimensioned and structured data 
variable temporary 

String dope vector for temporary 

DED2 entry 

Internal library function, e.g., 

conversion routines 

Compiler label 

Prefix ON list item 

Parameter lists 

Dope vector skeletons 

Symbol table entry or DED entry 

Error message, table entry, workspace 

requirement, STATIC DSA, etc. 

Record dope vector (RDV) entry 

Workspace requirement entry 

Select a member frcnn a generic family 

AUTOMATIC chain delimiter or Dope 

Vector Descriptor (DVD) entry 

ON condition entry 

Label BCD entry 

End of information in dictionairy 

block 



10-11 



12-13 



14-15 I 
16-17 > 
18-19 I 

J 

20-21 



22-23 
24-25 

26-28 



2. DICTIONARY ENTRIES FOR ENTRY POINTS 



Entry type 1 for PROCEDURE. BEGIN, and 
ENTRY Statements 



The format of an entry for a PROCEDURE 
statement is as follows: 

Byte Number Description 

1 Code byte X'80* 

2-3 Length 

4 Level 



29-31 



32-34 



35-37 



38-40 



Count 

Dictionary reference to the 
entry type 1 of the 
containing block 

Dictionary reference of the 
dictionary entry for the 
first label that was 
attached to the PROCEDURE 
statement 

Dictionary reference to the 
entry type 1 of the next 
PROCEDURE or BEGIN statement 
in the source program 

The start of the chain of 
all AUTOMATIC variables 

Dictionary references to 
three dictionary entries 
indicating storage require- 
ments for workspace 

Dictionary reference of 
CHECK list set by phase PO. 

Phase QU re-uses this slot 
and sets it to the offset 
from register 9, at which 
the register allocator 
workspace is to start. 

Dictionary reference of 
NOCHECK list 

Dictionary reference of the 
first symbol table entry for 
this block 

Size of the DSA for this 
block, set in storage 
allocator phase 

Note; Phase MA moves, into 
bytes 27 and 28, the 
dictionary reference of a 
tonporary describing a table 
to be built at execution 
time for the TRANSLATE or 
VERIFY function. 

Offset of the eight words in 
the DSA used for addressing 
the DSA 

Offset of the storage used 
for the parameter list 
necessary in an ALLOCATE- 
FREE statement 

Offset of the t%»o-byte 
switch which is set on entry 
to a procedure and tested at 
a RETURN (expression) 

Offset of the four- byte slot 
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which will contain the 
address of the first 
approximation of the target 
field (the address of the 
implied parameter) 

41-42 Dictionary reference of the 
entry type 1 of the first 
ENTRY statement of the 
procedure. The entry type 1 
for PROCEDURE and ENTRY 
statements of any one proce- 
dure form a circular chain. 
If there are no ENTRY state- 
ments in a procedure this 
slot will contain the dic- 
tionary reference of the 
PROCEDURE'S entry type 1, 
i.e., of the entry in which 
the slot occurs 

U3 OPTIONS code byte 

44-57 Eight 2-byte dictionary 
references to dictionary 
entries for prefix options. 
Only those prefix options 
which are changed within the 
procedure have a dictionary 
reference. The remainder 
are zero. The order of the 
options in this list is the 
same as in the options byte. 
(See "Options Code Byte" in 
Section 3 below) 

60 Options change byte. This 
byte contains a one bit for 
each prefix option which is 
changed within the proce- 
dure. Its format is identi- 
cal with the normal options 
byte 

61-63 Offset of workspace used in 
BUY statement 

64 Optimization byte 

65 2*n where n is the number of 
parameters at this entry 
point 

66 onwards N dictionary references of 

formal parameter type 1 
entries 

The format of an entry for a BEGIN 
statement is similar to the above for the 
first 34 bytes. The initial code byte is 
X'81», and the dictionary reference in 
bytes 8 and 9 is that of the first label on 
the original BEGIN statement, if any. If 
there was no statement label, then the 
statement number occupies this slot. The 
presence of a statement number or statement 
label is indicated by a flag byte in 
position 35. This is set to SN for a 



statement number, or to SL for a statement 
label. Bytes 36-56 contain the same as 
bytes 44-64 in a PROCEDURE entry type 1. 

The format for the entry type 1 derived 
from an ENTRY statement is as follows: 



Byte Number 


Description 


1 


Code byte X'82' 


2-3 


Length 


4 


Level 


5 


Count 


6-7 


Dictionary refe 



8-9 



10-12 



13 



next member in the circular 
PROCEDURE-ENTRY chain 

Dictionary reference of the 
dictionary entry for the 
first label on the original 
ENTRY statement 

The offset of the apparent 
entry point 

2*n where n is the number of 
parameters 



14 onwards n dictionary references to 
the formal parameter type 1 
entries 

The labels on a PROCEDURE or ENTRY 
statement will be placed in the dictionary 
according to the following format: 



Byte Number 
1 

2-3 
4-5 
6-8 
9-10 



11 



Description 

Code byte X'Ol* 

Length 

Hash chain (STATIC chain) 

Pointer to transfer vector 

Statement number. If the 
label is mentioned in an ON 
CHECK list, this slot 
contains the dictionary 
reference of Label BCD Entry 
(X'CE*), which has the 
statement number in bytes 4 
and 5 

Other 1 code byte. (See 
"First code byte - other 1" 
in Section 5 below. ) The 
last bit will always be set 
to one, unless the label is 
the last label for a 
particular statement, in 
which case the last bit will 
be set to zero. 
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12-13 Pointer to entry type 2 

14-16 Spare bytes for final 

assembly. The pseudo-code 
phase dealing with RETURN 
(expression) will insert 
into these bytes a code 
which must be stored in a 
specific slot in the DSA 
whenever the procedure is 
entered via this label. The 
code is used by the prologue 
construction phase. Byte 16 
in the first label for each 
PROCEDURE or ENTRY statement 
will contain the number of 
labels associated with that 
statement 

Block level 

Block count 

Count of containing block 

BCD length-1 

BCD of label 



17 
18 
19 
20 
21 

Entry Type 2 



An entry type 2 describes the data 
attributes of an entry point. The format 
is as follows: 



Byte Number 


Description 


1 


Code byte X*85* . 


2-3 


Length. 


4-5 


Dictionary reference of 
entry type 3 



6-8 



10-12 



Offset, i.e., the position 
of the string dope vector in 
the DSA of the block to 
which the entry belongs. 
This will be zero if the 
item is not a string. 

DATA l^te (see "DATA Byte" 
in Section 5 below) . 

Data information, which is: 

1. with numeric data, the 
precision and scaling, 
left justified 

2. for strings of fixed 
maximum length, the 
binary version of the 
string length in the two 
leftmost bytes of the 
data information 



3. for strings of adjustable 
length, the text 
reference of a second 
file statement giving the 
expression for the string 
length 

13-14 Picture table reference, if 
required. The storage allo- 
cation phase will change 
this to the dictionary 
reference of a DED entry, 
the picture table reference 
being moved into this refer- 
ence if necessary 



Entry Type 3 



Entry type 3 dictionary entries are 
constructed either from an explicit 
declaration or from implicit and default 
rules. Their format is as follows: 

Byte Nugfcer Description 

I Code byte X'84' 

2-3 Length of entry. 

4-5 Dictionary reference of 

entry type 1 of PROCEDURE or 
ENTRY statement. 

6-7 Dictionary reference of 
entry type 2. This 
describes the value returned 
when the label associated 
with this entry type 3 is 
invoked as a function. 

8-10 The offset in the DSA of the 
containing block of the 
first approximation of the 
storage for the value 
returned by this entry 
point, when it is invoked as 
a function. 

II The entry code byte. (See 
"Entry Code Byte" in Section 
3 below) 

12-13 The dictionary reference of 
an item in the AUTOMATIC 
chain of the containing 
block. Entry type 3 entries 
feature in the AUTOMATIC 
chain of the containing 
block. 

14-15 Switch bytes. The pseudo- 
code phase dealing with 
RETURN (expression) inserts 
into these bytes the bit 
pattern of the code which 
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16-17 



18-19 



20 



21 



will signify that entry to 
the procedure was by the 
label associated with this 
particular entry type 3. 
Phase QF will use this to 
create MVI instructions. 

Dictionary reference of a 
SETS list. This will be 
zero if the attribute SETS 
was not specified. The 
format of a SETS list is 
given at the end of this 
section. 

Dictionary reference of the 
dictionary entry for the 
label belonging to this 
entry type 3. 

Status byte. This byte will 
contain X'OO* or X*FO*. 
X'OO* indicates that the 
entry was constructed from 
an ENTRY declaration which 
had parameter descriptions. 
X'FO* indicates the entry 
was constructed either arti- 
ficially or from an ENTRY 
declaration which did not 
have parameter descriptions. 

2*n where n is the number of 
parameters. This is zero if 
the status byte is X'FF' 



22 onwards If the status byte is X*00' 
there are n two-byte 
references of parameter 
descriptions. A parameter 
description is a dictionary 
entry for the particular 
type of item but without a 
BCD. If one particular 
parameter is not described, 
i.e. if there are two 
adjacent commas in the ENTRY 
attribute, then the 
dictionary reference is 
zero. When the status byte 
is X'FO* then an entry type 
3 is only 23 bytes long. 



22+2n- 
23+2n 



DECLARE statement number 



SETS List Format 



Byte Number Description 

1 code byte X'C8* 

2-3 Overall length of original 
BCD entry 



U-5 



6-5+2*nl 



6*2 ♦nl 



7+2*nl 
onwards 



2*nl where nl is the number 
of identifiers in the SETS 
list. If ♦ was specified, 
these bytes contain 2*nl+l. 

Dictionary references of the 
identifiers in the SETS 
list. 

n2, the number of para- 
meters in the SETS list. 

n2 numbers of one byte each. 
These are the parameter 
numbers and will be in 
ascending order. 



Entry Type H 

Entry type U dictionary entries describe 
external entry points. Their format is as 
follows: 

Byte Number Description 

1 Code byte X'03' 

2-3 Length 

4-5 Hash chain, later used 
as the STATIC chain 

6-8 Offset of the load constant 
in STATIC 

9-11 Offset in the DSA of the 
declaration block of the . 
storage for the first 
approximation of the value 
returned. 

12-13 The dictionary reference of 
an item in the AUTOMATIC 
chain of the declaring 
block. Entry type U entries 
are members of the AUTOMATIC 
chain of the declaring 
block. 



14 



15 



The Entry code byte. (See 
"ENTRY Code Byte" in Section 
3 below) . 

The DATA byte. (See "DATA 
Byte" in Section 5 below) 



16-18 Data information which is: 

a) with numeric data, the 
precision and scaling, 
left justified 

b) for strings of fixed 
mcucimum length, the 
binary version of the 
string length in the two 
leftmost bytes of the 
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19-20 



21-22 



23 



2U 



25 



25+2*n 

26+2*n 

27+2*n 

28*2*n 
onwards 



data information 
c) for strings of adjustable 
length, the text refer- 
ence of a second file 
statement giving the 
expression for the string 
length 



Picture table address if 
required. 



Dictionary reference of a 
SETS list 



Status byte. If this byte is 
X'OO' the meaning is the 
same as the status byte in 
an entry type 3. If the 
byte is X*FF' it is implied 
that no parameters were 
described 



2*n where n is the number of 
parameters. This is zero if 
the status byte is X*FF* 



n dictionary references to 
parameter descriptions as in 
an entry type 3 



Level 

Count 

BCD length- 1 

BCD of identifier 



GENERIC Entry Point 



The format for a GENERIC entry point is as 
follows : 



Byte Number 
1 

2-3 
U-5 
6-8 
9-10 
11 

12-ll*2n 



Description 

code byte X'02' 

Length 

Hash chain 

Offset 1 Slot 

DECLARE statement number 

2n, where n is the number 
of two-byte addresses 
following 

Pointers to entry type 4 
or 5, ENTRY labels, or 
BOILTIN entries. These 
entries are made when an 
identifier is given the 
attribute GENERIC. The 
pointers are to the entries 
which contain specifications 
of the various possible 
attributes 



12+ 2n 


Level 


13+2n 


Count 


lU+2n 


BCD length- 1 


15+ 2n 


BCD 


onwards 





3. CODE BYTES FOR ENTRY DICTIONARY ENTRIES 



Entry Type 5 



Entry type 5 dictionary entries describe 
the entry points which are formal 
parameters. They have the same format as 
entry type U except that: 

Byte 1 is X'83' 

Bytes 4 and 5 contain the address of 
the formal pareuneter type 1 entry 

Bytes 6 to 8 contain the offset in the 
DSA of the declaring block of the 
address slot associated with a formal 
parameter 

No BCD is contained in the entry 



ENTRY Code Byte 



This code byte is used in entry type 3, U, 
and 5 dictionary entries. The format is as 
follows : 



Bit Number 

1 
2 
3 
H 
5 



Description 

IRREDUCIBLE 

REDUCIBLE 

USES 

SETS 

SECONDARY 

RECURSIVE 
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Has data attribute 
Not used 



U. DICTIONARY ENTRIES FQ."{ DATA, LABEL, mz 
STRUCTURE ITEMS 



Label Variable's - Obtained fron' DECLARE 
Statement 



Options Code Byte 



Thia code is used in entry type 1 
dictionary entries for PROCEDURL 
stateirents. The format is as follows: 



Bit 


I'J umber 


Description 







REENTRANT 




1 


Oi'J Block 




2 


MAIN 




3 


TASK 




U 


RECURSIVE 




5 


OPTIONS 




6 


Contains RETURN (expres 
statement 




7 


Ei'lTRY name is passed as 
argument 



Optimization Byte 

This code byte is used in entry type 1 
dictionary entries* 

Format of the Optimzation Byte: 

Bit Number Description 

Not eligible for D3A in 
librar\' wor ks pa cf^. 

1 Eligible for DSA in STATIC 
storace. 



Weeds invocation count. 

Needs current file slot. 

Contains asynchronous CALL. 

Indicates ORDER or REORDER 
option 

= ORDER, 

1 = REORDER. 
Default is ORDER 

Not used. 

Not used. 



Byte Number 



2-3 

U-5 



6-8 

9-10 
11 

12 

13 

m 

15 



Description 

Code byte may be X'07', 
X'17', X'27' , X*37' , X'87' , 
X'97', X'A7', X'B7'. The 
Last four cases apply when 
the item occurred in a 
parameter list in a 
PROCEDURE or ENTRY 
statement. In this case, 
bytes U and 5 will contain 
the dictionary reference of 
the corresponding formal 
parameter type 1 entry. In 
the first four cases, bytes 
4 and 5 initially contain 
the hash chain. After the 
scan of the dictionary, this 
slot will be re-used to form 
another chain, e.g., 
AUTOMATIC or STATIC chain 



Length 

Initially contains the hash 
chain. After the dictionary 
scan, this is re-used to 
form another chain, e.g., 
AUTOMATIC or STATIC chain 

Offset inserted by storage 
allocation phase (as for a 
data item) 

DECLARE statement number 

'Other 1' code byte (See 
"First Code Byte - Other 1" 
in Section 5 below) 

'Variable' code byte (See 
"Variable Byte" in Section 5 
below) 

•other 2' code byte (See 
•Second Code Byte - Other 2" 
in Section 5 below) 

•Other 3' code byte (See 
"Third Code Byte - Other 3" 
in Section 5 below) 

'Other U' code byte (See 
"Fourth Code Byte - Other U" 
in Section 5 below) 



lb onwards content determined by 
variable code byte. 
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After variable information 
2 bytes Symbol slot 
1 byte Level 
1 byte Count 
1 byte BCD length-1 

BCD 

With the exception of the 2-byte symbol 
slot, the general format is the same as for 
a structure. 

Dictionary Entries for Data Items 

The format is as follows: 

Byte Number Description 

1 Code byte may be X' OF* , 

X'lF*, X*2F', X»3F*, X«8F», 
X'9F*, X'AF', or X*BF'. The 
last four cases apply when . 
the item occurred in a 
parameter list in a 
PROCEDURE or ENTRY 
statement. In this case, 
bytes U and 5 will contain 
the dictionary reference of 
the corresponding formal 
parameter type 1 entry. In 
the first four cases, bytes 
U and 5 initially contain 
the hash chain. After the 
scan of the dictionary this 
slot will be re-used to form 
another chain, e.g., 
AUTOMATIC or STATIC chain 



2-3 


Length 


4-5 


See above 


6-8 


Offset. 



(See "Format of 
Variable Information" in 
Section 6 below) 

9-10 DECLARE Statement number. 

If the variable has not been 
explicitly declared, this 
number is zero; otherwise, 
it is the statement number 
assigned to the DECU^RE 
statement from which the 
variable was obtained. 

11-16 Six code bytes. These are: 
other 1, variable, other 2, 
other 3, other 4, and data. 
(See "Code bytes" in Section 
5 below for a description of 
these bytes.) 



17-19 Data information, which is: 

1. with numeric data, the 
precision and scaling, 
left justified 

2. for strings of fixed 
maximum length, the 
binary version of the 
string length in the two 
leftmost bytes of the 
data information 

3. for strings of adjustable 
length, the text 
reference of a second 
file statement giving the 
expression for the string 
length 

4. Bit of byte 19 
indicates that the 
temporary is used as an 
argument for halfword 
binary temporaries 



Note; In the case of a 
temporary data variable for 
an argument, the first bit 
of byte number 19 is set to 
1 by phase GP. It is set to 
by phase IM for temporary 
arguments to built-in 
functions and 
pseudo- variables. It is 
examined by phase QU. 

20-21 Symbol slot, containing 

either zero, or one of the 
following: 

1. If the SYMBOL and DED 
bits are not on, and the 
data item has a picture, 
these bytes contain the 
dictionary reference of 
the picture table entry 

2. If the DED bit is on and 
the SYMBOL bit off, this 
slot points at a DED 
entry. If the item has a 
picture, the DED entry 
will contain the picture 
table address 

3. If the SYMBOL bit is on, 
the slot will point at a 
SYMBOL entry. This again 
will contain the pictxire 
address, if specified 



22 



1 byte 
1 byte 



Variable information. The 
contents of these bytes are 
determined by the variable 
code byte. (See "Format of 
Variable Information" in 
Section 6 below) 

Level 

Count 
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1 byte 



BCD length-1 
BCD 



Major and Minor Stmctiare Entries 



These entries do not include base elements, 
i.e., they do not have any data attributes 
or LABEL. Their format is: 



Byte Number 

1 



2-3 
4-5 
6-8 



Description 

Code byte may be X»2E', 
X»3E*, X'AE', or X*BE*. The 
last two indicate that there 
is no BCD attached. When 
the identifier occurs in the 
parameter list of a 
PROCEDURE or ENTRY 
statement, bytes U-5 contain 
the dictionaury reference of 
the formal parameter type 1 
entry. In the case of the 
first two code bytes, bytes 
4-5 of the entry initially 
contain the hash chain. 
This is later modified by 
Phase FT 

Length 

See byte n\imber 1 

These bytes are used by the 
storage allocator; they will 
finally contain one of the 
following offsets: 

1. For structures which are 
parameters, or are 
dyneimically defined, the 
offset from the start of 
the major structures dope 
vector or the minor 
structures dope vector. 

2. For major structures, the 
offset from the start of 
AUTOMATIC or STATIC of 
the address slot which 
will point at the 
structure dope vector 

3. For CONTROLLED 
structures, only that 
specified for minor 



9-10 



11-15 



16 



1 byte 
1 byte 
1 byte 



structures in 1 , above 

For structures in 
STATIC EXTERNAL the 
contents depend on the 
setting of the "dope 
vector required" bit in 
the "other 3" code byte. 
If this bit is off and 
the item is a major 
structure, the slot 
contains the offset from 
the start of STATIC of 
the slot which will 
contain the address of 
the first byte of the 
structure. If the dope 
vector bit is on, the 
slot contains the offset 
from the start of STATIC 
of the address slot which 
will point at the 
structure dope vector. 
The offset slot is not 
used in either of the 
above cases for minor 
structures 



DECLARE number, i.e. the 
statement nximber of the 
DECLARE statement which 
produced the structxxre 

Five code bytes. These are; 
other 1, variable, other 2, 
other 3, and other 4 

Variable information. The 
content is determined by the 
variable code byte, and will 
always include the 
information required for 
structure members. (The 
format is described \inder 
"Format of Variable 
Information" in Section 6 
below) 

After variable information: 

Level 

Count 

BCD length-1 

BCD 
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5. CODE BYTES FOR DATA, LABEL, AND STRUCTURE DICTIONARY ENTRIES 



The First Code Byte - Other 1 



r 

Bit 
No. 

|. 








Description 

Symbol or requires load constant if 
label constant 






Defined on 

Mentioned in CHECK list 

Needs DVD 

Last m^nber in structure 

Variable dimensions 

* dimensions 

♦ string length for data Item 

— More labels follow for a label 
constant 

Major Structure - no member of 

the structure has a dimension or 
length attribute which is not ♦ 



Set By 

Phase EL, FT, or 
NU 



Phase EL 

Phase FO 

Various 

Phases EL or EW 

Phase EL 

Phases EL and FT 

Phases EL and FT 

Phase EG 

Phase EY 



The Second Code Byte - Other 2 



r 

Bit 
No. 





-+— 



2 
3 
H 
5 
6 
and 



7 
L 



Description 






Dynamically defined 

CONTROLLED major structure with 
varying strings 

NORMAL - O, ABNORMAL = 1 

Reserved 

Formal Parameter 

INTERNAL = O, EXTERNAL = 1 

00 = AUTOMATIC or DEFINED or simple 
parameter 



01 = STATIC 

11 = CONTROLLED 



set by 



Phase EL 
Phase EY 

Phases EI and FT 

Phase EI 
Phase EI 
Phase EL 

Phase EL 



Phase EL 
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The Third Code Byte - Other 3 



1 Bit 1 
1 No. i 

1- ^ 

1 1 


Description | 
Needs dope vector | 


Set by 

Phases EK and EY if variable 
dimension entries, variable 
string length, or in 
CONTROLLED Storage; 
Phase NU when item appears 
in an argument list 


1 1 


Needs DED 


Phase NU 


1 2 


Needs no storage for the item 
itself 


Phase GP 


1 3 


Correspondence defined 


Phase FV 


1 '^ 


Chameleon 


Phase GP 


1 5 


Data Variable UNSAFE 


Set by phase KE 

1= UNSAFE 

0= SAFE 

This use is local to the 

K phases 




Sign bit for first offset 


Phase PH for STATIC and 
Phase PT for AUTOMATIC 


1 6 


i Indication of the state of 
i the value in the first offset 
i = rubbish 

1 = good value 


Phase PH for STATIC and 
Phase PT for AUTOMATIC 


1 7 


1 As above but for second 
1 address slot 


Phase PH 
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The Fourth Code Byte - Other H 



Bit 
No. 



1 

and 

2 



3 
H 
5 
6 

7 



Description 

Usage (i) : 

An explicit alignment 
declsuration has been made 

Usage (ii): 

A constant has been produced 
for this structure or array 

00 = Not temporary 

01 = Temporary type 2 
10 = Tenporary not sold 

•11 = COBOL temporary 



Member of defined structure 

Packed - Aligned = 1 

Major structure 

No dope vector initialization 

A temporary type 2 which has 
been incorporated in work- 
space 1 or RDV required. For 
COBOL temporaries this bit 
means RDV required 



Set by 
Phase EL (for EW) 



Phase JK 



Phase GP, HF, HK, 
IM, or LB 



Phase FV 
Phase EL 
Phase EL 
Phase GP 
Phase OB 



Variable Byte 

r r— 

Bit 
NO. 

I- f-- 





Description 



Second address slot 

Dimensioned 

Member of structure 

Value list for label variables or 
POS for defined it&ns 

Initial value if not a structure 
or LIKE if a structure 

EXTERNAL slot 

Defined slot 



CONTROLLED from ALLOCATE statement 



L J 






For a detailed explanation of the 
significance of these bits and a 
description of the extra slots associated 
with them, see "Format of Variable 
Information** in this Appendix. 
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Dat:a Byte 



BIT 



T T 








STRINGS 



CAD or I 1 I POINTER/ 
NUMERIC I I OFFSET ♦ 
FIELD 
f + ^ 









Adjustable 

Length 

String 






Sterling 

NON 

STERLING 



Aligned 
Unaligned 



Long 

Short/ 

OFFSET 



Varying 



Cad, 

Numeric 

Field 






No 

Pictiore 

Picture 



Binary 
Decimal 



Char 
Bit 



Float 
Fixed 



AREA 
VARI- 
ABLE* 



1 

Complex 
Real 



Not 
Used 






*AREA, POINTER, and OFFSET data byte settings are: 

i\REA: X*02* superimposed on the non- pictured CHAR string data byte entry 
POINTER: X'UO' superimposed on the FIXED BIN data byte entry 
OFFSET: X'50' superimposed on the FIXED BIN data byte entry 

Note: The LONG bit X*10» is set to 1 for half word binary and for fullword binary 



6. FORMAT OF VARIABLE INFORMATION 



Data items, labels,, eund structures require 
pointers to various tables if they have 
certain attributes; for example, if they 
are dimensioned or defined on a base. 
Space will be left for information only if 
the attribute is present. This leads to an 
addressing problem of how to find the 
position of the information when the 
presence of other attributes alter its 
address. 

The problem is resolved by collecting, 
into one byte, all the attributes which 
require more than one bit to describe them. 
This has taken the second place in all the 
collections of attribute bytes. The 
presence of a bit in this byte indicates 
the presence of further information. The 
offset of this information from the start 
of the variable information is given by the 
presence of the bits to the left of the one 
of interest. Each bit will have a value 
associated with it. The sum of the values 
of the bits present and to the left of the 
one of interest will give the value of the 
offset. This is achieved in the coding by 
moving the code byte, masking off the bits 
to the right of the one being tested and 
the bit itself,, and translating the byte. 

The information produced by the presence 
of the following bits in the variable byte 
is CIS follows: 

Bit number 0: 

The second offset slot is 4 bytes long. 
The contents of this slot are described 
in this appendix. The decision to 
include a second offset slot in a 



dictionary entry is based on questions 
about the nature of the identifier. 
Refer to Figure 10. 

|Y| implies that a second offset 
•—J slot will be given, 

r-i 

JNJ that it will not. 

L-J 



Bit number 1; 

The dimensioned bit. The slot produced 
by this is three bytes long. The first 
byte will contain the number of 
dimensions, the next two the dictionary 
reference of the dimension (multiplier) 
table 

Bit number 2; 

Member of a structure bit. This slot 
is ten bytes long and has the following 
format : 

Byte Number Description 

1 Declared level number 

2 True level number 

3-U Dictionary reference of 
the containing structure 

5-6 Dictionary reference of 
the next member in the 
structure 

7 Alignment 

Note: The value held in this 
byte corresponds to ELEMENT 
size (in bits) and would be 
one of the following: 



<I00 



8-10 



X'01» - BIT alignment 
X'08' - CHAR alignment 
X ' 10 • - HALFWORD al ignment 
X»20« - FULLWORD alignment 
X«40* - DOUBLEWORD alignment 

Element length 



Bit number 3; 

POS for defined items. The two-byte 
slot will contain the POS value as a 
binaury integer. 

Bit number 4s 

The initial value or LIKE bit is a 
four- byte slot. 

1. For normal initial value. The first 
two bytes contain the dictionary 
reference of the associated * Initial 
Value* dictionary entry. The fourth 
byte contains X'FO* 

2. For INITIAL CALL. The first three 
bytes contain the text reference of 
a second file statement. The fourth 
byte contains X*0F*. 

3. For initial labels. The first three 
bytes contain the text reference of 
a set of second file statenents. 
The fourth byte contains X* FF* . If 
there is an initial slot but no 
initial values the fourth byte 
contains X'OO* 

*». For LIKE. The first two bytes 



contain the LIKE chain. The third 
and fourth bytes contain the 
dictionary reference of the likened 
structure 

Bit number 5: 

The EXTERNAL bit. This 2- byte slot 
contcdns the ESD number 

Bit number 6: 

The DEFINED bit. This 7-byte slot 
contains the following: 

Byte Number Description 

1-2 Defined chain. 

3-4 Dictionary reference of base 

5-7 The text reference of a 
second file statement. 
After the dictionary these 
bytes will contain X'FFFFFF' 
if the base is 
unsubscripted . 

Bit number 7; 

The CONTROLLED from ALLOCATE bit. This 
bit is on for dictionary entries for 
level 1 CONTROLLED data specified in 
ALLOCATE statements. The two- byte slot 
contains the dictionary reference of 
the dictionary entry for the data 
constructed from the DECLARE statement 
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Y 






Entry 






Is it data | 
item? I 

In 

V 



Is it struc- |N I Is it label |N r-i 

ture? f >j variable? [ — >|N| 

YV 

Is it formal |Y 

parameter? j- 

"In" I 
V I 

Is it con- jY I 

^ — J 

trolled? I 
V 



i Is it struc- JN r-T 

■>| ture member? J- — >|NJ 

V 
|Y| 



|Y 
Is it static? I- 



I 



J 



N j < 

V 

Is it string? l- — >|Y| 
In 

V 

Is it struc- |Y r-T 
ture member? f — >IY| 

Tn" 

V 



r 1 

I Is it ex- |Y r-T 

->l K- >|Y| 

I ternal? | l-j 
L ^ J 

J N 



Is it defined? 1- — >|Y| 

V 

Is it dimen- JY r-T 
sioned? I— >|Y| 
^ I U-J 

IN 



|N| 



Figure 10. Decision to Include a Second offset slot 
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Uses of the OFFSETl and 0FFSET2 Slots in 
Data, Label, and Structure Dictionary 
Entries 



The OFFSETl slot is in bytes 6-8 of the 
dictionary entry and the 0FFSET2 slot is 
part of the variable information. 



Basic elements; OFFSETl slot not used. 
0FFSET2 slot contains offset of 
element's dope vector from the start of 
the EXTERNAL control section 



CONTROLLED Structures 



STATIC INTERNAL Structures 



Major and minor structure entries ; 
OFFSETl slot not used. 0FFSET2 slot 
contains offset of structure dope 
vector from start of STATIC INTERNAL 
control section (if there is a dope 
vector) 

Basic elements; OFFSETl slot contains 
offset of virtual origin (in the case 
of dimensioned items) or offset of item 
(when not dimensioned) from start of 
STATIC INTERNAL control section. 
0FFSET2 slot contains offset of dope 
vector (if there is one) from start of 
STATIC INTERNAL control section 



AUTOMATIC Structures 



Major and minor structures; OFFSETl slot 
not used. 0FFSET2 slot contains offset 
of structure dope vector from point to 
which pseudo register points. (In the 
case of the major structure, this value 
will be zero.) 

Basic elements ; OFFSETl slot not used. 
0FFSET2 slot contains offset of 
element's dope vector relative to 
address in pseudo- register. 



Non* Structured Arrays in STATIC INTERNAL 



OFFSETl slot contains offset of vertical 
origin of the array relative to start of 
data region. 0FFSET2 slot contains offset 
of dope vector (if there is one) from the 
start of the data region. 



Constant dimensions; as for STATIC 
INTSUiAL except that all offsets are 
relative to start of DSA. 

Adjustable dimensions; major and minor 
stxructure entries; OFFSETl slot not 
used. 0FFSET2 slot contains offset of 
structure dope vector f rcxn start of DSA 
(if there is a dope vector) 

Basic elements; OFFSETl slot not used. 
OFFSET2 slot contains offset of 
elenent's dope vector (if there is one) 
frcni the start of the DSA 



Non- Structured Arrays in AUTOMATIC 



Constant dimensions; 

INTERNAL 



as for STATIC 



Adjustable dimensions; OFFSETl slot not 
used. OFFSET2 slot contains offset of 
dope vector from start of data region. 



STATIC EXTERNAL. COWTROLIgD or Parameter 
Array 



STATIC EXTERNAL and Parameter Structures 



Major structure entry; OFFSETl slot 
contains offset of address slot frcxn 
start of data region. 0FFSEr2 slot 
contains size of EXTERNAL control 
section. (Offset of major structure 
dope vector = 0.) 

Minor structure entries; OFFSETl slot 
not used. 0FFSET2 slot contains offset 
of structure's dope vector from start 
of major structure dope vector. 



OFFSETl slot contains offset of address 
slot irtiich contains a pointer to the arrays 
dope vector. (Not used in the case of 
CONTROLLED.) 0FFSET2 Slot is not present. 



Non-Structured Scalar Strings in STATIC 
INTERNAL 



OFFSETl slot contains offset of datum from 
start of data region. 0FFSET2 slot 
contains offset of dope vector (if there is 
one) from start of data region. 
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9 


Count 


10 


BCD length- 1 


11 


BCD 
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Non-Strucbxired Scalar Strings in AUTOMATIC 



Constant length: as for STATIC INTERNAL 

Mjqstable length; OPFSETl slot not 
used. 0FFSET2 slot contains offset of 
dope vector from start of data region. 



Non-^structiired scalar strings in STATIC 
EXTERNAL > CONTROLLED or Parameter 



OFFSETl slot contains offset of address 
slot which points to string dope vector 
(not used in the case of CONTROLLED) . 
0FFSET2 slot not present. 



11 Other 1 Code Byte (See 

"First Code Byte - Other 1" 
in Section 5 above) 

12-1 a Second Offset Slot 

15-16 spare for Final Assembly 

17 Level 

18 count 

19 Count of Containing Block 

20 BCD Length- 1 

21 etc. BCD 



Non-'Structured Non- string Scalars in 
AUTOMATIC or STATIC INTERNAL 



OFFSETl slot contains offset of datum from 
start of data region. 0FFSET2 slot not 
present. 



Non-Structured Non- string Scalars in STATIC 
EXTERNAL, CONTROLLED or Parameter 



Compiler Labels 



The format is identical to that of a label 
constant, except for the omission of the 
BCD. The code byte is X*C3'. If the 
compiler label has been constructed for a 
label variable* then the BCD for the label 
and its subscript will follow on behind the 
entry and the total length of the entry is 
given in bytes 2-3. 



OFFSETl slot contains offset of address 
slot which points to datum (not used in the 
case of CONTROLLED). 0FFSET2 slot not 
present. 



7. OTHER DICTIONARY ENTRIES 



Label Constants - Extracted by the Read-In 
Phase 



Byte Number Description 

1 code byte X'OO' 

2-3 Length up to BCD length-1 
byte 

1-5 Hash chain - STATIC chain 

6-8 Offset 

9-10 Statement number (except 

when the label is mentioned 
in an ON CHECK list« in 
which case it gives the 
chain to the label BCD 
dictionary entry, code byte 
X*CE») 



Formal parauneter type 1 entry 



These entries are derived from the 
PROCEDURE and ENTRY statements, and do not 
contain any information other than that the 
identifier is a formal parameter. The 
format is as follows: 



Bvte Number 


Description 


1 


code byte X* HO* 


2-3 


Length 


4-5 


Hash chain 


6-7 


These bytes wil 



full description of the 
identifier after Phase EK, 
or Phase FA« or Phase FE. 
These full descriptions are 
dictionary «i tries for the 
type of item they are 
describing. They do not 
contain the BCD of the 
identifier, but in the slot 
for the hash chain there is 
the dictionary reference of 
the corresponding formal 
parameter type 1 entry. 

Level 
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For a description of the types of entry 
pointed to, see "Dictionary entry for 
parameter descriptions." 



Dictionary entry for FILE 



For attributes specified in OPEN statement 
the format is as follows: 



Byte Number 


Description 


1 


Code byte X»98» 


2-3 


Length 


U-5 


STATIC chain 


6-8 


OFFSETl 


9-10 


DECLARE statement number 



11 onwards String of second level 

markers (without preceding 
•CB* code bytes) one for 
each attribute other than 
FILE, TITLE and IDENT. 

This entry is created by the read- in 
phase and is referred to only as the 
argument of an ATTRIBUTES marker- 



FILE Constants 



Code X'08» is \ised for file constant 
entries, which have the following format: 



Byte Number 


Description 


1 


Code byte X'08* 


2-3 


Length 


4-5 


Hash chain, sub 



EXTERNAL or STATIC chain 
depending on whether FILE is 
EXTERNAL or INTERNAL 

6-8 OFFSETl (STATIC or transfer 
vector offset) 

9-10 Declare statement number 

11-12 Dictionary reference of 

attributes entry (zero if 
none) 

13 Code byte (similar to the 
"other 2" code byte. Only 
internal/external bit used) 

lU-15 Dictionary reference of 

environment string (zero if 
none) 



16 


Level 


17 


Count 


18 


BCD length- 1 



19 onwards BCD 



FILE Parameters and Tentporaries 



Code X*89' is used for file parameters and 
for file temporaries. The format of the 
entry will be the same as that for label 
variables. 



FILE Environment Entries 

Code X'C8' is used for the environment 
string. 

Byte Number Description 

1 Code byte X*C8' 

2-3 Length 

4 onwards Inteimally coded form of 
argument of ENVIRONMENT 
option 

Code X*C8' is also used for attributes 
collected from the DECLARE statement. 

B yte Number Description 

1 Code byte X'CB' 

2-3 Length 

4 onwards String of second level 

markers (without preceding 
code bytes X*C8'), one for 
each attribute other than 
FILE, ENVIRONMENT, EXTERNAL, 
or INTERNAL 



Dictionary Entries from Constants 



The format is : 




Byte Number 


Description 


1 


Code byte X«88' 


2-3 


Length 


a-5 


Hash chain 


6 


DATA byte 
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U05 



9 

10 
11 
12 



13-14 



15 



Notes : 



Data Precision* 

Scale Factor* 

*These are the apparent 
precision and. factor derived 
from the BCD of the constant 
(see Note 2) 

Type (see note 1) 

DATA byte (2) 

Data Precision (2)** 

Scale Factor (2)** 

**These bytes are inserted 
by the phase requesting 
conversion. If a picture is 
required, these bytes are 
used to contain a picture 
table reference (see Note 3) 

Dictionary reference - used 
when a phase requires a 
constant to be converted 
into a specific location in 
storage 

BCD 



1. The type byte has the following 
meaning: 

First and second bits; 

00 - normal BCD constant. The first 
offset slot must be 
relocated by the storage 
allocation phase, to 
contain the offset of the 
converted constant from the 
start of STATIC storage, 
rather than from the start 
of the constants pool 

11 - the BCD is replaced by the 
internal form of the 
constant. The first offset 
slot is treated in the same 
way as for the code 00 

10 or 01 - the constant is required to 
be converted into a 
specific location in 
storage. The second code 
implies the converted 
constant should be made 
negative before being 
stored 

Sixth bit: 1 indicates that the 
constant requires a DED, 



Seventh bit: 1 indicates that the 
constant requires a dope vector. 

Eighth bit: 1 indicates that no 
conversion is required. 



After the constants processor the 
bytes 6 through 8 will contain the 
offset of the constant from the start 
of the pool of constants. If a dope 
vector is requested then the offset of 
this from the start of the constants 
pool is eight less than that of the 
converted constant. 

Should a DED be required, this will be 
constructed by Phase PL. The two 
bytes, precision (2) and scale 
factor (2), will contain a dictionary 
reference of a DED dictionary entry. 
If the constant requires a dope vector 
then Phase OS will make a dictionary 
entry for it, and the dictionary 
reference preceding the BCD will be 
the dictionary reference of this. 



Task Identifiers and EVENT Data 

The format of the dictionary entries for 
task identifiers and EVENT data is, apart 
from the initial code byte, the same as 
that for a label variable. 



Dictionary Entries for Built-in Functions 



The format is: 




Bvte Number 


Description 


1 


Code byte X'OU' 


2-3 


Length 


U-5 


Hash chain - later becomes 



6-8 



9-10 



11-12 



the STATIC chain 

Offset - gives the position 
in STATIC storage of the 
load constant for Library 
routine 

Code bytes - the first code 
byte contains a value which 
identifies the built-in 
function and also provides 
information about it. It is 
used mainly by phases IN and 
MD-MM inclusive. The second 
code byte contains further 
information about the 
built-in function (See 
"Second Code Byte.*) 

DECLARE statement number 
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13 


Level 


li» 


Count 


15 


BCD length- 1 


16 


BCD 



13 

m 



further information about 
the function 

Level 

Count 



Second Code Byte 



BCD entries 



The second code byte contains the following 
inforiration: 



Bit Number 


1 



Description 

May be passed as an argument 

May have an array as an 
argument 

Must have an array as an 
argument 

Is a pseudo-variable 

Indicates to which of the 
two tables the offset refers 

May have an array (or 
structure) as an argument, 
but will return a scalar 
result 



Internal Library Functions 



Library routines, other than built-in or 
GENERIC functions, are known as Internal 
Library Functions. Their dictionary entry 
format is as follows: 



Byte Number 
1 
2-3 

n-5 

6-8 
9 

10 
11-12 



Description 

Code Byte X«C2* 

Length 

Hash chain 

Offset 

Library Code - identifies 
the particular Library 
routine reqioired 

Not used 

Code Bytes - the first code 
byte contains a value used 
by phase MG to pick up 
complete information about 
the library function. The 
second code byte contains 



BCD entries are used when the LIKE or 
DEFINED attributes are used. A short 
dictionary entry with the format given 
below is used. This is pointed at by the 
dictionary entry with the attribute. 



Byte Number 


Description 


,1 


Code Byte X'UO 


2-3 


Length 


4 


BCD length- 1 


5 


BCD 



Dictionary Entry for Parameter Descriptions 



Dictionary entries for parauneter 
descriptions are identical with the normal 
entry for data varieJ^le, label variable, 
structure, file, or entry points, except 
for the following details: 

Hash chain contains pointer to formal 
parameter type 1. After Phase FT this 
pointer is moved to the bytes 
containing level and count 

No BCD is present 

No block identification is present for 
ENTRY or FILE 

The code byte for an entry point - 
referred to as entry type 6 - is X'86' 



ON Statements 



Entries for ON statements are made by Phase 
FO, and contain the following: 



Byte Number 


Description 


1 


Code Byte X'CD' 


2-3 


Length 


t»-5 


AUTOMATIC chain 
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U07 



6-8 



Offset 



PICTURE Entry 



Code byte as supplied by the 
Read- In Phase 



The format of an entry in the picture table 
in the dictionary. 



10 


Block level 


11 


Block count 


12 


n 



13 onwards n dictionary references of 
variables or ON condition 
entries 



ON Condition 

This entry is made by Phase FOi 
Byte iiuitiber Description 

Code Byte X'UD* 

Length 



1 

2-3 

4-5 



6-8 
9 

10 
11 
12 



Hash chain later used as 
AUTOMATIC chain 

Offset 

Code byte as supplied by the 
read in phase 

Block level 

Block count 

BCD length- 1 



Byte Number 
1 

2-3 
U-5 

6-8 



10 



11 



12 



Description 

Code Byte X'C8» 

Length = L413 

Contains address of next 
entry in picture chain 

Usage (1) (Before Phase FQ) 
Dictionary reference of 
associated declare or format 
statement, right adjusted 

Usage (11) 

Offset in STATIC storage 

Code Byte (after Phase FQ) 
(See Code Byte description) 

P - the number of digit 
positions in field in 
numeric picture. 

Q - the number of digit 
positions after V character 
in numeric picture. Code 
X'80' represents 0, X'7F' 
represents -1, and X'81' 
represents +1. 

W - apparent length of 
picture, - length of 
picture following. (For a 
non-numeric picture the 
length is obtained in bytes 
12-13.) 



14 onwards Picture. 



13 onwards BCD 



Byte 9 - Code Byte 



CHECK List Entry 

This entry is made by Phase FO: 
Byte Number Description 

Code Byte X'C8« 

Length 



1 

2-3 
4 



n where n is the number of 
dictionary references 
followina 



5 onwards Dictionary references (2n 
bytes) 



Bit Nxamber 

I 

I 1 

I 2 

I 3 



Description 

string 

1 nximeric 

correct 

1 error 

not sterling 

1 sterling 

short 

1 long 

Not used 



408 



decimal 

1 binary 

fixed 

1 floatinq 

Not used 



Dictionary Entry for Workspace Requirement 



9-10 



Dictionary reference or 
DECLARE number 



11 onwards Bit pattern of skeleton dope 
vector 



This entry is constructed by Phase PD 



The format for a dictionary entry for 
workspace requirement is: 



Byte Number 


Description 


1 


Code Byte X'C8' or X'CA' 


2-3 


Length = 8 


U-5 


Total workspace required 


6-8 


Offset 



If the code byte is C8 this is the 
temporary workspace used by pseudo-code 
(temporary type 1) . 



Dictionary Entry for Parameter Lists 



Dictionary entries for parameter lists have 
the following format: 



Byte Number 


Description 


1 


Code Byte X*C5' 


2-3 


Length 


4-5 


STATIC chain 


6-8 


STATIC offset 


9-10 


Assembled length 



11 onwards Contains DC A' s 



Dictionary Entries for Dope Vector 
Skeletons 



Byte Nijgpber 
1 
2-3 

6-8 



Description 
Code Byte X»C6' 
Length 
STATIC chain 
Offset in STATIC 



Symbol Table Entry 

Symbol table entries are made by Phase PL. 
Byte Number Description 

code Byte X'C7' 

Length 

STATIC chain 

Offset in STATIC of DED 



1 

2-3 

4-5 

6-8 

9-11 



Actual DED if not pictured. 
If a picture is involved, 
the last two bytes are the 
dictionary reference of the 
picture table entry 

12-13 Offset in STATIC storage of 
symbol table entry 

14-15 Dictionary reference of next 
item in the symbol table for 
this block 

16-17 Dictionary reference of item 
requiring entry in symbol 
table 



Dictionary Entry for AUTOMATIC Chain 
Delimiter 



An entry for AUTOMATIC chain delimiter is 
made by Phase PP. 



Byte Number 


Description 


1 


code Byte X'CC 


2-3 


Length 


4-5 


AUTOMATIC chain 


6-7 


Pointer to first second file 




entry 



8-9 



Pointer to second second 
file entry 
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PEP Dictionary Entry 

An entry for a DED is created by Phase PL. 
Byte Number Pescription 

Code Byte X'C7' 

Length 

STATIC or AUTOMATIC chain 

Offset 



1 
2-3 

6-8 
9-10 



11-18 
19-20 



Dictionary reference of 
variable 

Eight bytes of RDV text 

DECLARE number 



The LONG bit X'lO* of byte 9 is set to 1 
for halfword binary and for fullword 
binary. 

If the DED requires a picture, the last 
two bytes contain the dictionary reference 
of the picture table entry. 

This entry has the same format as the 
first eleven bytes of a symbol table entry. 
No item will require both types of entry. 
The type required will be chained from the 
symbol slot in an item. 



DED 2 Entries 



These entries are generated vrtien a DED is 
required for the conversion of a temporary 
result. 



Byte Number 


Description 


1 


Code Byte X*CV 


2-3 


Length = 11 


4-5 


STATIC chain 


6-8 


Offset 


9-11 


Actual DED 



Dictionary Entry for FED - Format Element 
Descriptor 



The entry for a FED is made by Phase NV. 

The entry is identical with a DED2 entry 
but with a length of 12, instead of 11. 
The storage allocated will be word-aligned. 



Byte Number 


Description 


1 


code Byte X'Cl* 


2-3 


Length =12 


U-5 


STATIC Chain 


6-8 


STATIC offset 


9-12 


Actual FED 



Label BCD Entries 

Label BCD entries are made by Phase FO. 
Byte Number Description 

code Byte X'CE' 

Length 

DECLARE number 



1 

2-3 
t»-5 
6-7 



8-9 



Offset of the BCD 
in STATIC 

Dictionary reference of item 
requiring BCD 



These entries are constructed when a 
statement label or a PROCEDURE or ENTRY 
label is mentioned in an ON CHECK list. 
These entries are also made for EVENT and 
TASK variables. Phase PD will allocate 
storage in STATIC for the BCD of the label, 
and place the offset of this in the above 
entry. 



Dope Vector Entries for Temporaries 



This entry is consti'ucted to indicate that 
a dope vector is required for a temporary 
result. At this stage the bytes in the 
entry contain the following: 



Byte Number 


Description 


1 


code Byte X*CO' 


2-3 


Length 


a-5 


AUTOMATIC chain 



6-8 



9-10 



Offset in the temporary type 
1 stack. After Phase QJ 
this will contain the offset 
from the start of the DSA 

Dictionary reference of dope 
vector skeleton entry 



UIO 



11-12 



Length of string 



Record Dope Vector Entry 



This entry is constructed when a variable 
requires a record dope vector. 



Byte Ntiinber 


Description 


1 


Code Byte X»C29' 


2-3 


Length 


4-5 


STATIC or ADTOMATIC chain 


6-8 


Offset 


9-10 


Dictionary reference of 
variable 


11-18 


Eight bytes of RDV text 


19-20 


DECLARE number 



Dope Vector Descriptor Entry 



This entry is constructed for a structure 
which requires a dope vector descriptor. 



Byte Number 


Description 


1 


Code Byte X'CC* 


2-3 


Length 


4-5 


STATIC chain 


6-8 


Offset 


9-10 


Dictionary reference of 
structure 



11-12 



13... 



Chain to RDV entry or 
DECLARE nijunber 

DVD t«tt set up l^ Phase JK 



6-7 



8-9 



10 



Dictionary reference of the 
entry type 1 of the block 
from which the second file 
statement was extracted 

Dictionary reference of a 
three-byte slot in the 
dictionary. 

Type of second file 
statement, i.e. the 
function it performs. This 
is the second byte of the 
dictionary reference used to 
designate the function in 
the actual second file 
statement 



Dictionary Entry for a STATIC DSA 



This entry is made by phase PA (whenever a 
block has its DSA in STATIC). The "size of 
DSA" slot (right-hand two bytes) in the 
Entry Type 1 is used to contain the 
dictionary reference in this entry. 

Byte Number Description 



1 

2-3 

4-5 



6-7 



8-10 

11-12 

13 

14-16, 

17-18 

19-20 



Code byte X'C8' 

Length =20 

Dictionary reference of the 

next STATIC DSA entry, or 

zero if this is the last 

entry. 

Offset address slot in 

STATIC for the DSA (set by 

phase PD) . 

Size of DSA (set by PT and 

amended by RF) . 

Dictionary reference of the 

Entry Type 1 of the block. 

Code byte to be put into 

first byte of DSA.. 

Offset of start of DSA in 

STATIC (set by phase TO) . 

Head of block's automatic 

chain. 

Not used 



Format of a Second File Dictionary Entry 



Byte Nianber 
1 

2-3 
4-5 



Description 

code byte X*C8* 

Length of entry 

Statement number of the 
DECLARE or other statement 
giving rise to the second 
file statement 



Dictionary Entry for an Error Message 



Byte Number Description 



1 

2-3 

4-5 

6-7 

8 



Code byte X»C8* 

Length 

Chain 

Messages num.ber 

Flags: 

Bit on if text to be 

inserted in message 
1 on if statement niunber 
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to be inserted 

2 on if a numeric parameter 
to be inserted 

3 on if a dictionary 
reference to be inserted 

U-7 Severity: X'O* Termin- 
ation 
X'U' Severe 
X'8' Error 
X'C Warning 

Variable information in the 

format shown below: 



2 bytes Statement number 

(if present) 
2 bytes Numeric parameter 

(if present) 
2 bytes Dictionary 

reference (if present) 

If text is to be inserted it is 
contained in a second dictionary entry 
immediately followinig the main entry for 
the message. The format of this second 
entry is: 



Byte Numbe r Description 



1 

2-3 

(4 



Code byte X«C8' 

Length 

Flag: X'OO' Text that 
follows has not been 
truncated and is 10 bytes 
or less 

X»01* Text that follows is 
not to be truncated and is 
greater than 10 bytes 

X'FF* Text that follows has 
been truncated and is to 
be printed within quotes. 

Variable length of text (in 

compiler internal code) . 



8. DIMENSION TABLE 



Each entry containing dimension information 
will result in a table being set up. This 
table is shown in Figure 11. 



j Code Byte C8 
^ __-. 

I Zero byte 
I 



JNo. of dimensions (n) j 



Two-byte length | Flag Byte j 
__-j. _ 1 

Two-byte chain address | 
^ 

VIRTUAL ORIGIN WORD | 

I One- byte marker | Not used j Lower bound (half word) j 

I One-byte marker j Not used j Upper bound (halfword) j 



n multipliers | 



j I j nth upper bound 
I J. i. 



I 
_ ^ 

I 



L J 

Note: The one-byte marker is: 

GO if bound is fixed point constant; bound is a two-byte binary constant, right- ad justed. 

FF if bound is an expression; bound is a three-byte pointer to a second file statement in 
text. 

7F if the bound is inherited and has an MTF function. 

3F if the bound is inherited and is covered by a previous MTF function. 

FO if the bound is specified by an *. 

Figure 11. Dimension Table 



9. DICTIONARY ENTRIES FOR INITIAL VALUES 

The declaration of a variable with an 
INITIAL attribute produces these entries: 



An INITIAL dictionary entry 

and 

One or more dictionary entries for 
constants 
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and perhaps 

A second File Statement for any iteration 
expression contained in the INITIAL 
specification. 

The INITIAL dictionary entry contains 
pointers to the constant entries and any 
Second File Statements, and is of the 
following format. 



Bvte Number 


Description 


1 
2-3 
U 
5 
6 
7 onwards 

Final 


Code Byte X 'CS* 
Length of entry 
Prefix options byte 
INITIAL code byte X 
Left parenthesis 
INITIAL value list 
below) 
Right parenthesis 


INITIAL Value List 





79' 



(see 



The list contains the following code 
bytes to identify each associated 
dictionary reference: 



X'Fl* constant iteration factor. This is 
followed by X'OO' and the dictionary 
reference of the constant iteration 
factor. 



X'F3' INITIAL value item. This is 

followed by X'OO' and the dictionary 
reference of the constant. (The BCD 
of the constant is expanded by any 
imposed string replication factor). 



X'F5' EOB marker. This is followed by 

X'OO* and the dictionary reference 
of the next entry on the chain. 
(This will occur when the scratch 
core storage allocated for building 
the entry is not sufficient, and a 
chain of entries is constructed) . 



The INITIAL value list contains references 
to Second File Statements and dictionary 
entries which are created to correspond to 
the value in the input text. 



X*F7' Variable iteration factor. This is 
followed by the text reference of 
the Second File Statement containing 
the expression. 
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APPENDIX D: INTERNAL FORMATS OF TEXT 



This appendix describes the internal 
formats of text at various points during 
the compilation of a source program. The 
appendix is organized in the following 
manner: 

1. Text Code Bytes after the Read-In 
Phase 

2. Text Formats after the Read-In Phase 

3. Text Code Bytes on Entiry to the 
Translator Phases 

U. Format of Triples 

5. Text Code Bytes in Pseudo-Code 

6. Text Formats in Pseudo-Code 



7, Text Formats in Absolute Code 



8. Second File Statements, and the 
Formats of Compiler Functions and 
Pseudo- Variables 

9, Pseudo-Code Phase Temporary Result 
Descriptors (TMPDs) 

10. Library Calling Sequences 

11. Descriptions of Terms and 
Abbreviations used in Text During a 
Compilation 

Note: The internal formats of text during 

compile-time processing are described 
in Appendix J. 



um 



1. TEXT CODE BYTE AFTER THE READ- IN PHASE 



First Level Table (00 to 7F) 



[ I 8 I # I $ "T BLANK TIT ] 






I A I J I 
I I I 



{ 



DO 
EQUALS 



!2 |B|K| S I 'I I > 

I C I L I T i ( I 



4 I D I M I U 



<= -i> 



5 I E I N I V I > 

6 1 F I O I W I . I 

7 I G I P I X I ASSIGN I MULTIPLE 
ill I I ASSIGN 

8 I H I Q I Y I : I 
-I + + + -I + 

9 I I I R I Z I 11 I 






I I PSEUDO- I X 
I I VARIABLE I 

III 



I I I FUNCTION I I 



III I £ I I > I PREFIX ♦ 

SUBSCRIPT III I I LITERAL I If* 

I I I I I CONSTANT 

^ J_ L J. i 1 L — —i ^ L ** 



>= 

1< 






cr 



REFER 



^' 



-H 



PREFIX - 



<-Digits-> I <^ Letters > | < Operators > 
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First Level Table (80 to FF) 



1 


T T Ihybrid Till 1 


1 

1 1 


TO JLINE |A JQUAL j j SN j | FL DEC IMAG | 
+ + + + + 1 1 ^ 

i 1 II {ASSIGN BY 1 1 1 
ALLOCATE! 1 CALL | ENTRY I | NAME I I FL DEC REAL 1 


2 1 
3 


+ + ^ + + + + ^ 

BY 1 |B 1 1 |SL 1 jFL BIN IMAG | 
^ + + + + 4. 1 ^ 4 

FREE 1 1 RETURN | PROC | |SL' ION PROC | FL BIN REAL | 




4 ^ 4 ^ ^ ^ X J 


4 


WBILE 1 |P 1 CHECK | |CN | |FIX DEC IMAG | 
1 DISPLAY 1 GOOB | BEGIN | |GET 1 I FIX DEC REAL | 


|5 




[. _ - +- — — + — - -" + +- + + + -1 


6 


SNAP jCOL jR 1 1 |CL | | FIX BIN IMAG | 
+ + + + +_- + + 4 

1 SIGNAL IGO TO | ITDO | WRITE | PUT | END DO 1 FIX BIN REAL I 


7 




|. + 4. + + + + + 4 




1 1 |N0 |2nd LEVEL) | | | 


8 


SYSTEM |E 1 (CHECK (MARKER | |END ITDO | INTEGER | 
+ + 4 + + 4. + 4 

WAIT {REVERT I {DO {READ I UNLOCK {END I STG DEC REAL { 


9 




|. ^ _ _ _^ -^ -^ « — -+-'- 4- — — +~ —\ 




1 1 1 IDATA 1 1 { { { 


A 


{THEN {F 1 {LIST D0{ { { { { 
^ + + 4 + + + + 4 

(DELAY ( UNIT LABEL jIF {LOCATE (REWRITE {END PROG (ON { 


B 








(CONTROL ( { III 1 {ARRAY { 


C 


1 VARIABLE ( ( (SN2 ( ( ( (CROSS SECTION { 
lEXIT (NULL (DECLARE (ELSE (DELETE (OPEN (END BLOCK (CHAR CONSTANT { 


D 




L -^ ^ _ _ _ ^_ _ _ ^ _ _ 1 4 ^_ _ -.4 


|E 


( {C (X (NO SNAP( ( { (iSUB { 
^ + + 4 + + + + 4 

(STOP (ASSIGN ( (FORMAT { (CLOSE (; (BIT CONSTANT { 


F 




L ^l..^ L r. X 1 ,X - X !,,-__ .,. « 
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Second Level Table (00 to 7F) (preceded by second level marker byte C8) 



|FIL£ I I 



j DECIMAL 



I OPTIONS 






EXTERNAL 






I BINARY 



I IRREDUCIBLE | INTERNAL 



ILIST 






FLOAT 



j REDUCIBLE | AUTOMATIC 



I EDIT 



(EVENTS 






I FIXED 



I RECURSIVE I STATIC 



TITLE 






DATA 



PRIORITY! 



I REAL 



I ABNORMAL^ ( CONTROLLED 



BASED 



{COMPLEX I NORMAL 2 (SECONDARY 

I OFFSET 



ATTRIBUTES | STRI NG | REPLY 

PAGESIZE I SKIP I I (PRECISION 1 | USES^ | 

IDENT JUNE I I (PRECISION 2 ( SETS* 

LINESIZE (PAGE ( { (VARYING (ENTRY (INITVAR 1 

(COPY ( ( (PICTURE(NUM) (GENERIC (INITIAL | INITVAR 2 

INTO (KEYTO ( ( (BIT ATTRIBUTE (BUILTIN (LIKE 

FROM (TASKOP ( ( (CHAR ATTRIBUTE ( (DEFINED 
I -- ■ - - J i.___ _4. „„., , -. _i___________x_______. 

SET ( (IN ( ( DIMS ( INTEGERS )( (ALIGNED 

KEY ( ( ( (LABEL (ORDER (UNALIGNED 

NOLOCK (KEYFROM ( ( ( (REORDER (PACKED^ 

(FORMAT ( ( (DIMS ( { (PICTURE 

IGNORE (LIST j (BY NAME ( (NON- INTEGER) (RETURNS ( POS ((CHAR) 



AREA 



POINTER 



EVENT 



TASK 



CELL 












"•The EVENT built-in function and pseudo-variable are knovm externally by the 
equivalent name COMPLETION. 

^Obsolete attribute. The second level marker is used only to ensure correct 
warning message transmission in Read-In, and does not appear in text at any time. 
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Second Level Table (80 to FF) 





1 

2 

3 

4 

I 5 

6 

7 

8 
9 
A 
B 
C 
D 

|E 
F 



BUFFERED 



I MAIN 



T T 1 

OVERFLOW I CONVERSION I CONDITION 
+ ^ ^ 



UNBUFFERED | 



EXCLUSIVE 
YEYED 



I 
I 
-H- 

I 



STREAM 
RECORD 

I 

BACKWARDS | 



I REENTRANT | 
4 +. 



^ + 

I STRING- I 
UNDERFLOW | RANGE | NAME 
^ ^ 









4 ^. 

I SECONDARY j 
I 



•I 

I TRANSMIT 

■+ 



SEQUENTIAL 

DIRECT 
PRINT 

ENVIRONMENT! 
INPUT 









I I 

I TASK I 

+ +- 

I 

I i 

I ON- BLOCK I 

+ +-- 



I 









+ ^ 

I I 

+ J 



OUTPUT I 
UPDATE I 

I 

TRANSIENT j 















I 
I 

I 
J. 



ZERODIVIDEjAREA 

I PENDING I 

FIXED I I 

OVERFLOW I ENDFILE j CHECK 

i I I I 

SUBSCRIPT I I 

RANGE I ON RECORD | 

I I 

ERROR I END PAGE | 

_l l__ I I 

FINISH I KEY I NOCHECK 

. " I _l I 

I UNDEFINED | 

SIZE I FILE I 

I i I i 



2. TEXT FORMATS AFTER THE READ- IN PHASE 



In the following statement formats the code 
bytes SN, SL, SL', POS, and OB have the 
following meanings: 



SN statement number 



SL statement label 



r T 

I BIT I 



ON CONDITION 



OVERFLOW 

UNDERFLOW 

ZERODIVIDE 

FIXEDOVERFLOW 

SUBSCRIPTRANGE 

SIZE 

CONVERSION 

STRINGRANGE 



^ 



._J 



SL* initial label 

POS following SN is a 2-byte statement 
niunber 

following SL is a 2-byte 
dictionary reference of statement 
label or entry type 1 

OB prefix options byte, specifying ON 
conditions enabled for the 
statement as follows: 



The abbreviation SQUID means an 
identifier, possibly sxibscripted and/or 
qualified. 



PROCEDURE Statement 

The format of a PROCEDURE statement is as 
follows : 
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Byte number Description 

1 Code byte SN or SL 

2-3 POS 

i| OB 

5 PROCEDURE 

6 Block level 

7 Block count 

8-10 PROCEDDRE-BEGIN chain 

11-13 DECLARE chain 

14-16 ENTRY chain 

17 Left parenthesis - optional 

18... Format parameter list - 
optional 

Right parenthesis - optional 

Attribute marker - optional 

Attribute code - optional 

Attribute list - optional 

Statement terminating 
semicolon 



Attribute code - optional 

Attribute List - optional 

Statement terminating 
semicolon 



BEGIN Statement 



The format of a BEGIN statement is as 
follows : 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


U 


OB 


5 


BEGIN 


6 


Block level 


7 


Block count 


8-10 


PROCEDURE-BEGIN chain 


11-13 


DECLARE chain 


14 


Statement terminating 
semicolon 



ENTRY Statement 

The format of an ENTRY statement is as 
follows: 

Byte Number Description 

I Code byte SN or SL 
2-3 POS 

(| OB 

5 ENTRY 

6-8 ENTRY chain 

9 Block level 

10 Block count 

II Left parenthesis - optional 

12... Formal parameter list - 
optional 

Right parenthesis - optional 

Attribute marker - optional 



END Statement 

The format of an END statement is as 
follows: 

Byte Number Description 

1 Code byte SN or SL 

2-3 POS 

H OB 

5 ENDl, END2, or END3 - ENDl 
ends a PROCEDURE or BEGIN 
block; END2 ends an 
iterative DO block; END3 
ends a non-iterative DO 
block 

6 Block level for the 
containing block 

7 Block count for the 
containing block 

8 Statenent terminating 
semicolon 
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IF Statement 

The format of an IF statement is as 
follows: 

Eyte Number Description 

1 Code byte SN or SL 

2-3 POS 

U OB 

5 IF 

6 . . . Expression 

THEN 

Statement or Group 

ELSE - optional 

Statement or Group 
optional 

Note: The semicolon preceding the EI.SE has 
been deleted 

DO Statement 

The format of a DO statement is as follows; 

Byte Number Description 

1 Code byte SN or SL 

2-3 POS 

U OB 

5 DO or ITDO 

6 CV 

7 BKC 

8 . . . Squid 

DO equals 

Expression 

TO 

Expression 

BY 

Expression 

WHILE 

Expression 



Statement terminating 
semicolon 



ON Statement 



The ON statement takes one of the following 
formats : 



Byte Number Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 

5 ON 

6 ON Condition 

7 SNAP or NOSNAP 

8 Statement or block 

2. 

Byte Number Description 

1 Code byte SN or SL 

2-3 POS 

U OB 

5 ON 

6 ON Condition 

7 System 

8 SNAP or NOSNAP 

ASSIGN Statement 

The format of the ASSIGN statement is as 
follows : 

Byte Number Description 

1 Code byte SN or SL 

2-3 POS 

tt OB 

5 ASSIGN or ASSIGN BY NAME 

6... Squid 

Comma - optional, 
may be repeated 
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Sqfuid - optional, 
may be repeated 



Variable number of bytes - 
optional, may be repeated 



ASSIGN 



Expression 



Statement terminating 
semicolon 



WAIT Statement 



The WAIT statement has the following 
format: 

Byte Nianber Description 



Code Byte SN or SL 



CALL Statement 



The CALL statement has the following 
format: 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


(| 


OB 


5 


CALL 


6-8 


CALL chain 


9 


Identifier 


10 


Left parenthesis 


11 


Expression 


12... 


Right parenthesis 




Left parenthesis 




Argument List 




Right parenthesis 




Statement terminating 
semicolon 



2-3 



POS 



OB 



WAIT 



GO TO Statement 



6 Left parenthesis 

7 . . . Identifier 

Left parenthesis - optional 

Expression - optional 

Right parenthesis - optional 

Comma 

Further optional parentheses 
and expressions 

Right parenthesis 

Left parenthesis - optional 

Expression - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 



The format of the GO TO statement is as 
follows; 

Byte Number Description 



Code byte SN or SL 



2-3 



6... 



POS 



OB 



GO TO 



Squid 



Statement terminating 
semicolon 
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SIGNAL and REVERT Statements 



OB 



The SIGNAL and REVERT Statements have the 
following format: 



Byte Number 


Description 


1 




Code tyte SN or SL 


2- 


3 


POS 


4 




OB 


5 




SIGNAL or REVERT 


6 




ON Condition 


7 




Statement terminating 
semicolon 



DELAY 



Left parenthesis 



Expression 



Right parenthesis 



Statement terminating 
semicolon 



DISPLAY Statement 



The format of the DISPLAY statement is as 
follows: 



Byte Number 
1 

2-3 
H 
5 
6 
7... 



Description 

Code byte SN or SL 

POS 

OB 

DISPLAY 

Left parenthesis 

Expression 

Right parenthesis 

Left parenthesis - optional 

Squid - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 



DELAY Statement 

The format of the DELAY statement is as 
follows: 

Byte Number Description 

1 Code byte SN or SL 

2-3 POS 



RETURN Statement 



The format of the RETURN statement is as 
follows: 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


RETURN 


6 


Left parenthesis - optional 


7... 


Expression - optional 




Right parenthesis - optional 



Statement terminating 
semicolon 



STOP, EXIT, and Null Statements 



The format of STOP, EXIT and Null 
statements is as follows: 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


Statement identifier 


6 


Statement terminating 
semicolon 
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INITIAL Label DECLARE Statements 



The format of INITIAL label DECLARE 
statements is as follows: 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


U 


OB 


5 


INITIAL Label DECLARE 


6-8 


DECLARE chain 


9... 


INITIAL label 




Statement terminating 
semicolon 



DECLARE and ALLOCATE Statements 



The format of DECLARE and ALLOCATE 
statements is as follows: 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


U 


OB 


5 


DECLARE or ALLOCATE 


6-8 


DECLARE chain or ALLOCATE 




chain 



9... Declaration list 

Statement terminating 
semicolon 



FORMAT Statements 

The format of the FORMAT statement is as 
follows: 

Byte Number Description 

1 Code byte SN or SL 



2-3 


POS 


i\ 


OB 


5 


FORMAT 


6 • « • 


Format list 




Statement terminating 




semicolon 



Format items are replaced by one-byte 
codes 



OPEN and CLOSE Statements 



The format of OPEN and CLOSE statements 
follows . 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


OPEN or CLOSE 


6... 


File group list 




Statement terminating 
semicolon 



READ, WRITE, GET, PUT, REWRITE, UNLOCK, and 
DELETE Statements 



The format of READ, WRITE, GET, PUT, 
REWRITE, UNLOCK, and DELETE statements is 
as follows : 



Byte Number 


Description 


1 


Code byte SN or SL 


2-3 


POS 


U 


OB 


5 


Statement identifier 


6 • ■ • 


Option list 



Statement terminating 
semicolon 
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3. TEXT CODE BYTES ON ENTRY TO THE 
TRANSLATOR PHASES 



1 1 

JDICT. REF. JFILE 

|. + 

i 1 

1 1 

1 JLIST 

i 1 

1 I EDIT 

1 1 

1 TITLE JDATA 

1 1 

1 ATTRIBUTES | STRING 

1 1 

IPAGESIZE |SKIP 

|. + 

1 1 

IIDENT JLINE 

^ + 

ILINESIZE IPAGE 

1 1 COPY 

j. + 

1 1 

1 INTO 1 KEYTO 

1 1 

1 FROM 1 TASK 

1 SET I RPL 


-+ 

1 EVENT 
-+ 

1 PRIORITY 

-+ 

1 REPLY 

|BUY 

1 CHAMELEON 

-+ 

ILIST MARK 

-+ 

jlN 


"T T T T T 1 

1 COMPILER 1 1 1 1 COMPILER | 
1 FUNCTION 1 JFILE* | | FUNCTION' | 

_| + + + + ^ 

1 1 COMMA 1 { J DO EQUALS | } | 
.+ 4. + 4. + 4 

1 COMPILER 1 1 1 1 COMPILER | 
1 FUNCTION JFCOMMA JLIST' | [FUNCTION CALL' | 
JCALL 1 1 1 1 i 

1 1 < |EDIT' 1 1 - 1 
.+ + + + + 4 

jPSEUDOVAR 1 FUNCTION 1 DATA' | |PSEUDOVAR' | 

1 1 COMMA ill i 

_+ + + + + 4 

1 1 ) 1 STRING' 1 < 1 ♦ 1 

1 ERROR (ASSIGN | | | NDX | 

1 1 1 MULTIPLE! 1 1 
|BUY ASSIGN! ASSIGN | ASSIGN ! > t< | / | 

!ARCO !DROP !TMPD ! LEFT | OFS | 

1 ! 1! !LD 1 T= 1 ♦ 1 
_+ + + + + 4 

1 !BUYB III 1 
JPSEUDOVAR JCALSEQ |TT \ |PSEUDOVAR' 1 

|END 1 1 1 1 1 

ILIST MARK 1 1 JJMP | = | PREFIX - | 

_+ + + + + 1 

I FUNCTION JCNVA JRPL' ! 1 FUNCTION' | 


L ^ 


-+ 


_^ ^ ^ ^ 4 4 


1 1 

JKEY 1 

|. + 

1 1 

1 NOLOCK 1 KEYFROM 

1 1 FORMAT 
1 IGNORE ILIST 


1 DEFINED 
i SUBSCRIPT 
-+ 


1 ARGUMENT ! | I I 1 
IMARK 1^1 1 > I PREFIX + I 

! SUBSCRIPT 1 1 LITERAL | DEFINED I | 

1 JCNVB I CONSTANT! SUBSCRIPT' I SUBSCRIPT' | 

_| + + + + 4 

1 1 1 FORMAT 1 1 1 
1 1 1 ILIST' 1 < 1 ♦* 1 



._J 



H2H 



8 



B 




1 
2 
3 
H 
5 
6 
7 
8 
9 
A 
B 

C 
D 
E 
F 



TO ILINE I A I |T0* 
ALLOCATE I | CALL | 
BY I PAGE |B I I BY' 
FREE I I RETURN | PROC 
WHILE {SKIP |P I I WHILE' 
|DISPLAY|GOOB | BEGIN | SORT 






SNAP 



I COL 



|R 



I SIGNAL I GOTO | ITDO 






SYSTEM 
I- 



IE 



I 






I DO 



READ 






WAIT I REVERT | 

THEN |F |G 

DELAY I I I IF I LOCATED 

CV 
DELETE 



CV I I SELL |SN2 

EXIT I NULL I BUY |ELSE 

|C |X INOSNAP 

STOP {ASSIGN (BUYS | FORMAT 
I J. X 



SNAP' 



WRITE 



SYSTEM' 



TsN 7 I 

I I CALL' |EIO 

|SL I I 

I I I PROC' 

|CN |P' I 

(GET I I BEGIN' 

|CL I I 

I PUT I END DO I ITDO' 

|E' I END ITDO I 

UNLOCK I END |DO' 

|F' |G' I 

(REWRITE I END PROG |IF' OR ON 

I I lARRAY 

I I I CROSS SECTION 

I OPEN I END BLOCK | 

|C' |END PROG 2 INOSNAP' 

I CLOSE I ; (FORMAT 

J. i. i 
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U. FORMAT OF TRIPLES 



The triples produced as output from the 
translator phase each consist of five 
bytes, an operator followed by two two- byte 
fields. Each of the two-byte fields may be 
occupied by an operand, which may be a 
dictionary reference, a code byte or code 
bytes, or a numeric parameter. Two zero 
bytes in place of a dictionary reference 
operand imply that the operand is the 
result of previous operations, and that its 
type and location are described in a TMPD 
in the text. 

The num.ber of operands and the fields 
which they occupy depend upon the type of 
triple. The following table contains this 
inform.ation for all the triples used in the 
compiler. 



[TRIPLE TYPE 
I 

I KEYED 

I TITLE 

I ATTRIBUTES 
k 

n 
I- 



■T T 

I I 

I HEX I FIELD 1 

I CODE I 

I 03 I 

I OU I 

I 05 I 



j FIELD 2 
I 

I 

{OPERAND 

I OPERAND 



j PAGESIZE 



I IDENT 
I- 



I 06 I 

4 +. 

I 07 I 



I OPERAND 



I OPERAND 



ILINESIZE 
I INTO 

^ 



I 08 I 

-+ +- 

I OA 1 



I OPERAND 
I OPERAND 



I FROM 

I KEY 

I IGNORE 

I FILE 

I LIST 
j. 

I EDIT 
I DATA 
I STRING 



I OB I 

4 +- 

I OD I 
-+ +- 

I OF I 
-+ +- 

I 10 I 
4 +. 

I 12 I 



I OPERAND 

I OPERAND 

1 OPERAND 

I OPERAND 
■^ 



I SKIP 

1- 

I LINE 
^ 



I 13 I 

■+ + 

! m I 
4 + 

I 15 I 
4 + 

I 16 I 






j OPERAND 



I OPERAND 



I PAGE 
j. 

I COPY 

h 

I KEYTO 
L 



I 17 I 

4 +. 

I 18 I 



I OPERAND 



I 19 I 
4 +. 

I lA I 
-J. X. 



I OPERAND 



TASK 


1 - 1 
1 1 

O 1 to 1 

1 1 
1 1 
1 1 


- 


1 1 
1 1 1 1 

1 1 


RPL 


- 


IN 


T T 

1 ID 1 
+ + 

1 IE 1 
+ + 

1 IF 1 


- 


1 OPERAND 

— + 

1 OPERAND 

— + 

1 


KEY FROM 
FORMAT LIST 







X X 




1 _ 


UP 


O 1 rH 
(N 1 CM 


- 


— t - ■ 

1 OPERAND 

— + 

1 OPERAND 
1 _ 


GIVING 


- 


DOWN 
EVENT 


T T 

1 22 1 

+ + 

1 23 1 





t - 

1 OPERAND 

~+ 

1 OPERAND 


PRIORITY 


1 24 1 





— + 

1 


REPLY 


+ + 

1 25 1 
+ + 


- 


~+ 

1 OPERAND 

— + 



BUY CHAMELEON 

MSA 

MTA 



DEFINED 
SUBSCRIPT 

NULL-FUNCTION 



I 27 I - 1 OPERAND 

I 28 I OPERAND 1 1 OPERAND 2 

I 29 I OPERAND 1 1 OPERAND 2 
.^ + + 



COMPILER 
FUNCTION 



I 2E 
4 

I 2F 
4 



30 



COMPILER 
FUNCTION CALL 



I 32 
4 



COMPILER I 

PSEUDO- VARIABLE | 3U 

BUY ASSIGN I 37 

ARCO I 38 

SUBO I 39 

PSEUDO-VARIABLE | 3A 

SSUB I 3B 

FUNCTION I 3C 

SSB* I 3D 

SUBSCRIPT I 3E 

NOP I 3F 

PTCH I 40 

COMMA I m 

X 

have 



OPERAND I 



OPERAND 



OPERAND I 
+- 



OPERAND I 

OPERAND 1 1 OPERAND 2 

I _ -_ 
OPERAND 1 1 OPERAND 2 
OPERAND I 
OPERANDI I 0PERAND2 
OPERAND I 
OPERAND I 
OPERAND I 

I - I - 
OPERAND 1 1 OPERAND 2 
I ♦ 



♦This triple may 
format lists. 



two operands in 
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r T 

I FUNCTION COMMA | H2 
|. ^ 



COMPILER I 

FUNCTION COMMA | 4U 

ACT I US 

COMPILER ASSIGN | U6 

ASSIGN I 47 

DROP I U8 



^ 

CONCATENATE 

BUY B 

OR 

AND 

NOT 

LIST* 
I 

EDIT" 



■+ 

I 
I 

I OPERAND 
I OPERAND 
I OPERAND 



-T 1 

I OPERAND I 

■+ 



(OPERAND 
1|0PERAND 2 
1 1 OPERAND 2 
1 1 OPERAND 2 

(OPERAND 



— + 

I H9 

I 4A 

I 4B 

I 4D 

I HF 

— + 

I 52 

— + 

I 53 



+ 

I OPERAND 

I 

I OPERAND 

I OPERAND 

I 



ij OPERAND 2 

I OPERAND 
-^ 

1 1 OPERAND 2 

1 1 OPERAND 2 
(OPERAND 



DATA* I 54 

STRING* I 55 

STMPD I 56 

MULTIPLE ASSIGN | 57 

TMPD I 58 

JMP I 5B 

RPL* I 5C 

LITERAL CONSTANT I 5E 

FORMAT LIST' | 5F 

UP* I 60 

DO EQUALS I 61 

DOWN* I 62 

ERROR j 63 

UPSIDE-DOWN I 

COMMA I 6U 

LESS/EQUAL | 65 
^ 

GREATER/EQUAL | 67 

LEFT I 68 

NOT EQUAL | 69 

EQUAL I 6B 

GREATER | 6D 



I 

I 

I OPERAND 

I OPERAND 

I OPERAND 

I OPERAND 



I 
1 I OPERAND 2 
1 1 OPERAND 2 
1 1 OPERAND 2 
1 1 OPERAND 2 






OPERAND 



I 



I OPERAND 



1 1 OPERAND 2 



I - I - 



I 

I OPERAND 

I OPERAND 

I OPERAND 

1 OPERAND 

I OPERAND 

I OPERAND 

I OPERAND 
-X 



1 (OPERAND 2 
1( OPERAND 2 
1( OPERAND 2 
1( OPERAND 2 
1( OPERAND 2 
1( OPERAND 2 
1( OPERAND 2 



( DEFINED 

(SUBSCRIPT* 

j. 

(LESS 

|. 

j COMPILER 
(FUNCTION' 

L_ 


( 6E ( OPERAWD 

-+—— + 

( 6F (OPERAND 

-+ + 

( 70 (OPERAND 
-+ + 

( 72 (OPERAND 

-+ + 

( 73 (OPERAND 
_i X 


1 1 
1 - 1 

-+ ^ 

1| OPERAND 2( 

-+ ^ 

1 1 
1 - 1 

-+ ^ 

1 1 

1 - 1 

-+ ^ 

1( OPERAND 2| 
1 J 


( COMPILER 
(FUNCTION CALL' 


( MINUS 


( COMPILER 

i PSEUDO- VARIABLE 
1 


t T 

•( 71* (OPERAND 

-+ + 

I 75 (OPERAND 

-+ + 

( 76 ( 

-+ + 

( 77 ( OPERAND 
_i i 


T 1 

1 1 
1 - 1 

-+ ^ 

ij OPERAND 2| 

-+ ^ 

( OPERAND 1 

--+ ^ 

1( OPERAND 2( 
._i_ J 


( PLUS 

|. 

(COMR 
1 


( DIVIDE 


(OFS 
1 


( 78 (OPERAND 

-+ + 

( 79 (OPERAND 

-+ + 

' j 7A ( OPERAND 

-•I + 

( 7B ( 

-+ + 

( 7C JOPERAITO 

( 7D ( 

( 7E (OPERAND 

-+ + 

j 7F (OPERAND 

( 80 ( 

1 81 j 

( 82 ( 

-^ + 

( 83 ( 

( 8U (OPERAND 

( 85 ( 

( 86 ( 

( 8B ( 

-^ — + 

( 8C (OPERAND 

-+ + 

( 8D j 

-^ + 

( 8F ( 

-+ + 

( 90 ( 

-■1 + 

( 91 ( 

-+ + 

( 92 ( 

-+ + 

( 94 ( 
-J J. 


T 1 

1 - 1 
-+ — 1 

ij OPERAND 2( 

-+ ^ 

1 - 1 
-+ ^ 

j OPERAND ( 

-+ ^ 

1 - 1 

-+ ^ 

( OPERAND j 
1 - 1 

-+ ^ 

ij OPERAND 2( 

-+ ^ 

1 - 1 
( OPERAND ( 

--+ H 

1 - 1 
( OPERAND ( 

1 - 1 
( OPERAND ( 

--+ ^ 

( OPERAND ( 

(OPERAND ( 

1( OPERAND 2( 

1 - 1 
1 - 1 
( OPERAND ( 

-+ ^ 

1 - 1 
1 - 1 

( OPERAND ( 
._J. J 


r 

( MULTIPLY 

|. 

( PSEUDO- VARIABLE 


(PREFIX MINUS 
J 


( FUNCTION* 
(PREFIX PLUS 
(SUBSCRIPT' 


( EXPONENTIATE 
1 


(TO 
1 


( ALLOCATE 
1 


(BY 
J 


(FREE 

1 _ 


(WHILE 
1 


r 

(♦CV 

1 


(SNAP 
1 


( DELAY 


r ~ - — 

(CV 
1. 


r ■ — ^ 

(EXIT 
! 


(STOP 
1 


(LINE 
1 


(END ALLOCATE 
1 


I- 

(PAGE 

|. 

(SKIP 



Appendix D: Internal Formats of Text U27 



j DISPLAY 
h 



I COLUMN 

^ 

I SIGNAL 
IE 



^ 

I REVEST 

^ 

IF 

|C 

^ 

|A 

I CALL 

IB 

I RETURN 

IP 

I GO OUT OF BLOCK 

|R 

I GO TO 

jGOLN 

IBUYT 



h 

JBUYX 

I BSELL 
I SELL 
I BUY 
IX 



•T T 

I 95 I 
I 96 I 
I 97 I 

I 98 I 
4 + 

I 99 I 
4 + 

I 9A I 

I 9E I 

I AO I 

I Al I 

I A2 I 

I A3 I 

I At» I 

I A5 I 

I A6 I 

I A7 I 

I A8 I 

I A9 I 



'T 1 

I OPERAND I 



OPERAND 
OPERAND 



I- 

JBUYS 

IPROC 
I BEGIN 



I AA i 

I AB I OPERAND 

I AC I 

I AD i 

I AE I 

I AF I 

I B3 I 

I B5 I 



I- 

I ITERATIVE DO 

I DO 
I IF 
|SN2 
I NOSNAP 



j B7 j OPERAND 

I B9 {OPERAND 

I BB I OPERAND 

I BC I 

I BE I 



OPERAND 
I 
I 
I OPERAND 

I OPERAND 

-■I 

I OPERAND 

I OPERAND 
I OPERAND 
I OPERAND 
I OPERAND 
I OPERAND 
I OPERAND 

I OPERAND 

-+ 

I OPERAND 2 

1 1 OPERAND 2 

I OPERAND 

I OPERAND 

{OPERAND 

I OPERAND 

I OPERAND 

I OPERAND 
-+ 



i 

1 1 OPERAND 2 
I OPERAND 
(OPERAND 



^ 

I FORMAT 

I TO* 



I BF I 
I CO I 



I OPERAND 
[OPERAND 



I- 

{BY* 

j. 

(WHILE* 



I C2 I 

4 + 

I CU I OPERAND 
-JL X 



1 OPERAND 



WRITE 



I C7 I 



READ 



C9 



— 1 



CV I CC I OPERAND 

STATEMENT NUMBER] DO | OPERAND 
CLNl I Dl I 



STATEMENT LABEL 



D2 



CLN2 



D3 



j OPERAND 

4 



COMPILER NUMBER 
GET 



I DU 

4 

I D5 



COMPILER LABEL 
PUT 

E* 



I D6 

4 

I D7 

4 

I D8 



4- 

I 

4- 

I 

4- 
I 
4- 



-+ ^ 

1 1 OPERAND 2 

-+ ■! 

1 1 OPERAND 2 
I OPERAND 

-+ ^ 

1 I OPERAND 2 

-+ A 

I OPERAND 

-+ ^ 

I OPERAND 

-+ ^ 



UNLOCK 
F* 

REWRITE 
OPEN 



CLOSE 



I D9 

■^ — 

I DA 

4 

I DB 

"I 

I DD 

4 

I DE 

4 

I DF 



-+ ^ 

I OPERAND 

-+ ^ 

I - I 

-+ ^ 

I 
-+ 



^ 

I - I 

I - I 



+- 

I 

+- 

I 

+ 



I 






+- 
I 

4- 



l. + — 

I CALL* I El 

P* I E^ 

END PROG I EB 

END BLOCK | ED 

END PROG 2 I EE 

END I/O I Fl 

PROC I F3 



I 
-+ 



4 

I - l_ - _ 



I 
I 

I - _ 

I 

!__ -__ 

I OPERAND 



|. + 

(BEGIN* I F5 

ITERATIVE DO* | F7 



|. + 

(DO* ( F9 

IF* OR ON ( FB 

PREFMT I FD 

FORMAT* I FF 
X 



I OPERAND 
I OPERAND 



I _ - _ 



I OPERAND 
I OPERAND 

I 

X J 



1 1 OPERAND 2 1 
._x J 
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5. TEXT CODE BYTES IN PSEUDO-CODE 



1 2 3 456 7 89 

r T r 1 T T T T T T 

IDCVO lOSMl JBGPE |BLBS JLCR j LCDR | LCER j LM |bCTA'JLH 

1 IDCVl |0SM2 jEOB |BLBS' |BCR | SPM jCLR | SLA | BC | CH 

^ + ^ + + _+ + ^ ^ + 

2 IDCV2 I ALLOC JPCC |BDYS JHER JLTR JALR JSLDAJDCF j AH 

^ + + ^ + ^ + ^ ^ ^ 

3 |DCV3 |DCA3 JCHSM JPINS JHDR ILTERJSLR |SLDL|BCTA | SH 

4 IDCVU jDCAU I ADR |RWA |BCTR|LTDR| | SLL | BCT | MH 

5 IDCV8 IFREE |SN3 |APRM jNR | LNR | LPR | SRA |N | STH 

I b I DROP I BOY jBCIN |DSNG |0R | LNER | LPER | SRDA | O | QLA 
^ + ^ ^ ^ ^ ^ ^ + + 

7 JEQU (SELL I STOP jEDIT JXR j LNDR | LPDR | SRDL j X | STD 
^ + + + + 1 + .j + + 

8 JPSOC jPPOC' JBGNP jFMT jLR | LDR | LER | SRL |L j LD 

I I I ILST ] I I 1 I I 

|. + + + ^ + ^ 4 + + 

9 jB£GIN|BEGIN* JBGNP' JFMT JCR JCDR JCER j STM |C j CD 

|. + ^ ^ + ^ 4. ^ ^ + 

I A JPASS JADV JDROB' JFMT' JAR JADR JAER | BXH |A j AD 

3 jEOP jPLBS |PLBS' lEDIT* |SR |SDR |SER |BXLE|S | SD 

C |ECP2 IPCBS jPSLD |ERROR|MR |MDR |MER | SLl |M | MD 
^ + + +-_ 4 + ^ + + + 

D JIPRK IIPRM* JABS JPFMT JDR JDDR j DER j SN |D j DD 

E lEPRK jEPRM* |ABS* | |SVC |AWR |AUR |CL1 | IC | AW 

F IITDC |ITDO» I ALIGN I jBALRjSWR | SUR | CN | BAL | CVB 

-X J J ± i X X. 



L X J X J J X X X X X X X J J X J 



T 

I LA 

+ 

|CL 

+ — 

|AL 

+ 

JSL 

+ 

|STC 

+ 

1ST 

+ 

I EX 

■+ 

|STE 

•+ 

|LE 

I 
4 

|CE 
4 

|AE 
4 

|SE 
4 

I ME 
4 

IDE 
4 

JAU 
4 

JCVD 
X. 



T T 



B C I 

T T T 

|CLI JCLC JTR 
4 + + +__ 

|MVI |MVC JTRT I 
4 + + +-_ 

|NI |MVN I PACK I 
4 + + +._ 

1 01 JMVO JUNPK I 
4 + 4 4.__ 

JSSM JMVZ I IGNORE I 
4 + + +__ 

|TM |NC 
4 + + 1_. 

I XI JOC ICONV j 
4 4. 1 +__ 

|LA« |XC ICONV' I 
4 + 4. +__ 

|DCF2 I ZAP lUSSL | 

I I 



4 

I BCT 

|MDRP 
4 



-+ + +— 

I CP I DRPL j 

-+ + +-- 

I AP I CNVA 



4 

|SN2 

+ 

JOSMB 
4 

JEQU' 

+— — 
JBSW 
.X 



-+ + +— 

|SP |SINL I 

-+ + +~ 

I MP I CNVCl I 

-+ + +— 



T 1 

JINSTJ 

+ -I 

I MVCL I 

+ ^ 

+ — ^ 
+ — ^ 
+ — ^ 
+ — ^ 
+ — ^ 
+ — ^ 

+ — ^ 
+ — ^ 
+ — ^ 



I DP 
4 

I ED 
4 

JEDMK 
.X 



CNVC2 

+ +- 

CNVC3 I 

■I +- 

CNVCU I 



+ — ^ 

IGN2 

+ — ^ 

IGN4 

+ — ^ 

IGN5 

+ — ^ 

IGN8 



6. TEXT FORMATS IN PSEUDO-CODE 



The format of the various pseudo-code 
units is as follows:. 



Pseudo-code Design 



Pseudo-code is essentially a symbolic 
representation of machine code, designed in 
such a way that it is possible to directly 
transform it into executable machine code 
by an assembly process. 



A unit consists of a one-byte operation 
code followed by, normally, a two or 
four- byte field and on the other occasions 
by a variable length field. The bit 
pattern of the operation code indicates the 
type of unit which it heads. 



By having most units either three or 
five bytes long, the scanning of 
pseudo-code is a fairly straightforward 
process . 



Three- byte unit; this consists of a 
one-byte operation code followed by a 
two- byte literal offset, and it appears 
immediately after the symbolic 
representation of the instruction to 
which if refers. 



Five- byte unit; there are four basic 
five-byte units which have the 
following formats. 

Bytes 1 3 

r T T 1 

I OP I 1 I R2 I 

I I Rl I I 

I CODE I I DICT REF | 
L X X J 

Bytes 1 3 

r T T 1 

I OP I I I 

I i R3 I OFFSET | 
I CODE I I I 

L X X_ J 
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Bytes 1 3 

r T T 1 

I OP I I I 

I I Rl I R2 I 
I CODE I I I 

L J J J 

Byte 1 3 

r T T 1 

I OP I 1 I R2 I 
I I HEX I I 

I CODE I I DICT REF j 
L J. J. J 



Using these units with, if necessary, a 
three- byte unit, it is possible to 
symbolically represent any possible RR, RX, 
RS or SI instruction. 



Variable length unit; the format of 
this is: 



L R1,J0E(R3) 

Bytes 1 3 

r T T 1 

I L I Rl I DR(JOE) I 
L i X J 

r — ^ T 1 

I OSM2 I R3 I 
L i. J 



L Rl,JOE+2U(R3) 

Bytes 1 3 

r T T 1 

I L I Rl I DR(JOE) I 
L X i. J 

r T T 1 

I 0SM3 I 2U I R3 I 

L X X J 



Bytes 
r- 



OP 



3 
— T- 



I I FLAG I VARIABLE | 
I CODE I I I 



With a specially designed variable field 
described by a two-byte flag, it is 
possible to represent any SS instruction 
with this unit. 

The first byte of the two-byte flag 
indicates the format of the variable field 
and the second gives the length of the 
total unit. 



Alternatively, JOE might be a base 
register in which case the dictionary 
reference would be replaced by a symbolic 
register. The two forms are distinguished 
by setting the flag bit of the first 
symbolic register equal to one when a base 
register is intended. 



L R1,0(R3,R2) 

Bytes 1 3 

r T T 1 

I L I 1 Rl I R2 I 
L X X J 

r T 1 

I 0SM2 I R3 I 
L JL J 



RX Instructions 



The following examples illustrate the basic 
forms of an RX instruction and the way in 
which they are represented in pseudo-code. 



L R1,J0E 



I Bytes 
r- 



I L 



L Rl, JOE+2U 



Rl 



DR(JOE) 



When a branch instruction is generated 
which branches to a compiler generated EQU 
value, bit two of the second byte is set to 
one to indicate that the second field is in 
fact an EQU value. 



-1 I Bytes 
I r- 
-■• I 



BC 



01 



T 1 

HEX I EQU VALUE | 
X J 



I Bytes 1 3 

r 1 T 

I L jo Rl I DR(JOE) 



"I j Bytes 
I r- 



OSMl 



2H 



j BC 



HEX 



3 
■T 1 

I R2 I 

h ^ 

I DICT REF I 
.X J 
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RS Instructions 



SI Instructions 



The following examples illustrate the basic 
forms of an RS instruction and the way in 
which they are represented in pseudo-code: 

BXU R1,R2« ALPHA 



Bytes 

I 

j BXH 



Rl I DR( ALPHA) | 
X J 



OSK2 



R2 



BXH R1,R2,ALPHA+2U 




Bytes 1 


3 


1 BXH 1 Rl 


1 DR (ALPHA) 1 


^ 1 


1 1 




1 0SM3 1 2U 


T ■ 1 

1 R2 1 

.. . I J 



The following examples illustrate the basic 
forms of an SI instruction and the way in 
which they are represented in pseudo-code: 



CLI BETA,X»FF' 



I Bytes 



^^,^,^mm^m 


— T- 






~""T 




T 


1 CLI 
L 


1 





FF 


1 

X_ 


DR(BETA) 


1 
J 



CLI BETA+U,X'FF» 



I Bytes 



r 

I CLI 
L 



FF 



I DR(BETA) 



I OSMl I 

L_ — , X 



— 1 
I 



Alternatively, BETA might be a base 
register in which case the dictionary 
reference would be replaced by a symbolic 
register. 



Alternatively, ALPHA might be a base 
register in which case the dictionary 
reference would be replaced by a symbolic 
register as in the RX instruction. 



SLA Rl,6 



I Bytes 



I SLA I Rl 



—X. 






SS Instructions 

Basically, an SS instruction consists of 
two base registers and a length byte. 
Since this does not conform to the format 
of other items of pseudo-code, it is 
necessary to represent an SS instruction 
with a variable length field, the length of 
which is specified in the second of two 
flag bytes immediately following the 
operation code. 



This variable form of pseudo-code will 
be used to convey items of information 
internally between compiler phases, at the 
same time maintaining the -items in the 
guise of pseudo-code. 



RR Instructions 



The following example illustrates the form 
of an RR instruction and the way in which 
it is represented in pseudo-code. 



AR R1,R2 
I Bytes 1 



j AR 
L 



Rl I 






R2 I 



Variable Length Item FLAG 

The first bit of the FLAG indicates whether 
or not the unit represents a machine 
instruction. In the former case, the 
format of the instruction is: 



Bytes 
1 



8 



10 



r T T T T T T T 1 

iOP I i I i I I I I 

I JFLAG|LENGTH| Fl | F2 j F3 j F4 | F5 j 

|CODE| I I I i I i I 
L X- X X X X X X J 
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The f ornat of the FLAG is : 



Bit 


Zero 


One 





Always zero 




1 


F2=dict. ref. 


F2=SYin reg. 


2 


F3=dict. ref. 


F3=syin reg. 


3 


FU not present 


FU present 


4 


i5 not present 


F5 present 


5-7 


Not used 





The FI field is identical to the length 
field in the SS machine instruction. The 
field contains one or two lengths which are 
each one less than the corresponding 
lengths used in Assembler Language. The FH 
and F5 fields contain literal offsets. 



Compiler Function (Bit 1=1) 

In compiler functions, the format of the 
FLAG depends on the operation code. Thus: 

r T T r T 1 

I CONV I FLAG I LENGTH j Fl j F2 j 
L JL J JL J. J 

The format of the FLAG is : 
Bits Both Zero Both One 

Always one 

1 and 2 Fl=dict. ref. F1=TMPD operand 

3 and 4 F2=dict. ref. F2=TMPD operand 

5-7 Not used 

The FLAG in the IGNORE item does not 
contain any information. 

The following examples illustrate the 
basic forms of an SS instruction and the 
ways in which they are represented in 
pseudo-code. 



I Bytes 1 



MVC ALPHA ( 7 ) , BETA 
2 3 4 



JMVC|X'00' I 8 j 6 
L X J. J. 

6 

|DR(BETA) I 
L J 



j DR (ALPHA) j 
-X J 



ZAP ALPHA+SdU), BETA(6) 

I Bytes 1 2 3 4 

r T T T T 1 

|ZAP|X'10'| 10 1 13 5 I DR (ALPHA) I 
L X J. i i J 

I 6 8 

r T 1 

|DR(BETA)| 3 1 

MVC ALPHA(6), BETA+II 

I Bytes 1 2 3 U 

|MVC|X'08'| 10 I 5 TdR(ALPHA)] 
L ± ± X X J 

1 6 8 

r T T 

iDR(BETA)| 111 
L X J 

AP ALPHA+3(1U),BETA-H1(6) 

I Bytes 1 2 3 H 

|AP |X'18'| 12 1 13 5 I DR (ALPHA) I 
L X X X J J 

I 6 8 10 

r T T T 

I DR (BETA) I 3 I 11 1 
L X X J 



Alternatively, ALPHA and/or BETA might 
be base registers, in which cases, the 
dictionary references would be replaced by 
symbolic registers and the FLAG byte would 
be set accordingly: 

M70 ALPHA(lt»), 11(6,R1) 

I Bytes 1 2 3 H 

|MVO|X'28'| 10 1 13 5 | DR (ALPHA) | 

L X X X J J 

I 6 8 

r T 1 

I Rl I 111 

L X J 



Pseudo-code Format between lEMRA and lEMRF 



Fields that may hold a dictionary reference 
or register number have, at this time, the 
possibility of holding a literal offset. 
The presence of an offset is indicated by 
the first bit of the field being set to 
one, and earlier flags being set to 
•register. ' 
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TEXT FORMATS IN ABSOLUTE CODE 



SS Inst r uct ions 



Where a standard set of assigned registers 
is to be used for a section of code, e.g. 
in the construction of prologues, or during 
the generation of addressing instructions, 
it is possible to generate instructions 
with registers in absolute code, instead of 
the normal pseudo-code two-byte symbolic 
registers. (See "Text Formats in 
Pseudo-Code" in this Appendix. ) 



sections of absolute code are preceded 
by ABS markers and followed by ABS • 
markers. The operation codes are the same 
as the norisal pseudo-code instructions (see 
"Text Code Bytes in Pseudo-Code" in this 
Appendix) , but the instruction formats 
differ, as shown in the following examples; 



I Bytes 1 2 3 

T T T 1 

OP CODE I LENGTH | Bl | DICT REFCE | 
X J. X. , J 

6 
— — ^ ^ 

B2 I DICT REFCE | 
_ X J 

1 

OSMl I OFFSET | 
— ., X- ^ J 

1 

0SM2 I OFFSET | 
X : J 



RS Instructions 



Shift Instructions 



I Bytes 



I OP CODE 

L 



.X 



2 

■T 1 

I OFFSET j 
.X J 



other Instructions 



RR Instructions 



I Bytes 



I OP CODE I Rl 



R2 I 



I Bytes 



OP CODE I Rl R2 I B2 | 
: X X J 



DICT REFCE | 
. ^J 

1 
OSM2 I OFFSET \ 



RX Instructions 



SI Instructions 



I Bytes 



j OP CODE i Rl X2 i B2 



DICT REFCE j 



1 

I 
J 



0SM2 I OFFSET | 



j Bytes 



I OP CODE I MASK 
L X 


r- 



•T T T 

JBl I DICT REFCE | 
.X X J 



OSM2 



1 

I OFFSET I 
-X J 



Note that the 0SM1/0SM2 markers and their 
following offsets are all optional; note 
also that the OSM2 byte does not have a 
register following it, as in normal 
pseudo-code, but a literal offset. 
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The first bit (bit 0) of the byte 
containing the base is used as a flag. If 
this bit is a one, the following two bytes 
contain, in their low order position, a 
twelve bit offset, instead of a dictionary 
reference. 



After Phases RA and RF all instructions 
in the text will be in absolute code. 



8. SECX)ND FILE STATEMENTS, AND THE FORMATS 
OF COMPILER FUNCTIONS AND PSEUDO-VARIABLES 



Second File Statements 



Any expression occurring in an attribute 
must be put into a form which is acceptable 
to the translator phase. This means that 
it roust look like a source statement. To 
comply with this, all expressions dealing 
with array bounds, string lengths, 
DEFINING, and INITIAL value iteration 
factors are converted into assignments to 
function references. These functions have 
a special ireaning. They are not entered in 
the dictionary, and their dictionary 
references are to a region in the 
communications area. The pseudo-code 
physical phase dealing with each particular 
function generates in-line code instead of 
a function reference. 



All the statements of this type are 
generated in the source text after the end 
of the original source program. They form 
a second program and are referred to later 
as the "second file." 

The statements generated have the 
following overall format: 



Byte Number 
1 
2-3 

5 



Description 
code byte SN2 
Dictionary reference 
Options byte 
Statement type markers 



6 onwards Statement body 

The dictionary reference is the 
reference of a second file dictionary 
entry. This is described in Appendix C. 
The options byte is that for the options 
operative in a prologue, i.e. no 
interruptions are accepted. 



Array Bounds 



The format of the second file statement for 
array bounds is as follows: 



Byte Number 


Description 


1 


Assignment statement marker 


2 


Code Byte X'OO* 


3-a 


ADV code X»0002' 


5 


Compiler pseudo-variable 


6 


Left parenthesis 


7 


Code byte X'OO' 


8-9 


Dictionary reference of 



10 

11 

12 
13 

14 

15 
16 
17. 



array 

Triple operator code byte 

Code byte X'5E* 

Code byte X'OO* 

Code byte X'OO* for lower 
bound, X'Ol* for higher 
bound 

Number of the dimension 
whose bound is referenced 

Right parenthesis 

Triple operator code X't»6* 

Expression for bounds 

Statement terminating 
semicolon 



Multiplier Function 

Multiplier fvmction statements are used to 
denote copying of a section of one dope 
vector into another. The format is: 

Byte Number Description 

1 Assignment statement marker 

2 code byte X'OO' 

3-U MTF code bytes X'OOIO* 

5 Compiler call marker 

6 Left parenthesis 

7 Code byte X'OO' 
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8-9 


Dictionary reference 


1 


10 


Triple operator code 


byte 


11 


Code byte X'OO' 




12-13 


Dictionary reference 


2 


lU 


Triple operator code 


byte 


15 


Code byte X'5E* 




16 


Code byte X'OO' 




17-18 


Offset 1 




19 


Triple operator code 


byte 


20 


Code byte X'5E' 




21 


Code byte X'OO' 




22-23 


Offset 2 




2U 


Triple operator code 
X'4U' 


byte 


25 


Code byte X'5E' 




26 


Code byte X'OO' 




27-28 


Length 




29 


Right parenthesis 




30 


Statement tenninatin< 


? 



semicolon 

This statement requires the number of 
bytes specified by the length to be moved 
froir the dope vector of the item at 
dictionary reference 2, starting at an 
offset of offset 2, to the dope vector of 
the item at dictionary reference 1, 
starting at an offset of offset 1. 



String Length statement 

The string length statement is used to 
initialize the maximum length slot in a 
string dope vector. The foirmat is: 

Byte Number Description 

1 Assignment statement marker 

2 Code byte X'OO' 
3-4 SDV code X'OOOU' 

5 Compiler pseudo-variable 



6 Left parenthesis 

7 Code byte X'OO' 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator Code X'U6' 

12... Expression 

Statement termination 
semicolon 

The dictionary reference is that of the 
item whose dope vector is being 
initialized. If the expression is defining 
the length of a string being returned by an 
internal function, then the dictionary 
reference is that of the entry type 2 
belonging to the label. In Figure 6 the 
reference is to B or C depending on whether 
the statement appeared in a PROCEDURE/ENTRY 
statement, or an ENTRY attribute. If the 
item is a data item, an external procedure, 
or a formal parameter entry point, then the 
dictionary reference of that particular 
item appears in the statement. 



INITIAL value statements 

INITIAL value statements are used to 
initialize a vector of storage used to 
contain iteration factors. It is implied 
that the value of the expression must be 
converted to type integer. The format is 
as follows : 

Byte Number Description 

1 Assignment statement marker 

2 Code byte X'OO' 
3-U IDV code 

5 Compiler pseudo-variable 

6 Left parenthesis 

7 Code byte X'OO' 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator code X'46' 

12. . . Expression 

Statement terminating 
semicolon 
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The dictionary reference is to the item 
being initialized. The integer is the 
number of assignment statements of this 
type, and for this variable, that have been 
generated before this one. 



9. PSEUDO-CODE PHASE TEMP OR TRY RESULT 
DESCRIPTORS (TMPD) 



Temporary Description Stack 



Second File Statements for BASED and OFFSET 



A statement is generated for a variable 
which is declared BASED with its associated 
pointer given, and for a variable which is 
an OFFSET with its associated base given. 
The format of the statement is similar to 
that of the INITIAL value statement except: 



Byte Number Description 

3-4 PEXP code (BASED) X*0016' or 
BVEXP code (OFFSET) X»0017« 

12 Expression (which must be a 
single dictionary reference 
of the associated pointer or 
base) 

The dictionary reference in bytes 8-9 is 
that of the BASED or OFFSET variable. 



Second File Statements for DEFINED 



Second file statements are generated when 
an expression is associated with DEFINED, 
but the expression does not contain any 
iSUBs. The format is: 



Byte Kijraber 


Description 


1 




Compiler assignment 
statement marker 


2 




code byte X'OO* 


3- 


■4 


ADF code; 

X'OOll' for base only 



All information on temporary results is 
contained in this stack. Each item in the 
stack consists of 10 bytes, f m.aximum of 
200 items is allowed. 



Byte 1 



Flaa 1 



X'0012* for subscripted base 
X»0013' for base with iSUE's 



5 Pseudo-variable marker 

6 Left parenthesis 
Base7and subscript list 

Right parenthesis 

Statement teinminating semicolon 



Byte 2 



Code 2 



Bytes 3-4 P,Q 



Bytes 5-6 BASE 



Byte 7-8 NDX 



describes the addressing 
method contained in bytes 
5 through 10. 2 bits in 
this byte are also used 
during the release of 
temporary results 

describes the radix, 
scale, mode, string type 
etc. of the temporary 
result. The format of 
this byte is identical to 
the similar byte in the 
dictionary and the DED 
used by the Library 
subroutines, routines. 
(See "Data Byte" in 
Appendix C.) 

describes the precision 
and scaling of arithmetic 
type results 

in one of the following 
forms: 

1. "Reg by value" 
register containing 
the result - no index 
or offset is allowed. 

2. "Reg by value" 
register containing 
the base address of 
the result stack 

3. Offset from beginning 
of current temporary 
storage for results 
held in the temporary 
storage stack 

4. Dictionary reference 
which specifies the 
base address of the 
result of a subscript 
calculation 

in one of the following 
forms : 

1. Symbolic indexing 
register for BASE type 
2 and 4. 

2. The number of bytes 
required in the 
temporary core stack 
for BASE type 1 
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Bytes 9-10 OFS which is a literal offset 
to be inserted in the 
base address. When used 
with BASE type 1 the 
actual temporary offset 
is the sum of the offsets 
and the number of bytes 
required in the stack is 
the sum of the contents 
of OFS and NDX 

Strings are described in the following 
ways: 

If the string is of fixed length less 
than 256 bytes, it is given storage in 
the core stack. This type of string 
has a dictionary entry if it is passed 
to a subroutine. 

If the string is of variable length or 
longer than 256 bytes, the storage is 
bought and sold ii^en required. This 
type of string always has a dictionary 
entry. 

If the string has no dictionary entry, 
it is described by the usual CODE 
bytes, the temporary core offset in 
BASE, and the byte length in NDX. 



If the string has a dictionary entry, 
it is described by the usual CODE bytes 
and the dictionary reference IN BASE. 
The dictionary entry describes the 
location of the string which may be 
either the temporary area offset and 
size for the first type, or a BUY 
statement for the second type. 



The 'top' of the stack is indicated by 
two pointers: PSTK and LSTK. PSTK points 
to the 'physical* top of the stack, which 
is the last item added. LSTK points to the 
•logical* top of the stack, which is the 
next item to be released. The difference 
is necessary because the temporary storage 
stack may not be released in the same order 
as the description stack. When an item in 
the description stack is released, the 
corresponding temporary storage may not be 
at the top of the stack storage. As the 
storage stack is always released in order, 
the description is flagged and the LSTK is 
reduced by 1 item. When the corresponding 
temporary core is released from the top of 
the storage stack, the description is 
completely removed from the 'physical* 
stack. 






FLAG 



X*00* 

X*02* 

X*0«»* 

X*05* 

X*20* 

X*«H* 

X*49* 

X*80* 
X*CO* 

X*C1* 

X*C5* 



F5 



Dictionary 
reference 
Dictionary 
reference 
Dictionaury 
reference 
Dictionary 
references- 
Dictionary 
reference 
Symbolic 
register 
Symbolic 
register 
Register 
Workspace 
offset 
Workspace 
offset 
Workspace 
offset 



F6 



T T 

Whether F7 
applicable 



Dictionary 

refer ence^ 

Index 

register 

Dictionary 

reference 

Dictionary 

reference 



Dictionary 
reference 
Dictionary 
reference 




Yes 

No 

No 

No 

Yes 

Yes 

Yes 

No 
Yes 

Yes 

NO 



STRUT2 output — must SELL dictionary ref. 

REPEAT function result. 

SDBSTR function result. 

Arithmetic subscript, or SDV for varying 

string subscript. 

Non-adjustable fixed string subscript, with 

DROP in STRUT2. 

Non-adjustable fixed string subscript, without 

DROP in STRUT2. 

Item in register — F7 cannot exist. 

SDV for adjustable fixed string subscript. 
SUBSTR pseudo- variable result. 



Notes 1- Since F6 cannot be used for both an index register and a dictionary 
reference, bits 2 and 7 of the FLAG byte cannot both be 1. 
2. Many other bit configurations in the FLAG byte are meaningful and could 
be used for future applications. 



Figure 12. Temporary Descriptions in Pseudo-Code — Use of TMPD Triple Fields F5 and F6 
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Temporary Descriptions in Pseudo-Code 



Descriptions are passed between pseudo-code 
phases usinq two or three TMPD triples, 
with the following formats: 

r T T T T 1 

I TMPD I FLAG I F2 \ F3 | FU | 

Y + — .± + X 1 

I TMPD I F5 I F6 j 

I TMPD I F7 I I 

L L ± J 



3. F3 and FU contain: 

a. Precision and scale factor of 
coded arithmetic type data 
String length for coded 
non-adjustable strings (maximum 
length for varying strings) 
Picture dictionary reference for 
data with picture 



b. 



c. 



U. F5 and F6 are at present used as shown 
in Figure 12. 



1. FLAG describes the use of fields F5, 
F6, and F7. 



5. F7 can be used by adding X*10' to the 
FLAG byte in all cases which give a 
meaningful result (see Figure 12). 



Bit 1 
Nuicber 1 


Value 1 


— 


^ 


f 





and 1| 


00 1 
11 1 

01 1 

10 1 


2 




i 

1 1 


3 




i 

1 1 


4 




1 

1 1 


5 




1 

i 1 1 


6 




1 

1 1 1 


7 




1 1 
1 1 1 



Meaning 

F5 contains a dictionary 

reference 

F5 contains a temporary 

workspace offset 

F5 contains syir.Lclic 

register with address of 

item 

F5 contains register with 

value of item 

F6 does not contain index 

register 

F6 contains index register 

Two TMPD triples are used 

Three TMPD triples are 

used, and FT contains an 

offset 

Normal setting. String 

utility STRUT2 drops 

symbolic register in F5 if 

used for input 

String utility STRUT2 does 

not drop symbolic register 

Normal setting 

Result of an invocation of 

SUBSTR or REPEAT 

No SELL is required 

User of this description 

must SELL dictionary 

reference in F5. Set by 

string utilities for 

adjustable string result 

F6 does not contain a 

dictionary reference 

F6 contains a dictionary 

reference 



2. CODE contains the data byte 

(describing type, radix, scale, mode, 
etc. ) 



10. LIBRARY CALLING SEQUENCES 



Inter ral library routines are used for such 
things as data type conversion, where there 
is no explicit reference to the routine in 
the PL/I source program. The arguments are 
handed to the routines in registers. In 
pseudo-code form, assigned registers are 
used, and special markers, IPRM and IPRM* 
are used to indicate the calling sequence 
to the register allocator phase. Internal 
library calls appear in pseudo-code as; 



IPRM 

L 

L 



1, (ARGUMENTl) 
2, (ARGUMENT2) 



L 15,IHE (Routine Name) 

BALR 14,15 
IPRM* 



TiiG second byte of the IPRM item is used 
as a flag byte. The settings are as 
follows : 



Bit 
Bit 1 

Bit 2 



Must be zero 



END, or RETURN statement not 
in BEGIN block calling 
sequence 



END statement calling 
sequence 
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External library routines calls 
correspond to explicit references to 
functions or I/O statements in the PL/ I 
source prc.grain. The arguments to the 
routines are placed in workspace, and 
register 1 is set to point to the first 
argument. For pseudo-code form the calling 
sequence is preceded by an EPRI5 marker and 
followed by an EPRM' marker. Thus, the 
library calling sequence appears as: 



ADV 



MVC 



WSP IN) , (ARGUMENTl) 



PS Used in 2nd file 

assignment statements 
to indicate that the 
expression has been 
calculated and that 
the following code is 
only concerned with 
assignment to the 
variable, or its dope 
vector, which is the 
subject of the second 
file statement 



EPRW 


1,WSP 


L 


15,IHE 


BALR 


111,15 


EPRM* 




LA 


1,WSP 



(Routine Name) 



The second byte of the EPRM is used as a 
flag byte . The setting is as follows : 

Bit A calling sequence to a PL/I 
procedure 



11. DESCRIPTIONS OF TSRFiiS AND 
ABBREVIATIONS USED IN TEXT DURING A 
COMPILATION 



The table in this section gives first, the 
term or abbreviation; second, the phase in 
which the term is used; and third, a brief 
description of the meaning of the term or 
abbreviaticm. The key to the code used iss 

R After the Read-In Phase 
PS During the Pseudo-Code Phase 
T A triple or translator input 
code byte 



ALIGN 



ALLOCATE 



PS Indicates that 4 byte 
alignment is required 
in the code at this 
point 

R,T,PS Replaces the keyword 
ALLOCATE 



Term or 
Abbreviation 



ABS 



ABS' 



ADI 



Used In 

Phase Description 

R,T Character string 
format item 

PS Indicates the start 
of absolute code 
(Appendix D7) 

PS Indicates the end of 
absolute code 

PS Addressing 

instruction (used 
between phases RA and 
RF) 



APRM 



ARCO 



PS 



T,PS 



AREA R 

ARGUMENT MARK R 



ARRAY CROSS R,T 
SECTION 



ASSIGN 



R,T 



ASSIGN BYNAME R 



ATTRIBUTES R,T 



Indicates the library 
calling sequence for 
VDA or controlled 
storage 

Provides space to 
allow insertion of 
argument conversion 
triple 

Replaces keyword AREA 

Marker used by phases 
GK and GP to indicate 
he start of a 
function arg\ament 

Replaces the PL/I •♦' 
used to specify an 
array cross section 

Marker which precedes 
an assignment 
statement 

Precedes an 
assignment statement 
with the BY NAME 
option 

Marker which precedes 
a dictionary entry 
containing the 
attributes which have 
been specified on an 
OPEN or CLOSE 
statement 



ADR 



PS The two byte operand AUTOMATIC 
contains a register 
for \ise by final 
assembly for B 

addressing branch 
destinations beyond 
U096 bytes from the BACKWARDS 
program base 



R Replaces the keyword 
AUTOMATIC 

R,T Bit string format 
item 

R Replaces keyword 

BACKWARDS BEGIN 
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BASED 



BEGIN' 



BGPE 



BGNP 



BGNP< 



T,PS 



PS 



PS 



PS 



BIT ATTRIBUTE R 



BIT CONST 



BINARY 



BLBS 



BLBS* 



BUFFERED 



BUILTIN 



BUY 



PS 



PS 



T,PS 



BUY T 

ASSIGNMENT 



BUYB 



Replaces keyword 
BASED 

Triple which 
terminates the BEGIN 
block triples 

Indicates the end of 
the complete prologue 
for a begin block 

Indicates the start 
of code for a BEGIN 
block with no 
prologue 

Indicates the end of 
code for a begin 
block with no 
prologue 

Replaces the keyword 
BIT 

Marker preceding a 
BIT string constant 

Replaces the keyword 
BINARY 

Indicates the start 
of the prologue for a 
BEGIN block 

Indicates the end of 
the prologue for a 
BEGIN block 



BUYS 



BY 



BY' 



BY NAME 





CALL 


R,T 


Replaces keyword 






BUFFERED 


CALL* 


T 



BUY CHAMELEON T 



Replaces the keyword 
BUILTIN 

Code byte or triple 
which indicates that 
a temporary variable 
is required 

Triple which indi- 
cates assignment to a 
temporary variable, 
and which implies 
that the workspace 
for the temporary 
variable must be 
obtained before the 
assignment 

Triple or code byte 
which indicates that 
a scalar temporary is 
required for an 
aggregate argument to 
a generic scalar 
built in fianction 

Marker which 



CELL 



CHAR R 

ATTRIBUTE 

CHAR CONSTANT R 



CHECK 



CHSM 



CL 
CLNl 



indicates that 
workspace is required 
for a temporary 
variable of chameleon 
data type i.e. the 
data type is taken 
from the expression 
assigned to the 
variable 



T»PS Code byte or triple 
which indicates that 
a temporary variable 
is required, and that 
initialization code 
exists between this 
triple and the BUY 
triple 

R,T Replaces the keyword 
BY 

T Triple which 

indicates the end of 
a BY expression 

R Replaces the keyword 
BY NAME 

R,T Complex decimal 
format item 

T Triple which 

indicates the end of 
a C format item 

CALL statement marker 



Triple internal to 
phase lA which marks 
the end of a CALL 
statement 

Replaces the keyword 
CELL 

Replaces the keyword 
CHARACTER 

Marker preceding a 
character string 
constant 

Replaces the keyword 
CHECK 



PS A special offset 

marker. Used only in 
absolute code to 
indicate that the 
offset may require 
changing 

R,T,PS Compiler label marker 

T Compiler label number 
triple, referred to 



4U0 



CLN2 



CLOSE 



R,T 



once only in the 
current statement 



Compiler label number 
triple, referred to 
at any point 



Replaces the keyword 
CLOSE 



COMPILER T 
PSEUDO- VARIABLE ' 



COMPILER T 
PSEUDO- VARIABLE 



Triple indicating the 
end of a compiler 
pseudo- variable 
argument list 



Code byte or triple 
used to indicate the 
start of a compiler 
pseudo-variable 
argument list 



CN 



R,T,PS 



CNVCl,— 4 PS 



COL R,T 



COMA 



COMPLEX 



COMPILER T 
ASSIGN 

COMPILER T 
FUNCTION 



COMPILER T 
FUNCTION* 



COMPILER T 
FUNCTION CALL 



COMPILER T 
FUNCTION CALL* 



COMPILER T 
FUNCTION COMMA 



Compiler statement 
number. Can precede 
compiler inserted 
statements 



Convert compiler 

functions 

l=Drop all registers 

2=Drop target 

register 

3=Drop source 

register 

4=Do not drop 

register 

Replaces the keyword 
COLUMN 

Triple indicating an 
individual siibscript 
in a subscript list 

Replaces the keyword 
COMPLEX 

Code byte or triple 
indicating assignment 

Code byte or triple 
used to indicate the 
start of a compiler 
function call 
argument list 

Triple indicating the 
end of a compiler 
function argiiment 
list 

Code byte or triple 
used to indicate the 
start of a ccatipiler 
function call 
argument list 

Triple indicating the 
end of a compiler 
function call 
argument list 

Triple used to indi- 
cate the argument of 
compiler function, or 
Pseudo-Variable 



COMR 



CONDITION R 



CONTROLLED R 



CONTROL R,T 

VT^IABLE 



CONVERSION R 



COPY 



R,T 



CONTROL T 
VKRIKBLE* 



DATA R , T 

DATA* T 

DATA LIST DO R 



DCF2 



PS 



DECIMAL 



DECLARE 



DEFINED 



DEFINED T 
SUBSCRIPT 



Triple indicating an 
individual subscript 
held in a register 

Replaces the keyword 
CONDITION 

Replaces the keyword 
CONTROLLED 

Marker which indi- 
cates the control 
variable of a DO loop 

Replaces the keyword 
CONVERSION 

Replaces the keyword 
COPY 

Triple which indi- 
cates the end of a 
control variable 
expression 

Replaces the keyword 
DATA 

Triple indicating the 
end of a data 
directed I/O list 

Replaces the keyword 
DO in an iterative 
clause in a data list 

Causes output of 
'ERROR STOP* and the 
four bytes following 
in the pseudo-code 
item 

Replaces the keyword 
DECIMAL 

Replaces the keyword 
DECLARE 

Replaces the keyword 
DEFINED 

Marker which precedes 
the parenthesized 
iSUB subscript list 
of a defined array 
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DELAY 



DELETE 



R,T Replaces the keyword 
DELAY 

R,T Replaces the keyword 
DELETE 



DICTIONARY T 
REFERENCE 



DIRECT 



DISPLAY 



DO 



DO EQUALS 



DROB 



DROP 



DROP 



DRPL 



EDIT 



EDIT* 



EIO 



Marker indicating 
that the following 
two bytes contain a 
symbolic dictionary 
reference 

Replaces the keyword 
DIRECT 

Replaces the keyword 
DISPLAY 



R,T Replaces the keyword 
DO, in a 

non- iterative DO 
group 

R,T Marker which replaces 
the PL/I'=' in the 
iterative DO 
statement (DO 1= ) 

PS Indicates to the 

register allocation 
phases that a base 
register used for 
addressing a 
controlled variable 
should be dropped 

T Triple used in 
optindzation 
indicating the drop 
of an index register 

PS Indicates that a 

symbolic or assigned 
register in the 
operand field of the 
instruction is no 
longer required 

PS Indicates the end of 
the use of a list of 
symbolic registers 
which have appeared 
in an DSSL item 

R,T Floating decimal 
format item 

R,T Replaces the keyword 
EDIT 

T Triple indicating the 
end of an edit 
directed I/O list 

T Code byte or triple 
which indicates the 
end of an I/O 
statement 



ELSE 
END 

END BLOCK 
END DO 

ENDFILE 
END ITDO 



R,T Replaces the keyword 
ELSE 



R,T Replaces the END 

keyword at the end of 
a BEGIN or PROCEDURE 
block 

R,T, Indicates the end of 
a text block 

R,T Replaces the END 

keyword at the end of 
a non-iterative DO 
group 

R Replaces the keyword 
ENDFILE 

R,T Replaces the END 

keyword at the end of 
an iterative DO loop 



END LIST MARK R 



END PROG 



Marker used by phases 
GK and GP to indicate 
the end of a function 
argument list 



R,T,PS Marks the end of 
program 



END PR0GRAM2 T,PS 



ENTRY 



EPRM 



EPRM' 



EQU 



EQU» 



Triple which marks 
the end of the second 
file text i.e. 
prologue 

initialization text, 
which is placed after 
the source program 
text 

Replaces the keyword 
ENTRY 



PS Indicates the start 
of an external 
library calling 
sequence. (Appendix 
DIO) 

PS Indicates the end of 
an external library 
calling sequence 

PS Indicates that the 
two byte operand 
field contains a 
label. The label is 
considered to be 
attached to the 
following pseudo-code 
item 

PS AS for EQU, but 
indicates that 
control may enter 
from a different 
statement. 



HH2 



ERROR 



Replaces the keyword FIXED 
ERROR OVERFLOW 



Replaces keywords 
FIXED OVERFLOW 



ERROR 



ERROR 



EVEiST 



EXCLUSIVE 



Code byte or triple 
which marks the 
position of an 
erroneous source 
statement which has 
been deleted 



PS Indicates the 

presence of a source 
program error 

R,T Replaces the keyword 
EVENT 

R Replaces keyword 
EXCLUSIVE 



FLOAT 



FLOAT BINARY R 
IMAGINARY 



FLOAT BINARY R 
REAL 



FLOAT DECIMAL R 
IMAGINARY 



FLOAT DECI14AL R 
REAL 



Replaces the keyword 
FLOAT 

Marker which precedes 
a float binary 
imaginary constant 

Marker which precedes 
a float binary real 
constant 

Marker which precedes 
a float decimal 
imaginary constant 

Marker which precedes 
a float decimal real 
constant 



EXIT 



F COMMA 



R,T Replaces the keyword 
EXIT 



EXTERNAL R Replaces the keyword 

extern;^ 

F R,T Fixed decimal format 

item 

F* T Triple which 

indicates the end of 
an F format item 



Triple used to 
indicate the 
arguments of a 
function or pseudo 
variable 



FORMAT 



FORMAT* 



FORMAT LIST R,T 



FORMAT LIST* T 



FREE 



FROM 



R,T Replaces the keyword 
FORMAT 



Triple which marks 
the end of a remote 
format statement 

Precedes a format 
list 

Triple indicating the 
end of a format list 



R,T,PS Replaces the keyword 
FREE 

R,T Replaces the keyword 
FROM 



FILE R, T 



FILE 



FINISH 



FIXED 



FIX BINARY 
IMAGINARY 



FIX BINARY 
REAL 



FIX DECIMAL R 
IMAGINARY 



FIX DECIMAL R 

REAL 



Replaces the keyword 
FILE 

Triple indicating the 
end of a file list 

Replaces keyword 

FINISH 

Replaces the keyword 
FIXED 

Marker which precedes 
a fixed binary 
imaginary constant 

Marker which precedes 
a fixed binary real 
constant 

Marker which precedes 
a fixed decimal 
imaginary constant 

Marker which precedes 
a fixed decimal real 
constant . 



FUNCTION 



FUNCTION 



GENERIC 



GET 



GOOB 



GOLN 



GOTO 



R,T 
R,T 
T 
R,T 



Code byte or triple 
indicating the start 
of a function 
argvument list 

Marker which precedes 
the parenthesized 
arg^ament list (if 
present) of an entry 
name in a function 
reference or CALL 
statement 

Replaces the keyword 
GENERIC 

Replaces the keyword 
GET 

GOTO out of block 
statement marker 

Indicates a branch to 
a label n\amber 

GOTO in block 
statement marker 
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1^3 



IDENT 



IF 



IF* 



IGN 2.. 8 



IGNORE 
IGNORE 



113 



INITIAL 



R,T Replaces the keyword 
IDENT 

R, T Replaces the keyword 
IF 

T Triple which 

terminates an IF 
expression 

Ignore markers used 
by Final Assembly 
when code has been 
made redundant. The 
final digit indicates 
length to be ignored. 

R,T Replaces the keyword 
IGNORE 

PS Pseudo-code item 

which indicates that 
the number of bytes 
appearing in the 
length count must be 
ignored 

R/T Replaces the keyword 
IN 

R Replaces the keyword 
■ INITIAL 



INITIAL LABEL R 



INITVAR 



iWPUT 



INST 



INTEGER 



INTERNAL 



INTO 



IPRW 



ITDG 



Marker which precedes 
elements of arrays of 
labelvariables which 
are initialized by 
being attached to 
statements 

Replaces the keyword 
INITIAL ( iteration 
factors) 

Replaces keyword 
INPUT 



PC Defines a store 

generated by register 
allocator which may 
be deleted by phase 
TF if unused 

R Marker which precedes 
an internal binary 
integer constant 

R Replaces the keyword 
INTERNAL 

R,T Replaces the keyword 
INTO 

PS Indicates the end of 
an internal library 
calling sequence 

R,T,PS Replaces the keyword 



ITDO' 



JMP 



KEY 



KEYED 



KEYFROM 



KEYTO 



LABEL 



LEFT 



LIKE 



LINE 



LINESIZE 



LIST 



LIST' 



LIST MARK 



LITERAL 
CONSTANT 



LOCATE 

MAIN 
MDRP 



DO in an iterative DO 
loop 

T,PS Triple which 
terminates an 
iterative DO 
expression 

T Triple indicate the 
presence of 
pseudo-code. The 
number of bytes of 
pseudo-code is 
specified in the 
first operand 

R,T Replaces the keyword 
KEY 



R 


Replaces 
KEYED 


keyword 


R,T 


Replaces 
KEYFROM 


the keyword 


R,T 


Replaces 
KEYTO 


the keyword 



R Replaces the keyword 
LT^BEL 

T Triple indicating a 
temporary result for 
a pseudo- variable 

R Replaces the keyword 
LIKE 

R,T Replaces the keyword 
LINE 

R,T Replaces the keyword 
LINESIZE 

R,T Replaces the keyword 
LIST 

T Triple indicating the 
end of a list 
directed I/O list 

T Marker used by Phases 
GK and GP to indicate 
the start of function 
argument list 

R,T Indicates that the 
following two bytes 
contain a fixed 
binary constant 

R,T Replaces the keyword 
LOCATE 

R Replaces keyword MAIN 

PC Defines a register 
which will be 



UtiH 



MULTIPLE R,T 
ASSIGN 



MVCL PC 

NAME R 

NEW PAGE R 

NOCiiECK R 

NO SNAP R,T 

N0SL4AP' T 

HULL R, T 
NULL- FUNCTION T 



OFFSET 



OP£N 



R,T 



OFS 



ON 



R,T 



OPTiOilS 



ON RECORD 



OSt<l 



0SW2 



PS 



PS 



multiply dropped. 

Phase RA no-ops all 

DROP'S for this 

reqister except the 

last 0SM3 

Marker indicating 
multiple assignment 
(Replaces PL/I« ,') 



Defines a character 
move greater than 256 
bytes. This is 
expanded by phase QP 

Replaces the keyword 
NAME in the context 
of ON NAME 

Replaces the keyword 
NEW PAGE 

Replaces the keyword 
NOCHECK 

Replaces the keyword 
NOSNAP 

Triple which 
indicates the end of 
a NOSNAP list 



Null statement marker PCC 

Enables TKPD's to be 
passed in text by 
phases LB and LG 
before the evaluation 



Trj pie indicating 

of*^set ui-.ed in PLBS 

optiiiiization of DO 

loops 

Replaces the keyword 
0.1 

PLBS* 
Replaces the keyword 
OPTICUS 

Rt; pierces the keyword 

R\C0R:j in the context 

O.^i RFCORD POINTER 

IniliccJtes that the 

t'v/c byte operand PRECISIONl 

field contains an 

index register 

Inciicotes that the 
two byte operand 



PS 



OUTPUT 


R 


OVERFLOW 


R 


P 


AR,T 


P' 


T 


PAGE 


R,T 


PAGESIZE 


R,T 


PASS 


PS 


PCBS 


PS 



PS 



phase LS 




PFMT 


PS 


Replaces 
OFFSET 


the keyword 


PICTURE 


R 


Replaces 
OPEN 


the keyword 


PINS 


PS 



PS 



PS 



field contains a 
leteral offset 



Indicates the 
presence of a literal 
offset and an index 
register 

Replaces keyword 
OUTPUT 

Replaces keyword 
OVERFLOW 

Picture format item 

Triple which 
indicates the end of 
a P format item 

Picture format item 

Replaces the keyword 
PAGESIZE 

POINTER Assignment 

Indicates the end of 
the complete prologue 
for a procedure block 

Follows a PPOC or 
BEGIN marker. Used 
to carry the prefix 
change byte for the 
block . 

PICTU"RE format 

Replaces the keyword 
PICTURE 

Indicates the 
prologue insertion 
point 

Indicates the start 
of the prologue for a 
procedure block which 
is common to all 
entry points 

Indicates the end of 
the prologue of a 
procedure block which 
is common to all 
entry points 

Replaces the keyword 
POINTER 

Indicates a precision 
which has been 
written in the source 
program as • (10) • , 
which may be either 
fixed or float 
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PRECISI0N2 R Indicates a precision 

which has been 
written in the source 
program as M5,2)V 
which implies fixed 



PRINT 



PRIORITY 



PSEDDO- 
VARIABLE 



PSEUDO- 
VARIABLE 



PSEUDO- 
VARIABLE* 



PSLD 



PROC 



PROC 



PTCH 



PUT 



READ 



REAL 



RECORD 



Replaces keyword 
PRINT 



R,T Replaces the keyword 
PRIORITY 

R Marker which precedes 
the parenthesized 
argument list to a 
pseudo-variable 

T Code byte or triple 
indicating the start 
of a pseudo-variable 
argument list 

T Triple indicating the 
end of a 
pseudo- variable 
argument list 

PS Indicates a 
pseudo- code 
instruction for use 
by the final assembly 
listing phase 

R,T PS Replaces the keyword 
PROCEDURE 

T. PS Triple which 

teinminates the 
procedure block 
triples 

T Patch triple. Used 

by optimization phase 
to ovein^rite a triple 
in text at a point 
where code is to be 
inserted. The code 
to be inserted and 
the overwritten 
triple are held in a 
table in text blocks 

R,T Replaces the keyword 
PUT 

R,T Remote format 

statement marker 

R,T Replaces the keyword 
BBKD 

R Replaces the keyword 
REAL 

R Replaces the keyword 
RECORD 



RECURSIVE R Replaces the keyword 

RECURSIVE 



REENTRANT R Replaces the keyword 

REENTRANT 

REPLY R,T Replaces the keyword 

REPLY 

RETURN R,T Replaces statement 

marker 

REVERT R,T Replaces the keyword 

REVERT 

REWRITE R,T Replaces the keyword 

REWRITE 

RPL T Code byte or triple 

indicating the start 
of a format list 
replication factor 
expression 

RPL* T Triple indicating the 

end of a format list 
replication factor 
expression 

RWA PS Indication of an 

addressing vector for 
use by the register 
allocator when the 
number of symbolic 
registers in use 
exceeds the amount of 
work space which has 
been allocated 

SECONDARY R Replaces keyword 

SECONDARY 



SECOND LEVEL R 
MARKER 



SELL 



SET 



SETS 



SEQUENTIAL 



SIGNAL 



SIZE 



A code byte which 
immediately precedes 
all code bytes 
appearing in the 
second level table 



T,PS Code byte or triple 
which indicates that 
a temporary variable 
is no longer required 

R,T Replaces the keyword 
SET 

R Replaces the keyword 
SETS 

R Replaces the keyword 
SEQUENTIAL 

R,T Replaces the keyword 
SIGNAL 

R Replaces the keyword 
SIZE 



U46 



SKIP 



R,T Replaces the keyword 
SKIP 



end of a subscript 
list 



SL 



SN 



SN2 



SM3 



SNAP' 



STATIC 



R,T,PS Statement label 

marker. Precedes all 
labelled statements 

R,T,PS Statement number 

marker. Precedes all 
unlabelled statements 



R,T,PS 



PS 



R 



STERLING R 
DECIMAL PEAL 



STOP R,T 



STREAM 



STRING R, T 



STRING ' 



STRINGRANGE R 



SUB 



SUBSCRIPT R,T 



SUBSCRIPT* T 



Marker which precedes 
a second file 
statement (See 
Appendix D.8) 

Indicates the start 
of a second file 
statement which is 
concerned with 
initializing array, 
or structTire, or 
string dope vectors. 
Similar to SN2 
(Appendix D. 8) except 
that there is no 
associated entry 

Triple which 
indicates the end of 
a snap list 

Replaces the keyword 
STATIC 

Marker which precedes 
a sterling decimal 
constant 

Replaces the keyword 
STOP 

Replaces keyword 
STREAM 

Replaces the keyword 
STRING 

Triple indicating the 
end of a string list 
used with list 
directed I/O 

Replaces the keyword 
STRINGRANGE 

Replaces the keyword 
SUB used in iSUB 
DEFINING marker 
preceding a BIT 

Marker which precedes 
the parenthesized 
subscript list of an 
array 

Triple indicating the 



SUBSCRIPT- R 
RANGE 

SSB' T 



SSUB 



SYSTEM R,T 



SYSTEM' 



TASK R,T 



THEN R,T 



TITLE R,T 



TMPD 



TO R,T 



TO' 



TRANSMIT 



UNBUFFERED 



UNDEFINEDFILE R 



UNDERFLOW R 



UNLOCK 



UPDATE 



USES 



USNG 



R,T 



PS 



Replaces keyword SUB- 
SCRIPTRANGE 

Supersubs prime 
triple. Similar to 
SUBS'. Used by 
Optimization phases 
in conjunction with 
SSUB 

Supersubs triple. 
Similar to SUBS. 
Used by Optimization 
phases 

Replaces the keyword 
SYSTEM 

Triple which 
indicates the end of 
a system list 

Replaces the keyword 
TASK 

Replaces the keyword 
THEN 

Replaces the keyword 
TITLE 

Triple indicating a 
temporary expression 
result 

Marker replacing TO 
in the iterative DO 
stat«nent 

Triple which 
indicates the end of 
a TO expression 

Replaces the keyword 
TRANSMIT 

Replaces the keyword 
UNBUFFERED 

Replaces the keyword 
UNDEFINEDFILE 

Replaces keyword 
UNDERFLOW 

Replaces the keyword 
UNLOCK 

Replaces keyword 
UPDATE 

Replaces the keyword 
USES 

Indicates the 
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DSSL 



VARYING 



WHILE 



presence of an 
assigned register 

PS Indicates a list of 
symbolic registers 
which need not be 
saved on branch and 
branch and link 
instructions 

R Replaces the keyword 
VARYING 

R,T Replaces the keyword 
WHILE 



WHILE* 



WRITE 



ZERODIVIDE 



Triple which 
indicates the end of 
a WHILE expression 



R,T Replaces the keyword 
WRITE 



R,T Spacing format item 



R Replaces the keyword 
ZERODIVIDE 



048 



APPENDIX E: STORAGE REQUIREMENTS 



The (F) Compiler reqiiires main storage for 
-the following purposes : 

Compiler processing phases 

Print buffers 

Compiler control routines 

Dictionary area 

Text area 

Input /Output buffers 

Input/Output routines (BSAM) 

The main storage required by each phase 
of the compiler need be contiguous only for 
each control section. 

During the read-in phases a minimum of 
two dictionary blocks and two text blocks 
is available in storage simultaneously. 

During the optimization logical phase, a 
minimum of three dictioncury and five text 
blocks are available in storage 
simultcmeously . 

During the rest of the compilation four 
dictionary blocks and four text blocks are 
available in storage simultaneously. 



The dictionary and text block size is 
chosen according to the amount of main 
storage available to the compiler. The 
SIZE option, interpreted at invocation 
time, provides the value used to d^ermine 
the block size. The space needed for large 
I/O buffers is subtracted from SIZE and the 
space remaining is used when determining 
text euid dictionary block size, as detailed 
in the publication IBM System/360 PL/I (F) 
Programmer's Guide. A table contained in 
Phase AB is searched, using the SIZE option 
as an argument. VAien the correct entry is 
found, the block size is extracted. 



The first table shows the relationship 
between the compiler requirements and the 
text and dictionary block sizes. The 
second table details the storage allocation 
in each environment. 



Environment 

k — +- 

A 

B 
C 
D 

E 



T ^ 

Dictionary /Text I Compiler 
Block Size I Requirements 

IK I aUK - 56K 
2K I 56K - 72K 
UK I 72K - 132K 
8K I 132K - 168K 
16K I 168K 
X- J 
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Comiailer Requirements and Dictionary/Text Block Relationship 



Storage Allocation 



OS Dynamic Storage 

TIOT 
SPIE 
LOAD 

OS Temporary Storage 

End of Voliime 
Data Management 
Compiler Control 
Phase Area 
Text Area 
Dictionary Area 
Scratch Storage 
I/O Buffers 

I TOTALS 



1 DURING READ- IN PHASE 


1 


AFTER READ- IN 


PHASE 


1 


|. 
























1 




ENVIRONMENT 


1 




ENVIRONMENT 


1 


|. ^ ,. y p ^, 


^ ^ y. 


T 1 


1 A 


B 


c 


D 


E 1 


A 


B 


c 1 


D 


E 1 


1 1 1 1 1 1 1 1 1 


+ 1 

1 


1 228 


228 


228 


228 


1 
228| 


228 


228 


1 
228| 


228 


1 
228| 


1 32 


32 


32 


32 


32| 


32 


32 


32 1 


32 


32| 


1 40 
1 


40 


40 


40 


40| 

1 
1 


40 


40 


40| 

1 
1 


40 


40| 

1 
1 


1 

1 800 


800 


800 


800 


1 

1 

800| 


800 


800 


1 

1 

800| 


800 


1 

1 

800| 


1 4894 


4894 


4894 


4894 


48941 


4894 


4894 


48941 


4894 


48941 


112266 


12266 


12266 


12266 


12266|: 


L2266 


12266 


122661 


12266 


122661 


116384 


16384 


16384 


16384 


16384|: 


L2288 


12288 


122881 


12288 


122881 


1 2048 


8192 


16384 


32768 


655361 


4096 


8192 


163841 


32768 


655361 


1 2048 


8192 


16384 


32768 


655361 


4096 


8192 


163841 


32768 


655361 


1 4096 


4096 


4096 


4096 


40961 


4096 


4096 


40961 


4096 


40961 


1 15381 15381 1538| 1538) 1538J 

1 44374 |56662|73038105814| 1713401 
i L L X J. i. 


1538 


1538 


15381 

1 


1538 


15381 


:^4374|52566I68950|: 


L01718I 1672541 



Initially, four text and four dictionary 
blocks are allocated to the compiler (two 
each are allocated when only 44K bytes of 
storage are available to the compiler. 
This is then expanded to four of each at 
the end of the read-in phase). If the text 
and/or dictionary expands to fill these 



blocks, more main storage is allocated as 
blocks. This process continues until the 
spill point is reached (i.e., until all the 
main storage available to the compiler has 
been used) . If still more main storage is 
required, the spill file (SYSUTl) is 
opened, and blocks are written out. 
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APPENDIX F; COMMUNICATIONS REGION 



The comnanicatlons region is an area 
specified by the control routines (see 
Appmidix L)» and used to cooiBunicate 
necessary information between the various 
phases of the compiler. The communications 
region is resident in the first dictionary 
block throughout the compilaticm. 

Note: The use of the ccnmnunications region 
during coapile-time processing is 
described in Appendix J* 

The tables below give the following 
information for each location of the 



communications region: name of location; 
offset (i.e., relative address); use (i.e., 
stages of compilation during which the 
location is in use) ; and a description of 
the contents. Certsdn locations are used 
in one capacity during part of the 
compilation, and then re-used in a 
different capacity during another part of 
the c<»npilation. In these cases, one 
location will have two table entries: 
details of alternative usage appear in the 
columns headed Neune^, Use^, etc. 
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Table 1. communications Region 

r T T 

I Name {Offset (Dec.) | Use 



SAVEO 
SAVEl 
SAVE2 



SAVE15 

ZTV 

ZTRANl 

ZTRAN2 

ZNXTD 

ZERRD 

ZERRS 

ZERRW 

ZERRC 

ZDNXT 

ZSNXT 

ZWNXT 

ZCNXT 

ZMYNAM 

DICTP 
ZCNCHR 

ZPROCH 
ZSTAT 
PARI 
PAR2 



PARS 

CORLPT 

LKNAME 

ZOBSAD 
TERMSW 

OFDNAH 
SPLNAM 

ZOBNUM 

SCNOP 

SCCNF 

ZDROLF 

AREA 

ZM91 

PERRSW 

BERSW 

lOERSW 

ZPAGE 

ZLINE 

ZOPT 

PARNLEN 

MAXFON 



ZDICTSP I 




SAVEO-i-4 
SAVEO+8 ETC. 



SAVE(H60 
64 
68 
ZTRANl-i-4 
76 
80 
ZERRIH4 
ZERRD-i-S 
ZERRIH12 
ZERRIH-16 
ZDNXT* 4 
ZDNXT* 8 
ZDNXT* 12 
112 



116 
118 

120 

124 

128 

PAR1*4 ETC. 



PAR1*28 
160 
164 



172 
176 

178 
180 

182 
184 
185 
186 
187 

188 
189 
190 
191 
192 
194 
196 

197 

198 

200 



ALL 
ALL 
ALL 



PHASES 
PHASES 
PHASES 



i ALL 


PHASES 


1 ALT. 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


j ALT. 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


i ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALT. ■ 


PHASES 


1 ALL 


PHASES 


1 AT.T. 


PHASES 


1 ATiT. 


PHASES 


1 ALL 

1 « 


PHASES 


1 • 
1 • 

1 AT.L 


PHASES 


1 AT.T. 


PHASES 


1 PHASE 


VE 


1 AT.T. 


PHASES 


1 ALL 


PHASES 


i ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


I ALT. 


PHASES 


1 ALT. 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 AT.L 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 


PHASES 


1 ALL 
J 


PHASES 



Description | 

Register save area 
Register save area 
Register save area 



Register save area 

Control phase base 

External to internal translate table 

Internal to external translate table 

Next available dictionary location 

First locations of error chains 



Current ends of error chains 



Name of last phase entered 



Source column containing control 

character 

Chain of created procedures 

Current statement number 

Parameter word 1 

Parameter word 2 



Parameter word 8 

Amount of core left for compilation 

Member name of module produced by 

compilation 

Address of overflow block 

compilation terminating switch 



Name of phase in control when 
, spill file is opened 
overflow block number 
Phase directory scan switch 
On if in second half of compiler 
Overlay switch 
Code word for dummy routines 
(phase AD) 

(used for Model 91 systems) 
Print error switch 
* process error byte 
I/O error switch 
Number of lines in page 
Number of characters in a line 
Code word of loading of optimizing 
phases 

Length of options field in ♦ - process 
card 

Number of offset slots in a dictionary 
block 
Useful dictionary block size 






Note: If a program interrupt occurs both 
interrupt PSW. 



LKNAME and CORLPT are overwritten by the 
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Table 1. Coramunicaticms Region (cont'd) 



Name 

ZNXTOF 
FONOF 

FSTDRF 

ERCODE 
MCSIZE 
CCCODE 

HDR 

TLR 

TRT 

ARINT 

BR2 

STARTX 

DICTSZ 

TXTSZ 

RDSIZE 

INCOD 

ARMASK 

LOCK 

ZNXTLC 

ZSHIFT 

ZMASK 

ZMASKl 

ZSOR 

ZNAG 

CCCODEE 

ZCOMH 



(Offset (Dec.) j 

204 
208 

212 

224 
228 
232 

236 
240 
244 
248 
252 
256 
260 
264 
268 
272 
273 
274 
276 
280 

284 
ZMASK * 2 
288 
290 
292 
304 



Use I 

ALL PHASES 
ALL PHASES 



ALL 

ALL 
ALL 
ALL 

ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 

ALL 
ALL 
ALL 
ALL 
ALL 
ALL 



PHASES 

PHASES 
PHASES 
PHASES 

PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 

PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 



Description | 

Offset of next dictionary entry 
Offset of offset slots in dictionary 
block 

Dictionary reference of last diction- 
ary entry 

Error message codes 
M/CSXZE this run 
Control card requests 
(see table 4 below) 
Address of phase directory 
Timer last read 
Total run time 
Arithmetic interrupt 
Second base for control phase 
Start of text 
Dictionary block size 
Space available in text block 
SIZE of read area 
Interrupt code 
Arithmetic error mask 
Dictionary lock slot 
End of current text 

Number of bits in dictionary reference 
offset 

Mask to remove block numbers 
Mask to remove offset 
Input record source 
Input record margin 
Control card requests 
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Table 2. Comnunications Region 



r 


r 1 

Dec. 


Use 1 


1 Usea 1 


"•^ ■' ■ 1 1 ^ 1 L. *^^ 


1 Name 


Offset 


T \ Description 

Start I End j 


Namea (- r ^ 

j Start End 


Descriptiona | 


j. 





^_-+ + . 


1 ^ ^ 


_-_^ 


1 ZCAT.T.C 


ZCOMM+ 


Read in |BCD to | start of CALL 
1 Diet . Ref . 1 chain 






IZLABTB 


+ a 


Read in j Initial | Start of label 
I 1 chain 






1 ZATTID 


♦8 


1 1 Pointer to 
I 1 attribute 
j I tidy-up area 


ZPCOP 1 1 




1 ZALLCH 


+12 


Read in j ALLOCATE +| Start of 

1 Attribute | ALLOCATE chain 






1 ZFLAGl 


+16 


Read in | Dictionary | Flag bytes , 






1 ZFLAG2 


+17 


I 1 mainly used 






1 ZFLAG3 


+18 


1 1 for optional 






1 ZELAG4 


+19 


j 1 phase 






1 ZFLAG5 


+20 


1 1 marking (see 


ZSYSOT ( Pseudo Pseudo 


Diet. Ref. ( 






j (table 3 below) 


j code code | 


SYSOUT 1 


1 ZFLAG6 


+ 21 


FU IQU 1 Unaligned 

1 1 (see Table 3) 






1 UNUSED 


+ 21 

TO 

+ 23] 








1 ZSCRCH 


+24 


PD |PL 1 Address of 

1 j scratch core 
1 1 kept across 
1 1 phases 






1 UNUSED 


+ 25 

TO 

+ 27! 








IZHASH 


+28 


Dictionary! Dictionary! Start of hash 
! ! table 


ZINCL (PC. End 


INCLUDE card ( 
pointer j 




+32 


Not used JNot used ! 


ZEQTA3 ( Final Assy . 


Assigned ( 
offset table | 


1 ZFATTB 


+36 


Dictionary! Declare | Start of fact- 


ZLCONS ( Strge Alloc 


Last constant ( 






jpass 2 jored attribute 


ZEOCS ( 


in STATIC. ( 
End of STATIC ( 


1 ZCDIMC 


+401 


Dictionary | Pre- j Start constant 


ZSMREG( Trans- Pseudo 


Current sym- ( 






j translator j dimension 


( later code 


bolic register ( 


IZ2FILE 


+44 j 


Dictionary! End | Start of 

! 1 second file 






1 ZDLFST 


+48{ 


Dictionary j storage j Defined ] 


ZFSTEX( Strge End 


First external ( 






I allocator j storage area 


(alloc 


item ( 


1 ZDCBLD 


+52| 


Dictionary j Dictionary | Dictionary 
j 1 build area 


ZPRSIZ( Final Assy. 


Size of com- ( 
1 pi led program j 


1 ZMPSTK 


+56 1 


Dictionary! Translator! Program map 

1 1 stack 1 


ZSICSZ( Final Assy. 


1 STATIC ( 
INTERNAL size 


1 ZUPIC 


+ 60 


Dictionary (Picture j Start of 

(processor (picture chain 


ZSTALC ( Final Assy. 


1 Storage loc- 
ation counter 


1 ZPROCl 


+ 64| 


Dictionary (End (Start of entry 
( (type 1 chain 






1 ZSTACH 


+ 68| 


Dictionary (End (Start of STAT- 
( (IC chain (6) 






1 ZVDIMC 


+74| 


Dictionary (Translator (Start of vari- 
( ( able dimension 
( ( chain 






1 ZCONCH 


+78 


Dictionary (ALLOCATE (Start of con- 
( (stants chain 


1 i 
( ( 




1 ZDEFCH 


+ 80| 


Dictionary ( Dictionary j Chain of 


ZCITENJPre (End 


1 Chain of CON- 






( j defined items 


(trans. ( 


( TROLLED items 


1 ZLIKCH 


+ 82| 


Dictionary (Dictionary (Chain of LIKE 


ZEQMAX ( Pseudo ( End 


(Max. label 






( items 


( code ( 


number 


L_ 


— — 


L -....-- ___X--_. -.__X-i ..^__..— _-.J 


L«i— — — —l— :~... K - 


L -J 
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Table 2. cononunica-tions Region 
I 1 ~T 



(cont'd) 
r* 



j Name 1 
1 _j 


Dec. 
Offset 


Use 1 

L . ■ , , . ■ 


Start 

1 


End 1 
1 + 

Dictionary 1 


r ^ 

IZPOLCBI 


♦SHI 


[- "- — 1 
Dictionary! 


IZDCOMl 


ZCOMMi-86 


Dictionary 


Dictionary! 


IZDC0M2 


♦ 90 


Dictionary 


Dictionary! 


IZDSA 


ZCOMH^94 


PA 


UD 1 


1 ZCPOFF 


ZCOMM 
♦100 


PD 


UA ! 


1 MACRON 


ZCOMM 

1 ♦aae 


BW 


TP 1 


ISOURCN 


ZCOMM 
♦338 


CI 


TP 1 


ISTMNTN 


1 ZCOMM 
1 ♦340 


CI 


TP 1 


1 INSTRN 


1 ZCOMH 
1 ♦342 


TJ 


TP 1 


jBYTESN 


1 ZCOMM 
1 ♦344 


1 TO 


TP 1 


IZSAV 


ZCOMM 
1 ^360 


Resident 
1 Control 


Resident | 
Control 1 



Description 






Chain of 
items 



POOL 



NOTE: 



Latest 
diet. ref. 

I Flags for dic- 
Itionary build 

interface 

(8 bytes) 

Head of STATIC 
I DBA chain 

Offset of 

first 

constants pool 
I within static 

internal, 
i Macro reqd 

count 

(half word) 
I Source reqd 

count 

(half word) 

Source stmt 

count 

(half word) 
I Object instn 

count 

(half word) 

Object byte 

count 

(fullword) 
I Register save 

area 

(18 fullwords) 
..X 



Namea 



ZOSMRG 



ZCOBOL 



Start 



Use a 
•T 



End 



Pseudo 
code 



6B 



Pseudo 
code 



JI 



Descriptions 



End of 
optimization 
symbolic reg- 
isters 

Head of COBOL 
structure 
chain 



L» 



J. 



X 



Bytes ZCCMM^60 to ZC(X9M^332 are used internally %rithin the Read-in phase and cannot 

be assumed to be zero at exit frcxn that phase. 

Bytes ZCONH^336 to ZCOHH^344 are not available for re- use 

Bytes ZCOMN^104 to ZcOMH^131 are used by the generic phase IH. They are cleared 

before exit from the phase. 
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Table 3. Ccnnmunications Region. Bit Usage in ZFIAGS 



r T" 

1 BYTE 1 


OFFSET 1 


BIT 


1 BIT NAME 


1 DESCRIPTION ] 


1 NAME 1 


. — -J 


(HEX) 




Bits are set on, on encountering:- | 
DEFINED attribute | 


1 ZFLAGl 1 


ZCOHM4-16 1 


80 


. 

ZDEFFL 






HO 


ZAWAFL 


ALLOCATE Statement | 






20 


ZSECFL 


Second Pile statement | 






10 


ZDIMFL 


Dimension attribute | 






08 


ZCHKFL 


CHECK/NOCHECK prefix | 






OH 


ZONFL 


ON, SIGNAL or REVERT Statement | 






02 


ZSTRFL 


Structure j 






01 


ZDECFL 


DECLARE statement | 


1 ZFLAG2 1 


♦17 1 


80 


ZLIKFL 


LIKE attribute | 






40 


ZINTST 


STATIC INITIAL | 






20 


ZOPCFL 


OPEN/CLOSE statement | 






10 


ZGTPFL 


GET/PUT statement | 






08 


ZGOTFL 


GO TO statement | 






04 


ZTEPFL 


TASK/EVENT/PRIORITY options, REPLY statement | 






02 


ZPICPL 


PICTURE attribute/format item | 






01 


ZISBFL 


iSUB defining | 


1 ZFLAG3 1 


♦18 1 


80 


ZCONTG 


UNALIGNED (NONSTRING) attribute | 






HO 


ZSETFL 


SETS attribute | 






20 


ZOSSFL 


DELAY, DISPLAY, WAIT Statement 1 






10 


ZARGFL 


Argument list | 






08 


ZINLFL 


INITIAL Label 1 






OH 


ZDIOFL 


DATA directed I/O | 






02 


ZRECIO 


RECORD I/O 1 






01 


ZINTAC 


ADTO/CTL initialization | 


1 ZFLAG4 t 


♦19 1 


80 


ZFREE 


FREE stat^nent | 






HO 


STM256 


More than 256 statements | 






20 


FILEFL 


Files present | 






10 




Spare | 






08 


ZPUTFL 


PUT DATA 1 






ou 


ZGETFL 


GET DATA | 






02 


ZPTRFL 


Pointer Qualifier | 






01 


ZRODFL 


STATIC DSA Entry | 


1 ZFLAGS 1 


♦20 1 


80 


ZFTASK 


TASK/EVENT/PRIORITY option on a CALL Statement | 






40 


ZDENFL 


Set by FT 1 






20 


ALCSLM 


ALLOCATE, with second level marker | 






10 i 




Spare | 






08 




Spare j 






04 




Spare | 






02 




Spare | 






01 




Spare i 


1 ZFLAG6 1 


+ 21 i 


80 
40 
20 
10 
08 
04 
02 


ZUNT^FL 


ON for unaligned data: set by FU | 
Spare j 
Spare | 
Spare | 
Spare t 
Spare I 
Spare I 


1 1 _ 


. 1 


01 

_ ., ,. 




Spare 1 

L -J 
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Table 4. CcMnmunications Region, 
in CCCODE. 

Byte 1 Bit I 



Bit usage 



I 






DUMP 1 wanted 

not wanted 

1 abort has occurred 

LIST 1 not wanted 
wanted 

LOAD 1 not wanted 
wanted 

DECK 1 not wanted 
wanted 

EXTREF 1 not wanted 
wanted 

XREF 1 not wanted 
wanted 

ATR 1 not wanted 

wanted 

1 means U- format 

means F- for mat 
records on input 

1 if track overflow 
is present 

Severity code 
Severity code 
Severity code 
Severity code 

where OOOQsFLAGW 
0001=FLAGE 
OOlOsFLAGS 

CHAR 48 1 not wanted 
wanted 

MACRO 1 not wanted 
wanted 



[ BYtellit T ^ "i 

SOURCE 1 not wanted 

wanted 

CHK 1 not wanted 

wanted 

BCD 1 BCD input 

EBCDIC input 



S0URCE2 1 wanted 

not wanted 

OPT 1 wanted 

not wanted 

1 AE required 

1 program check 
has occurred 



1 means first record 
has been read 

STMT 1 not wanted 
wanted 



MACDCK 



COMP 



NEST 






1 not wanted 

wanted 

1 not wanted 

wanted 

1 macro phase now 
running 

1 batch record found 

batch record not 
found 

1 EOF record found 

EOF record not found 

not used requirement 

1 wanted 
not wanted 
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APPENDIX G: SYSTEM GENERATION 



For full details of the system generation 
process, see IBM System/360 Operating 
System; System Generation , Form C28-655U. 

During the system generation process, a 
control section named lEMAF (see Figure 13) 
is assembled containing a table consisting 
of a bit string field that is fourteen 
bytes in length, immediately followed by 
seven fixed-point values aligned on 
full-word boundaries. The first five 
fixed-point values are related to the 
compiler options LINECNT, SIZE, SORMGIN 
(start), SORMGIN (end), and PAGECTL 
(control column) respectively. The 



remaining two fixed-point values are spare 
fields not currently in use. Bits to 25, 
28 to 46 and 51 to 53 in the string are 
used to specify the default status of the 
options. (Note: bit 51 is used for both 
default and delete.) Bits 5<» to 81, and 83 
to 102 in the string are used to specify 
whether an option keyword is to be deleted 
or not. A "l* in the bit string means 
"yes" and a "0" means "no". The remaining 
bits in the string are spare bits not 
currently in use. Figure 1** shows the bit 
identification table associated with the 
control section. 



lEMAF 



START 

DCB'IOOOOOOOO OOOOOOOO* 

DCB»|00000000 00000000* 

DCB'jOOOOOOOO 00000000' 

DCB*|00000 0|00 00000000* 

I J 

DCB'JOOOOOOOO 00000 00' 

DCB'IOOOOOOOO 00000000' 

I , 

DCB'|0000000|0 00000000' 



DC F'60' 

DC F' 999999* 

DC F'2' 

DC F'72' 

DC F'O* 

DC F'O* 

DC F'O* 



DEFAULT 
SWITCHES 



DELETE 
SWITCHES 



SPARE SWITCHES 



-H 









• Figxire 13. The lEMAF Control Section 
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|Bitj Parameter IBitj Paramter 



1 1 


ATR 


38 


NONEST 


1 1 


NOATR 


39 


COMP 


1 2 


BCD 


HO 


NOCOMP 


1 3 


EBCDIC 


HI 


OB JIN 


1 *» 


CHAR60 


H2 


OBJOUT 


1 5 


CHAR48 


43 


MACDCK 


1 6 


DECK 


44 


NOMACDCK 


1 7 


NODECK 


45 


EXTDIC 


1 8 


EXTREF 


46 


NOEXTDIC 


i 9 


NOEXTREF 


47 


Not used 


|10 


FLAGW 


48 


Not used 


111 


FLA6E 


49 


Not used 


|12 


FLAGS 


50 


Not used 


|13 


LIST 


51 


DEFAULT/DELETE 


|14 


NOLIST 




(Bit always 0) 


|15 


LOAD 


52 


LIB=REAL 


|16 


NOLOAD 


53 


LIB=COMPLEX 


|17 


XREF 


54 


DELETE=ATR 


|18 


NOXREF 


55 


DELETE=NOATR 


|19 


SOURCE 


56 


DELETE=BCD 


|20 


NOSOURCE 


57 


DELETE=EBCDIC 


|21 


S0URCE2 


58 


DELETE=CHAR60 


|22 


N0S0URCE2 


59 


DELETE=CHAR48 


|23 


OPT=0 


60 


DELETE=DECK 


|24 


i OPT=l 


61 


DELETE=NODECK 


|25 


OPT=2 


62 


DELETE=EXTREF 


126 


1 Not tised 


63 


DELETE=NOEXrREF 


|27 


Not used 


64 


DELETE=FLAGW 


|28 


1 SYNCHKE 


65 


DELETE=FLAGE 


|29 


SYNCHKS 


66 


DELETE=FLAGS 


|30 


1 SYNCHKT 


67 


DELETE=LIST 


|31 


OPLIST 


68 


DELETE=NOLIST 


|32 


1 NOOPLIST 


69 


DELETE=LOAD 


|33 


1 STMT 


70 


DELETE=NOLOAD 


134 


NOSTMT 


71 


DELETE=XREF 


|35 


1 MACRO 


72 


DELETE=NOXREF 


|36 


NOMACRO 


73 


DELETE=SOURCE 


|37 


1 NEST 


74 


DELETE=NOSOURCE 



i Bit] Parameter | 
|75 1 DELETE=S0URCE2 | 


|76 


DELETE=N0S0URCE2 | 


|77 


DELETE=OPT | 


|78 


DELETE=LINECNr | 


|79 


DELETE»LINELNS | 


|80 


DELETE=SIZE | 


|81 


DELETE^SORMSIN | 


|82 


Not used I 


|83 


DELETE=STMT | 


|84 


DELETE=NOSTMT | 


|85 


DELETE=MACRO | 


186 


DELETE=NOMACRO | 


|87 


DELETE=COMP j 


|88 


DELETE=NOCOMP | 


|89 


DELETE*OBJIN | 


|90 


DELETE=OBJOUT | 


|91 


DELETE=PAGECTL | 


|92 


DELETE=MACDCK | 


|93 


DELETE=NOMACDCK j 


|94 


DELETE=EXTDIC | 


|95 


DELETE'NOEXTDIC j 


|96 


DELETE=OPLIST | 


|97 


DELETE=NOOPLIST | 


|98 


DELETEsNEST j 


|99 


DELETE=NONEST j 


|100 


DELETE-SYNCHKE | 


|101 


DELETE=SYNCHKS | 


|102 


DELETE*SYNC8KT | 


|103 


Not used 1 


|104 


Not used 1 


|105 


Not used 1 


|106 


Not used j 


|107 


Not used 1 


|108 


Not used 1 


|109 


Not used 1 


|110 


Not used 1 


1111 


Not used j 



•Figure 14. Bit Identification Table 



.-J 
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APPENDIX H; CODE PRODUCE FOR PROLOGUES AND EPILOGUES 



The mechanism of dyneunic storage management 
is described in the publication IBM 
Svstem/360 Operating System. PL/l 
Subroutine Library Program Logic Manual . 

Part of the code required to implement 
the storage management is generated as 
prologue and epilogue code by the compiler. 
This Appendix contains annotated examples 
of prologues and epilogues for PROCEDURE, 
BEGIN, and ON blocks. 



PROLOGUES AND EPILOGUES 



Example in PL/I 

A: Is PROCEDURE (X,Y); 

DECLARE Y CONTROLLED; 



ON OVERFLOW C-O; 



B: BEGIN; 



END; 



ABsIJK: ENTRY (y,Z) 



RETURN ( EXPRESSION) 



END; 

BRANCH ROUND FOLLOWING CONSTANTS 

LENGTH OF BCD 

BCD OF ENTRY POINT 

ADDRESS OF STATIC INTERNAL CONTROL SECTION 
(ONLY COMPILED FOR EXTERNAL AND ON PROLOGUES) 

SAVE STANDARD REGISTERS IN SAVE AREA OF 

CALLER'S DSA 

SET UP FIRST PROLOGUE BASE 

CALL ROUTINE TO GET DSA 

INSERT RETURN (EXPRESSION) SWITCH 

(ONLY COMPILED IF THERE IS A RETURN (EXP) 

AND THE ENTRY LABELS HAVE DIFFERENT DATA 

ATTRIBUTES) 
BC 15,COPRAM1(0,10) BRANCH TO COPY OVER PARAMETERS 



A 


BC 


15,16.(0.15) 




DC 


AlKl) 




DC 


C'A* 


SIZDSA 


DC 


F* SIZE OF DSA* 


STATIC 


DC 


A (STATIC CONTROL 
SECTION) 




STM 


14,11,12.(13) 




LR 


10,15 




BAL 


8,GETDSA(0,10) 




MVI 


SWITCH ( 13) ,X* XI • 


* 






♦ 






* 
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I 


BC 


15,10(0,15) 




DC 


ALl (1) 




DC 


C'l' 


ADPRIM 


DC 


A (A) 


* 


STM 


m, 11, 12(13) 


L 


10,ADPRIM(0,15) 




LA 


8,IP(0,10) 


GETDSA 


L 


11, STATIC (0,10) 


^ 


L 


0,SIZDSA(0,10) 


4> 


L 


15,32, (0,11) 


* 


BALR 


1U,15 




LR 


1U,13 




LA 


0,7,(0,0) 




SB 


15,15 


LOOP 


A 


14,0(0,11) 




ST 


1I|,ADVEC+»K15,13 




LA 


15,4(0,15) 




BCT 


0,LOOP(0,10) 




BCR 


15,8 


IP 


MVI 


SWITCH (13) ,X'X2* 


COPRAMl 


L 


lU, 0(0,1) 




ST 


l'»,X(0,13) 




L 


m, 4(0,1) 




LA 


0,10(0,0) 




SR 


14,0 




LH 


14,0(0,14) 




ST 


14,Y(0,13) 




L 


14,8(0,1) 




ST 


14,TARGET(0,13) 


* 


L 


10,A...A(0,11) 


^ 


BAL 


8, COMMON (0,10) 




BCR 


15,10 


COMMON 

* 


MVI 


96(13), X'80' 


BALR 


10,0 




LA 


9,ADDAREA(0,13) 



ST 



9,ADVEC(0,13) 



BRANCH ROUND FOLLOWING CONSTANTS 

LENGTH OF BCD 

BCD OF ENTRY POINT 

FIRST PROLOGUE BASE ADDRESS 

SAVE STANDARD REGISTERS IN SAVE AREA OF 

CALLER'S DSA 

SET UP FIRST PROLOGUE BASE 

SET RETURN REGISTER 

SET UP STATIC DATA POINTER (ONLY IN 

EXTERNAL PROCEDURES AND ON PROLOGUES) 

GRO=SIZE OF DSA 

LOAD GR15 WITH ENTRY POINT OF IHESADA 

(UNLESS DSA IS IN STATIC, WHEN ENTRY POINT OF 

COMPILER'S 'GET DSA' ROUTINE WILL BE LOADED) 

CALL ROUTINE TO GET A NEW DSA 

POINT GR14 AT NEW DSA 

SET LOOPING VALUE = 7 

CLEAR INDEXING REGISTER 

BUMP GR14 BY 4096 

STORE GR14 IN ADDRESSING VECTOR 

BUMP INDEX REGISTER 

BRANCH ON RETURN REGISTER 

INSERT RETURN (EXP) SWITCH 

PICK UP FIRST ARGUMENT ADDRESS AND 

STORE IN X IN DSA 

PICK UP SECOND ARGUMENT ADDRESS 

POINT GR14 AT PSEUDO-REGISTER OFFSET OF 

ARGUMENT AND PICK IT UP 

STORE OFFSET IN Y IN DSA 

PiqK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 

LOAD GRIO FROM TRANSFER VECTOR SLOT 

FOR ENTRY POINT A IN STATIC. 

BRANCH AND LINK TO COMMON PROLOGUE 

BRANCH TO THE APPARENT ENTRY POINT 

FOR A 

SET DSA TASKING FLAG (ONLY COMPILED 

IF TASKING IN COMPILATION) 

SET UP COMMON PROLOGUE BASE 

SET GR9 TO POINT TO ADDRESSING AREA 

AT END OF DSA 

AND STORE IN ADDRESSING VECTOR. 



***** 

* 
* 
* 
* 



THE FOLLOWING CODE APPEARS 
ONLY IN THE CASE OF RECURSIVE PROCEDURES 



14,PR...A(12) 





ST 


14,92(0,13) 




LA 


14,PR. ..A(12) 




SR 


14,12 


A 


ST 


14,88(0,13) 


***** 







LOAD GR14 WITH THE CURRENT DISPLAY 

VALUE FOR A 

STORE IN DISPLAY UPDATE IN DSA 

GR14 = OFFSET OF DISPLAY PSEUDO- REGISTER 
STORE IN DISPLAY UPDATE IN DSA 



INITIALIZE ON SLOTS (IF ANY) 
MVI 0(13),X'8F' IDENTIFY DSA. 



COPY SKELETON DOPE VECTORS (IF ANY) FROM STATIC INTERNAL 
CONTROL SECTION TO REAL DOPE VECTORS IN DSA. (THERE IS ALWAYS A 
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SKELETON FOR A REAL DOPE VECTOR) , AND RELOCATE THE ADDRESSES WITH THE 
ADDRESS OF THE DSA FOR THOSE DOPE VECTORS REFERRING TO VARIABLES 
IN THE DSA. 



FOR EACH VDA (VARIABLE DATA AREA) REQUIRED BY THE 
PROCEDURE THE CODE BETWEEN THE LABELS VDAl AND VDA2 IS 
GENERATED 



VDAl 



SR 
SR 



7,7 
0,0 



CLEAR STORAGE ACCUMULATOR ACl 
CLEAR SECONDARY DOPE VECTOR STORAGE 
ACCUMULATOR AC2 



FOR EACH VARIABLE IN THE VDA, THE FOLLOWING CODE IS 
GENERATED (BETWEEN LABELS VARl AND VAR2) . 



VARl 

* 
* 

* 
* 
VAR2 



VDA 2 



AB 



LA 

AR 

L 

AR 

ST 



LA 



lO.PROCBASE 



EVALUATE EXTENT EXPRESSIONS (DIMENSIONS AND STRING LENGTHS) AND 

STORE RESULTS IN DOPE VECTOR IN DSA. 

ALIGN ACCUMULATOR ACl ON CORRECT BOUNDARY FOR VARIABLE 

BUMP ACCUMULATOR AC2 BY SIZE OF SECONDARY DOPE VECTOR (IF VARIABLE 

IS DIM-ENSIONED AND VARYING). 

RELOCATE ADDRESS IN VARIABLES DOPE VECTOR RELATIVE TO START OF 

VDA. 

BUMP ACCUMULATOR ACl BY SIZE OF STORAGE REQUIRED FOR VARIABLE 

AR 0,7 ADD ACl AND AC2 

L 15,36(0,11) LOAD GR15 WITH ENTRY POINT IHESADB 

RALR 1U,15 GET VDA 

1,8(0,1) BUMP VDA POINTER PAST FLAG AND CHAIN SLOTS 

7,1 POINT GR7 AT FIRST SECONDARY DOPE VECTOR. 

1U,DV. .VAR(0,13) FOR EACH VARIABLE IN REGION, RELOCATE 

14,1 ADDRESS IN DOPE VECTOR. 

m,DV. .VAR(0,13) 
FOR EACH DIMENSIONED VARYING ITEM IN REGION, INITIALIZE 
SECONDARY DOPE VECTORS. 

SET UP PROCEDURE BASE 

CODE (IF ANY) TO SET UP SOME ADDRESSING MECHANISMS IN E 

ADVANCE FOR USE IN PROCEDURE 

RETURN FROM COMMON PROLOGUE. 

BRANCH ROUND BCD OF ENTRY POINT 



SAVE REGISTERS IN CALLER'S SAVE AREA 

SET UP FIRST PROLOGUE BASE 

BRANCH AND LINK TO GET DSA AND TO SET 

UP ADDRESSING VECTOR 

SET UP RETURN (EXP) SWITCH IF THERE IS 

RETURN (EXP) AND DATA ATTRIBUTES OF 

ENTRY LABELS DIFFER 

BRANCH TO COPY OVER PARAMETERS 

BRANCH ROUND FOLLOWING CONSTANTS 

LENGTH OF BCD 

BCD OF ENTRY POINT 

FIRST PROLOGUE BASE 

SAVE REGISTERS IN CALLER'S SAVE AREA 

SET UP FIRST PROLOGUE BASE 

BRANCH TO GET DSA AND SET UP 

ADDRESSING VECTOR 

SET RETURN (EXP) SWITCH 

PICK UP FIRST ARGUMENT ADDRESS 



3CR 


15,8 


CNOP 


0,4 


BC 


15,8(0,15) 


DC 


AL1(2) 


DC 


CAB' 


STM 


14,11,12(13) 


L 


10,PROBAS(0,15) 


BAL 


8,GETDSA(10) 



MVI SWITCH (13) ,X'X3' 



* 






* 








BC 


15,COPRAM2(0,8) 


UK 


BC 


15,12(0,15) 




DC 


AL1(3) 




DC 


C'lJK' 


PROBAS 


DC 


A (A) 




STM 


14,11,12(13) 




L 


10, PROBAS (0,15) 


* 


BAL 


8,GETDSA(0,10) 


MVI 


SWITCH (13) ,X'X4' 


C0PRAM2 


L 


14,0(0,1) 




LA 


0,10(0,0) 
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SR 


14,0 


LH 


1U,0(0,1«») 


ST 


1«»,Y(0,13) 


L 


14,4(0,1) 


ST 


14,Z(0,13) 


L 


14,8(0,1) 


ST 


14,TARGET(0,13) 


L 


10,A...A(0,11) 



BAL 8,COMMON(0,10) 
BC 15,AE. ..AB(0,10) 
THIS IS THE APPAKENT ENTRY 



PICK UP PSEUDO-REGISTER OFFSET OF 
ARGUMENT AND STORE IN DSA. 
PICK UP ADDRESS OF SECOND ARGUMENT 
AND STORE IN Z 

PICK UP ADDRESS OF TARGET FIELD 
AND STORE IN DSA 

LOAD GRIO WITH ADDRESS OF FIRST BYTE 
OF PROCEDURE 

BRANCH AND LINK TO COMMON PROLOGUE 
BRANCH TO APPARENT ENTRY POINT AB 
POINT OF A. 



THE FOLLOWING IS AN ON BLOCK PROLOGUE WHICH IS COMPILED FOR ALL 
ON BLOCKS EXCEPT IF BLOCK SPECIFIES SYSTEM 



STM 14,11,12(13) 
LR 10,15 



SAVE REGISTERS 
SET PROLOGUE BASE 



LOOP 



COMMON 
ONSTART 



SET UP STATIC INTERNAL DATA POINTER 
LOAD GR15 WITH ADDRESS OF IHESADA 
LOAD GRO WITH SIZE OF DSA 
CALL IHESADA TO GET A DSA 



L 11, STATIC (0,10) 

L 15,32(0,11) 

L 0,SIZDSA(0,10) 

BALR 14,15 

LR 14,13 

LA 0,7(0,0) 

SR 15,15 

A 14,0(0,11) 

ST 14, ADVEC+4 (15,13) 

LA 15,4(0,15) 

BCT 0, LOOP (0,10) 

BC 15, COMMON (0,10) 

DC F'SIZE OF DSA* 

DC A (STATIC INTERNAL CONTROL SECTION) 

BALR 10,0 

CODE IS GENERATED HERE FOLLOWING SAME PATTERN AS 

A BEGIN PROLOGUE (SEE BELOW) COMMON SECTION. 

LA 10, ONSTART 



SET UP ADDRESSING VECTOR 
DSA 



BRANCH TO INITIALIZE DSA 



IN 



FOR 



EPILOGUE FOR AN ON BLOCK 
L 15,IHESAFA(0,11) 
BALR 14,15 



LOAD GR15 WITH ENTRY POINT TO EPILOGUE 
ROUTINE AND BRANCH AND LINK TO IT 



PROLOGUE FOR A BEGIN BLOCK 



LOOP 



LA 


14, BEND 


BALR 


15,0 


CNOP 


0,4 


STM 


14,11,12(13) 


BALR 


9,0 


L 


15,32(0,11) 


L 


0,SIZDSA(0,9) 


BALR 


14,15 


LR 


14,13 


LA 


0,7(0,0) 


SR 


15,15 


A 


14,0(0,11) 


ST 


14, ADVEC+4 (15,13) 


LA 


15,4(0,15) 


BCT 


0,LOOP(0,9) 


BC 


15, COMMON (0,9) 


DC 


F'SIZE OF DSA* 


LA 


9,ADDAREA(0,13) 



SET DP RETURN REGISTER 
SET UP ENTRY POINT ADDRESS 

SAVE REGISTERS IN CONTAINING BLOCK'S DSA 

SET UP PROLOGUE BASE 

LOAD GR15 WITH ENTRY POINT TO IHESADA 

GET A DSA 



SET UP ADDRESSING VECTOR FOR DSA 



SET 6RG TO POINT TO ADDRESSING AREA 
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ST 



9,ADVEC(0,13) 



AT END OF DSA AND STORE IN ADDRESSING 

VECTOR 
THE CODE GENERATED HERE IS THE SAME AS THAT FOR A PROCEDURE PROLOGUE 
EXCEPT THAT A DIFFERENT CODE BYTE IS MOVED TO THE FIRST BYTE OF THE 
DSA; GRIO IS NOT RESET; AND THE BCR 15,8 IS NOT GENERATED. 



BEND 



EPILOGUE OF A BEGIN BLOCK 
L 15,IHESAFA 
BALR 14,15 



LOAD GR15 WITH ENTRY POINT OF 
EPILOGUING ROUTINE AND CALL IT 



RETURN (EXP) STATEMENT EXAMINES THE LOCATION 'SWITCH' IN THE DSA 

SET BY THE PROLOGUE TO DETERMINE THE CONVERSION REQUIRED ON 

THE EXPRESSION. IT THEN ASSIGNS THE CONVERTED EXPRESSION TO 

THE TARGET FIELD FOR WHICH THE LOCATION 'TARGET*, IN THE DSA, 

POINTS TO EITHER ITS DOPE VECTOR (IN THE CASE OF A STRING) 

OR THE STORAGE. ROUTINE IHESAFA IS THEN INVOKED. 

END STATEMENT (WHICH IS THE SAME AS A RETURN STATEMENT) 

L 15, IHESAFA 

BALR 14,15 



DSA OPTIMIZATION 



In coirpilations specifying OPT=l, if a 
PROCEDURE or BEGIN block has a DSA which 
requires less than 512 bytes of storage, 
such storage may, under certain conditions, 
be obtained frcxn STATIC storage or from 
library workspace. To obtain a STATIC DSA, 
the block must satisfy these conditions: 

1. The block must not be re-entrant or 
recursive 

2. The block must not be nested (at any 
depth) within an ON block 

3. The block must not have the MAIN or 
TASK options 

A block which is ineligible for a STATIC 
DSA, and whose DSA will never be active 
when any new DSA is required, is allocated 
its DSA from library workspace. 

Each block requiring a DSA either in 
STATIC or in library workspace calls one of 
two compiled subroutines, instead of 
IHESAD, to allocate the storage. Either or 
both subroutines, if required, are compiled 
onto the end of the program, and are 
prefixed by the comments • STATIC PROLOGUE 
SUBROUTINE' and 'DYNAMIC PROLOGUE 
subroutine' respectively. Entry may be 
made to the STATIC prologue subroutine at 
one of several points. 

Any block using one of these prologue 
subroutines will also use a compiled 
Epilogue subroutine, which will be called 
for the END statement of the block, or for 
a RETURN statement without an expression. 



(The same Epilogue subroutine serves both 
STATIC and library workspace DSAs.) If 
there is any core to be freed, the Epilogue 
subroutine will call IHESAFA. The Epilogue 
subroutine is also compiled onto the end of 
the program, and always immediately 
precedes the STATIC Prologue subroutine if 
this is present. 



The address of the Dynamic Prologue 
subroutine and the Epilogue subroutine are 
placed in the STATIC internal control 
section, at offsets 40 and 48 from the 
start respectively. Since the STATIC 
Prologue subroutine always follows the 
Epilogue subroutine, which is of fixed 
length, a third address slot is not 
required for it. 

Listings of the Dynamic and Static 
Prologue and the Epilogue subroutines 

* DYNAMIC PROLO&UE SUBROUTINE 



L 


5,PR..IHEQLWF(12) 


LTR 


5,5 


BC 


8,90(15) 


L 


6,PR..IHEQINV(12) 


LTR 


6,6 


BC 


4,90(15) 


LR 


13,5 


SR 


2,2 


L 


3,PR. .IHEQSLA(12) 


ST 


13,PR..IHEQSLA(12) 


ST 


3,4(13) 


TM 


0(3),X'80' 


BC 


1,52(15) 


L 


3,4(3) 


B 


36(15) 


ST 


13,8(3) 


L 


4, PR. .IHEQINV(12) 
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LA 


4.1(4) 


ST 


4, PR. 


.IHEQINV(12) 




ST 


4,84(13) 




ST 


2,80(13) 




ST 


2,8(13) 




MVI 


76 (13), X* 00' 




ST 


2,96(13) 




BR 


14 




L 


15,32(11) 




BR 


15 


* 


END SUBROUTINE 


* 


EPILOGUE SUBROUTINE 




TM 


1(13), X»80' 




BC 


8,60(15) 




L 


2,80(13) 




LTO 


2,2 




BC 


7,60(15) 




C 


13,PR..IHEQSIA(12) 




BC 


7,60(15) 




L 


13,4(13) 




ST 


13,PR..IHEQSIA(12) 




TM 


0(13),X*80« 




BC 


1,50(15) 




L 


13,4(13) 




B 


34(15) 




ST 


2,8(13) 




LM 


14,11,12(13) 




BR 


14 





L 


15,A. .IHESAFA 




BR 


15 


* 


END 


SUBROUTINE 


♦ 


STATIC PROLOGUE SUBROUTI 




L 


4,PR. .IHEQINV(12) 




LTR 


4,4 




BC 


11,86(15) 




L 


7,PR. .IHEQLW0(12) 




MVC 


80(4«3),80(7) 




LA 


4,1(4) 




ST 


4,PR..IHEQINV(12) 




ST 


4,84(3) 




MVI 


76(3), X* 00' 




ST 


3,8(13) 




LR 


13,3 




L 


3,PR. .IHEQSLA(12) 




ST 


3,4(13) 




ST 


13,PR^.IHEQSLA(12 




SR 


2,2 




ST 


2,80(13) 




ST 


2,8(13) 




ST 


2,96(13) 




BR 


14 



END SUBROUTINE 
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APPENDIX I: DIAGNOSTIC MESSAGES 



The messages produced by the PL/I (F) 
compiler are explained in the publication 
IBM Svstem/360 Operating System. PL/I (F) 
Programmer's Guide . The following table 
associ^es a message number with the 
particular phase and module in which the 
corresponding message is generated. 



Message 
Number 

lEMOOOlI 
IEM0002I 
IEM0003I 
IEM0004I 
IEM0005I 
IEM0006I 
IEM0007I 
IEM0008I 
IEM0009I 
lEMOOlOI 
lEMOOllI 
IEM0012I 
IEM0013I 
IEM0014I 
IEM0015I 
IEM0016I 
IEM0017I 
IEM0018I 
IEM0019I 
IEM0020I 
IEM0021I 
IEM0022I 
IEM0023I 
IEM0024I 
IEM0025I 
IEM0026I 
IEM0027I 
IEM0028I 
IEM0029I 
IEM0031I 
IEM0033I 
IEM0035I 
IEM0037I 
IEM0038I 
IEM0039I 
IEM0040I 
IEM00U3I 
IEM0044I 
IEM0045I 
IEM0046I 
IEM0048I 
IEM0050I 
IEM0051I 
IEM0052I 
IEM0053I 
IEM0054I 
IEM0055I 
IEM0057I 
IEM0058I 
IEM0059I 
IEM0060I 



LogiccJ. Phase 

Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 



Module 

CA 

CA 

CA,CP 

CA 

CA,CL 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CA 

CG 

CA 

CA, CL, CT 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CG 

CL,CP 

CL,CP 

CO 

CO 

CO 

CP 

CC 

CC 

CP 

CP 



IEM0061I 
IEM0063I 
IEM0064I 
IEM0067I 
IEM0069I 
IEM0070I 
IEM0071I 
IEM0072I 
IEM0074I 
IEM0075I 
IEM0076I 
IEM0077I 
IEM0078I 
IEM0080I 
IEM0081I 
IEM0082I 
IEM0083I 
IEH0084I 
IEM0085I 
IEH0090I 
IEM0094I 
IEM0095I 
IEM0096I 
IEM0097I 
IEM0099I 
lEMOlOOI 
lEMOlOlI 
IEM0102I 
IEM0103I 
IEH0104I 
IEH0105I 
IEM0106I 
IEM0107I 
IEM0108I 
IEH0109I 
lEMOlllI 
IEH0112I 
IEM0113I 
IEH0114I 
IEM0115I 
IEM0116I 
IEM0117I 
IEM0118I 
IEH0119I 
IEM0120I 
IEM0121I 
IEM0122I 
IEM0123I 
IEH0124I 
IEH0125I 
IEM0126I 
IEM0127I 
IEM0128I 
IEM0129I 
IEM0130I 
IEM0131I 
IEH0132I 
IEH0134I 
IEM0135I 
IEM0136I 
IEM0138I 
IEM0139I 



Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 



CP 

CO 

CC 

CL 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CG 

CI 

CG 

CG 

CI 

CI 

CI 

CI 

CG,CI 

CI 

CI 

CI 

CM 

CI 

CI 

CC 

CC,CG 

CI,CV 

CI 

CI 

CG.CI 

CI 

CI 

CG,CM 

CI 

CL 

CI 

CM 

CL 

CM 

CM 

CO 

CO 

CM 

CO 

CI 

CI 

CI 

CO 

CL 

CL 

CO 

CO 

CP 

CG.CI 

CO 

CP 

CP 
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IEN0140I 
IEM0141I 
IEM0144I 
IEH0145I 
IEM0147I 
IEM0149I 
IEN0150I 
IEM0151I 
IEM0152I 
IEM0153I 
IEM0154I 
IEM0158I 
IEM0159I 
IEM0163I 
IEM0166I 
IEM0172I 
IEM0180I 
IEN0181I 
IEN0182I 

IEN0185I 
IEM0187I 
IEM0191I 
IEM0193I 
IEM0194I 
IEH0195I 
IEH0198I 
IEM0202I 
IEM0207I 
IEM0208I 
IEM0209I 
IEM0211I 
IEM0212I 
IEM0213I 
IEM0214I 
IEM0216I 
IEN0217I 
IEM0220I 
IEM0221I 
IEM0222I 
IEH0223I 
IEM0224I 
IEH0225I 
IEM0226I 
IEM0227I 
IEH0228I 
IEM0229I 
IEH0230I 
IEM0231I 
IEM0232I 
IEM0233I 
IEM0235I 
IEH0236I 
IEM0237I 
IEM0238I 
IEH0239I 
IEM0240I 
ZEM0241I 
IEH0242I 
IEM0243I 
IEN0244I 
IEM0245I 
IEM0247I 
IEM0254I 
IEH0255I 
IEM0510I 
IEM0511I 
IEM0512I 
IEM0513I 



Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 

Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
R^d In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
R^d In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Dictionary 
Dictionary 
Dictionary 
Dictionary 



CO 


IEM0514I 


Dictionary 


CP 


IEM0515I 


Dictionary 


CO 


IEM0516I 


Dictionary 


CO 


IEM0517I 


Dictionazry 


CO 


IEM0518I 


Dictioneiry 


CL.CM 


IEM0519I 


Dictionary 


CL 


IEM0520I 


Dictionairy 


CO 


IEM0521I 


Dictionary 


CO 


IEM0522I 


Dictionary 


CO 


IEH0523I 


Dictionary 


CA 


IEM0524I 


Dictionary 


CO 


IEM0525I 


Dictionary 


CO 


IEM0527I 


Dictionary 


CT 


IEH0528I 


Dictionary 


CL 


IEM0529I 


Dictionary 


CL 


i IEH0530I 


Dictionary 


CT 


IEH0532I 


Dictionary 


CL 


IEM0533I 


Dictionary 


CL,CS, 


IEH0534I 


Dictionary 


CT,CV 


1 IEM0535I 


Dictionary 


CT 


IRM0536I 


Dictionary 


CT 


IEM0537I 


Dictionary 


CT 


IEM0538I 


Dictionary 


CT 


IEM053 91 


Dictionary 


CT 


IEM0540I 


Dictionary 


CT 


IEM0541I 


Dictionary 


CT 


IEM0542I 


Dictionary 


CL 


IEM0543I 


Dictionary 


CG 


IEH0544I 


Dictionary 


CG 


IEH0545I 


Dictionary 


CC 


IEH0546I 


Dictionary 


GL 


IEM0547I 


Dictionary 


CP 


IEM0548I 


Dictionary 


CP 


IEM0549I 


Dictionary 


CP 


IEM0550I 


Dictionary 


CP 


IEM0551I 


Dictionairy 


CP 


IEH0552I 


Dictionary 


CT 


IEM0553I 


Dictionary 


CT 


IEH0554I 


Dictionary 


CT 


IEM0555I 


Dictionary 


CT 


IEM0556I 


Dictionary 


CT 


IEM0557I 


Dictionary 


CT 


IEM0558I 


Dictionary 


CT 


IEM0559I 


Dictionary 


CT 


IEM0560I 


Dictionary 


CT 


IEM0561I 


Dictionary 


CT 


IEM0562I 


Dictionary 


CS,CT 


IEH0563I 


Dictionary 


CT 


IEM0564I 


Dictionary 


CT 


IEM0565I 


Dictionary 


CV 


IEM0566I 


Dictionary 


CS 


IEM0567I 


Dictionary 


CS 


IEH0568I 


Dictionary 


CS 


IEM0569I 


Dictionary 


CV 


IEM0570I 


Dictionary 


CS 


IEM0571I 


Dictionary 


CV 


IEH0572I 


Dictionary 


CV 


IEM0573I 


Dictionary 


CV 


IEM0576I 


Dictionary 


CV 


IEM0577I 


Dictionary 


CV 


IEM0578I 


Dictionary 


CV 


IEM0579I 


Dictionary 


cw 


IEH0580I 


Dictionary 


CC 


IEM0589I 


Dictionairy 


CG 


IEM0590I 


Dictionary 


EH 


IEM0591I 


Dictionary 


EH 


IEH0592I 


Dictionary 


EH 


IEM0593I 


Dictionary 


EG 


IEM0594I 


Dictionary 



EG 

EG 

EG 

EG 

EG 

EG 

EG 

EG 

EG 

EG 

EH 

EI 

EJ 

EH,EI,EJ 

EI 

EI 

EI 

EI 

EI 

EI 

EI 

EI 

EJ 

EJ 

EJ 

EJ 

EJ 

ELf ERf EM 

ELf EKf EM 

ELf EKf EM 

EL f EKf E!M 

ELf EKf EM 

EL f EK f EM 

ELf EKf EM 

EL f EK f EM 

EKfELf EN 

EL f EKf EM 

ELf EKf EM 

mia g EKf EM 

EL f EK g EM 

ELfEKy EM 

ELf EKf EM 

ELf EKf EM 

EL f EKf EM 

ELf EKf EM 

ELy EKf EM 

EK(EL«EM 

ctRg ELf EM 

EK f EL f £>M 

EK ELf EM 

EK f ELf EM 

EP 

EP 

EP 

EP 

EK 

EL 

EL 

ICT. 

EL 
EL 
EP 
FI 
EW 
EW 
EW 
EW 
EW 
EW 
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IEM0595I 
IEM0596I 
IEM0597I 
IEM0598I 
IEM0599I 
IEM0602I 
IEM0603I 
IEM0604I 
IEM06052 
IEM0606I 
IEM0607I 
IEM0608I 
IEM0609I 
IEM0610I 
IEM0611I 
IEM0612I 
IEM0613I 
ZEM0614I 
IEM0623I 
IEM0624I 
IEM0625I 
IEM0626I 
IEM0628I 
IEM0629I 
IEM0630I 
lEMO 6311 
IEM0632I 
IEM0633I 
IEN0634I 
IEM0636I 
IEM0637I 
IEN0638I 
IEM0640I 
IEM06411 
IEM0642I 
IEM0643I 
IEM0644I 
IEM0645I 
IEM0646I 
IEM0647I 
IEM0653I 
IEM0655I 
IEM0656I 
IEM0657I 
IEM0658I 
IEM0660I 
IEM0661I 
IEM0662I 
IEM0673I 
IEM0674I 
IEM0675I 
IEM0676I 
IEM0677I 
IEM0682I 
ZEM0683I 
IEM0684I 
IEM0685I 
IEM0686I 
IEM0687I 
IEM0688I 
IEM0689I 
IEM0690I 
IEM0691I 
IEM0692I 
IEM0693I 
IEM0694I 
IEM0695I 
IEM0696I 
IEM069tl 



Dictionary 


EW 




IEH0698I 


Dictionary 


PI 


Dictionary 


EW 




IEN10699I 


Dictionary 


FI 


Dictionary 


EW 




IEH0700I 


Dictionary 


FI 


Dictionary 


EW 




IEM0701I 


Dictionary 


PI 


Dictionary 


EW 




IEM0702I 


Dictionary 


PI 


Dictionary 


FV. 


FW 


IEM0703I 


Dictionary 


PI 


Dictionary 


PV. 


FW 


IEM0704I 


Dictionary 


FI 


Dictionary 


FV, 


FW 


IEM07051 


Dictionary 


PI 


Dictionary 


FV, 


FW 


IEM0706I 


Dictionary 


PI 


Dictionary 


FV. 


FW 


UEM0707I 


Dictionary 


PI 


Dictionary 


FV. 


FW 


IEM0715I 


Dictionary 


EJ 


Dictionary 


FV, 


PW 


IEM0718I 


Dictionary 


PO 


Dictionary 


FV. 


FW 


IEM0719I 


Dictionary 


PO 


Dictionary 


FV, 


FW 


IEM0720I 


Dictionary 


PO 


Dictionary 


FV. 


FW 


IEM0721I 


Dictionary 


PO 


Dictionary 


FV 




IEM0722I 


Dictionary 


PO 


Dictionary 


FW 




IEM0723I 


Dictionary 


PO 


Dictionary 


FW 




IEM0724I 


Dictionary 


PO 


Dictionary 


FV. 


EW 


IEM0725I 


Dictionary 


PO 


Dictionairy 


FV. 


FW 


IEH0726I 


Dictionary 


PO 


Dictionary 


FV. 


FW 


IEM0727I 


Dictionary 


PO 


Dictionary 


FV, 


PW 


IEM0728I 


Dictionary 


PO 


Dictionary 


FV. 


PW 


IEM072 91 


Dictionary 


PO 


Dictionary 


FV. 


PW 


IEM0730I 


Dictionary 


PQ 


Dictionary 


FV, 


PW 


IEM0731I 


Dictionary 


PQ 


Dictionary 


FV, 


FW 


IEM0732I 


Dictionary 


PQ 


Dictionary 


FV, 


PW 


IEM0733I 


Dictionary 


FQ 


Dictionary 


EY 




IEM0734I 


Dictionary 


PQ 


Dictionary 


EY 




IEM0735I 


Dictionary 


PQ 


Dictionaary 


EY 




TEM0736I 


Dictionajr/ 


PQ 


Dictionary 


EY 




IEM0737I 


Dictionary 


PQ 


Dictionary 


EY 




IEM0739I 


Dictionary 


PQ 


Dictionary 


EY 




IEM0740I 


Dictionary 


PQ 


Dictionary 


EY 




IEM0741I 


Dictionary 


FQ 


Dictionary 


EY 




IEM0742I 


Dictionary 


PQ 


Dictionary 


EY 




IEM0745I 


Dictionary 


PQ 


Dictionary 


EY 




IEM0746I 


Dictionary 


PQ 


Dictionary 


EY 




IEM0747I 


Dictionary 


FQ 


Dictionary 


EY 




IEM0748I 


Dictionary 


PQ 


Dictionary 


EY 




IEH0749I 


Dictionary 


PQ 


Dictionary 


FE 




IEM0750I 


Dictionairy 


PQ 


Dictionary 


FE 




IEM0751I 


Dictionary 


PQ 


Dictionary 


FE 




IEM0752I 


Dictionary 


FQ 


Dictionary 


FE 




IEM0754I 


Dictionary 


PQ 


Dictionary 


FE 




IEM0755I 


Dictionary 


PQ 


Dictionary 


FE 




IEM0756I 


Dictionary 


PQ 


Dictionary 


FE 




IEH0758I 


Dictioneury 


PQ 


Pretranslator 


GV 




IEM0759I 


Dictionary 


PQ 


Dictionary 


FE 




IEM0760I 


Dictionary 


PQ 


Dictionary 


FP 




TEM0761I 


Dictionary 


PQ 


Dictionary 


FF 




IEH0762I 


Dictionary 


PQ 


Dictionary 


FF 




IEM0769I 


Pretranslator 


GB 


Dictionary 


FE 




IEM0770I 


Fret ranslator 


6B 


Dictionary 


FI 




IEM0771I 


Pretranslator 


GB 


Dictionary 


FI 




IEM0778I 


Pretranslator 


GB 


Dictionary 


FI 




IEM0779I 


Pr etrans later 


GB 


Dictionary 


FI 




IEM0780I 


Pretranslator 


GB 


Dictionary 


FI 




IEM0781I 


Pretranslator 


GB 


Dictionary 


FI 




IEM0782I 


Pretranslator 


GB 


Dictionary 


FI 




IEM0786I 


Pretranslator 


GK 


Dictionairy 


FI 




IEM0787I 


Pretranslator 


GK 


Dictionary 


FI 




IEM0791I 


Pretranslator 


GK 


Dictionary 


FI 




IEH0792I 


Pretranslator 


GP,GQ,GR 


Dictionary 


FI 




IEM0793I 


Pretranslator 


GP,6Q,GR 


Dictionairy 


PI 




IEM0794I 


Pretranslator 


6P,GQ,6R 


Dictionary 


PI 




IEM0795I 


Pretranslator 


GP,GQ,6R 


Dictionary 


FI 




IEM0796I 


Pretranslator 


GP,GQ,GR 


Dictionary 


FI 




IEM0797I 


Pretranslator 


6P,GQ,GR 


Dictionary 


FI 




IEM0798I 


Pretranslator 


GP,GQ,GR 
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IEH0799I 
IEN0800I 
IEM0801I 
IEM0802Z 
IEM0803I 
IEN0804I 
IEM0805I 
I IEN0808I 



Pretranslator 
Pretr ans lator 
Pretranslator 
P retrans lator 
Pretranslator 
Pret rans lator 
Pretranslator 
Pretranslator 



GP,GQ,6R 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP.GQ.GR 
GR 



IEM3052I 


Compiler Control 


AL/AN 


IEM38U2I 


Compiler Control 


AL/AN 


IEM3843I 


Compiler Control 


AL/AN 


IEH38^5I 


Compiler Control 


AL/AN 


IEM3846I 


Compiler Control 


AL/AN 


IEM38U7I 


Compiler Control 


AL/AN 


IEH38tl8I 


compiler Control 


AL/AN 
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IEM0806I 
IEM0807I 
IEM0816I 
IEM0817I 
IEM0818I 
IEM0819I 
IEM0820I 
IEM0821I 
IEM0823I 
IEM082UI 
IEM0825I 
IEM0826I 
IEM0832I 
IEM0833I 
XEM083(tI 
IEM0835I 
IEM0836I 
IEM0837I 
IEM0838I 
IEM08t(8I 
IEM08U9I 
IEM0850Z 
IEM0851I 
IEM0852I 
IEM0853I 
IEM0864I 
IEM0865I 
IEH0866I 
IEM0867I 
IEM0868I 
IEM0869I 
IEM0870I 
IEM0871I 
IEM0872I 
IEM0873I 
IEM087*H 
IEM0875I 
IEM0876I 
IEM0877I 
IEM0878I 
IEM0879I 
IEM0880I 
IEM0881I 
IEM0882I 
IEM0896I 
IEM0897I 
IEM0898I 
IEM0899I 
IEM0900I 
IEM0901I 
IEM0902I 
IEM0903I 
IEM0906I 
IEM0907I 
IEM102JH 
IEM1025I 
IEM1026I 
IEfa027l 
IEM1028I 
IEM1029I 
i IEM1030I 
IEM1040I 
IEM1051I 
IEM1056I 
IE^a057I 
IEM1058I 
IEM1059I 
IEM1060I 



Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pret rans lator 

Pretranslator 

P ret rans lator 

Pretr ans lator 

Pretranslator 

Pret rans lator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pretranslator 

Pret rans lator 

Pret rans lator 

Pretr ans lator 

Pretranslator 

Pretr ans lator 

pretranslator 

Pret rans lator 

Pretranslator 

P ret rans lator 

Pretranslator 

Pretranslator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 



GP,GQ,GR 

GP,GQ,GR 

GU,GV 

GU,GV 

GU,GV 

GU.GV 

GU,GV 

GU,GV 

GU,GV 

GU 

GU,GV 

GU, GV 

HF,HG 

HF,HG 

HF,HG 

HF,HG 

HF,HG 

HF,HG 

HF 

HF,HG 

HF, HG 

HF,H6 

HF,HG 

HF,HG 

HF,HG 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK,HL 

HK« HL 

HK 

HP 

HP 

HP 

HP 

HP 

HP 

HP 

HP 

HP 

HP 

Ih 

Ih 

lA 

Ih 

lA 

lA 

lA 

IM 

IM 

IM 

IM 

IM 

IM 

IM 



IEM1061I 


Translator 


IM 






IEM1062I 


Translator 


IM 






IEM1063I 


Translator 


IM 






IEMl06t*I 


Translator 


IM 






IEM1065I 


Translator 


IM 






IEM1066I 


Translator 


IM 






IEM1067I 


Translator 


IM 






IEM1068I 


Translator 


IM 






IEM1070I 


Translator 


IM 






IEM1071I 


Translator 


IM 






IEM1072I 


Translator 


IM 






IEM1073I 


Translator 


IM 






IEM107UI 


Translator 


IM 






IEM1076I 


Translator 


JD 






IEM108 2I 


Translator 


IX 






IEM1088I 


Aggregates 


JK 






IEM1089I 


Aggregates 


JK 






IEM1090I 


Aggregates 


JK 






IEM1091I 


Aggregate Preprocessor 


JI 






IEM1092I 


Aggregates 


JK 






IEM110«»I 


Aggregates 


JP 






IEM1105I 


Aggregates 


JP 






IEM1106I 


Aggregates 


JP 






IEM1107I 


Aggregates 


JP 






IEM1108I 


Aggregates 


JP 






lEMlllOI 


Aggregates 


JP 






lEMllllI 


Aggregates 


JP 






IEM1112I 


Aggregates 


JP 






IEM1113I 


Aggregates 


JP 






lEMlll^I 


Aggregates 


JP 






IEM1115I 


Aggregates 


JP 






IEM1120I 


Aggregates 


JP 






IEM1121I 


Aggregates 


JP 






IEM1122I 


Aggregates 


JP 






IEM1123I 


Pseudo-code 


LD 






IEM1125I 


Pseudo-code 


LD 






IEM1200I 


Pseudo-code 


KT 






IEM1210I 


Do loop optimization 


KC 






IEM1211I 


Do loop optimization 


KE 






IEM1220I 


Do loop optimization 


KU 






IEM1223I 


Do loop optimization 


KO 






IEMl22tH 


Do loop optimization 


KA 






IEM1569I 


Pseudo-code 


LG- 


ON 




IEM1570I 


Pseudo-code 


LG 






IEM1571I 


Pseudo-code 


LG 






IEM1572I 


Pseudo-code 


LG 






IEM157«H 


Pseudo-code 


LG 






IEM1575I 


Pseudo-code 


LG 






IEM1588I 


Pseudo-code 


MD 






IEM1600I 


Pseudo-code 


LS, 


LT, 


LU 


IEM1601I 


Pseudo-code 


LS 






IEM1602I 


Pseudo-code 


LS, 


LT. 


LU 


IEM1603I 


Pseudo-code 


LS, 


LT, 


LU 


IEM1604I 


Pseudo-code 


LS, 


LT. 


LU 


IEM1605I 


Pseudo-code 


LS, 


LT. 


LU 


IEM1606I 


Pseudo-code 


LS, 


LT. 


LU 


1EM1607I 


Pseudo-code 


LS, 


LT. 


LU 


IEM1608I 


Pseudo-code 


LS, 


LT, 


LU 


IEM1609I 


Pseudo-code 


LS, 


LT. 


LU 


IEM1610I 


Pseudo-code 


LW 






IEM1611I 


Pseudo-code 


LW 






IEM1612I 


Pseudo-code 


LW 






IEM1613I 


Pseudo-code 


LS, 


LT. 


LU 


lEMieitH 


Pseudo-code 


LW 






IEM1615I 


Pseudo-code 


ME 






XEM1616I 


Pseudo-code 


ME 






IEM1617I 


Pseudo-code 


MB 






IEM1618I 


Pseudo-code 


MB 
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IEM1619I 
IEM1620I 
IEM1621I 
IEM1622I 
IEM1624I 
IEM1625I 
IEM1626I 
IEM1627I 
IEM1628I 
IEM1629I 
IEM1630I 
IEM1631I 
IEM1632I 
IEM1633I 
IEM1634I 
IEM1635I 
IEM1636I 
IEM1637I 
IEM1638I 
IEM1639I 

lEMieaoi 

IEM1641I 
IEM1642I 
IEM16U3I 
IEM1644I 
IEM1645I 
IEM16<I8I 
IEM1649I 
IEM1650I 
IEM1651I 
IEM1652I 
IEM1654I 
IEM1655I 
IEM1656I 
IEM1657I 
IEM1658I 
IEM1670I 
IEM1671I 
IEM1680I 
IEM1687I 
IEM1688I 
IEM1689I 
IEM1692I 
IEM1693I 
IEM1695I 
IEM1696I 
IEM1750I 
IEM1751I 
IEM1752I 
IEM1753I 
IEM1754I 
IEM1790I 
IEM1793I 
IEM1794I 
IEM1795I 
IEM1796I 
IEM1797I 
IEM1800I 
IEM1801I 
IEM1802I 
IEra803I 
IEM1804I 
IEM1805I 
IEM1806I 
IEM1807I 
IEM1808I 
IEM1809I 
IEM1810I 



Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-Gode 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 



MB IEM1811I Pseudo-code 

MB IEM1812I Pseudo-code 

MB IEM1813I Pseudo-code 

MB, ME lEMlSltJI Pseudo-code 

MB IEM1815I Pseudo-code 

MB IEM1816I Pseudo-code 

ME IEM1817I Pseudo-code 

ME IEM1818I Pseudo-code 

ME IEM1819I Pseudo-code 

ME IEM1820I Pseudo-code 

MG,MH IEM1821I Pseudo-code 

MI,MJ IEM1822I Pseudo-code 

MI,MJ IEM1823I Pseudo-code 

ME IEM182UI Pseudo-code 

ME IEM1825I Pseudo-code 

ME IEM1826I Pseudo-code 

ME IEM1827I Pseudo-code 

ME IEM1828I Pseudo-code 

ME IEM1829I Pseudo-code 

MF IEM1830I Pseudo-code 

MM,MN I IEM1831I Pseudo-code 

MM,MN IEM1832I Pseudo-code 

MM^MN IEM1833I Pseudo-code 

MM,MN I EMI 8 341 Pseudo-code 

MM,MN IEM1835I Pseudo-code 

MM,MN IEM1836I Pseudo-code 

MM,MN IEM1837I Pseudo-code 

MM.MN IEM1838I Pseudo-code 

MM,MN IEM1839I Pseudo-code 

MM,MN IEM18U0I Pseudo-code 

MM,MN IEM18IHI Pseudo-code 

MM,MN IEM18U3I Pseudo-code 

MN IEM1841I Pseudo-code 

ME IEM18«»5I Pseudo-code 

MM IEM18U6I Pseudo-code 

MN IEM1847I Pseudo-code 

MP IEM1848I Pseudo-code 

MP IEM1849I Constant Conversions 

MS IEM1850I Constant Conversions 

MS IEM1860I Pseudo-code 

MS IEM1861I Pseudo-code 

MS IEM1862I Pseudo-code 

MS IEM1870I Pseudo-code 

MS IEM1871I Pseudo-code 

MA IEM1872I Pseudo-code 

MA IEM1873I Pseudo-code 

MS IEM187'H Pseudo-code 

MS IEM1875I Pseudo-code 

NA IEM2304I Storage Allocation 

NA IEH2305I Storage Allocation 

NA IEM2352I Storage Allocation 

OG«OM IEM2650I Register Allocation 

OE IEM2660I Register Allocation 

OE IEM2661I Register Allocation 

OE IEM2700I Register Allocation 

OE IEM2701I Register Allocation 

OE IEM2702I Register Allocation 

OS IEM2703I Register Allocation 

OS IEM270*»I Register Allocation 

OS IEM2705I Register Allocation 

OS IEM2706I Register Allocation 

OS IEM2707I Register Allocation 

OS IEM2708I Register Allocation 

OS IEM2709I Register Allocation 

OS IEM2710I Register Allocation 

OS IEM2711I Register Allocation 

OS IEM2712I Register Allocation 

OS IEM2817I DCB Generation 



OS 

OS 

OS 

OS 

OS 

NJ 

NJ 

NJ 

NJ 

NJ 

NJ 

NJ 

NJ 

NM 

NG 

NS 

NG 

NG 

NG 

NG 

NJ 

NM 

NM 

NM 

NM 

NM 

NM 

NM 

NM 

NM 

NM 

NM 

NM 

NM 

NM 

NM 

NM 

OS 

OS 

NU 

NU 

NU 

NU 

NU 

NU 

NU 

NU 

NV 

PD 

PD 

PD 

RA 

RD 

RD 

RF,RG,RH 

RF,RG«RH 

RF,RG,RU 

RF,R6,RH 

RF,RG,RH 

RF,RG,RH 

RF,RG,RH 

RF, RG, RH 

RF,R6,RH 

RF,RG,RH 

RF,R6,RH 

RF,RG,RH 

RF,R6,RH 

GA 



U70 



IEM2818I 


DCB Generation 


GA 


IEM38U5I 


IEM2819I 


DCB Generation 


GA 


IEM38U6I 


IEM2820I 


DCB Generation 


GA 




IEM2821I 


DCB Generation 


GA 


IEM3847I 


IEM2822I 


DCB Generation 


GA 


IEM3848I 


IEM2823I 


DCB Generation 


GA 


IEM3849I 


IEM282UI 


DCB Generation 


GA 


IEM3850I 


IEM2825I 


DCB Generation 


GA 


IEM3851I 


IEM2826I 


DCB Generation 


GA 


IEM3852I 


IEM2827I 


DCB Generation 


GA 


IEM3853I 


IEM2828I 


DCB Generation 


GA 


IEM3855I 


IEM2829I 


DCB Generation 


GA 


IEM3856I 


IEM2830I 


DCB Generation 


GA 


IEM3857I 


IEM2831I 


DCB Generation 


GA 


IEM3858I 


IEM2832I 


DCB Generation 


GA 


IEM3859I 


IEM2833I 


Final 


Assembly 


TF 


IEM3860I 


IEM2834I 


Final 


Assembly 


TF 


IEM3861I 


IEM2835I 


Final 


Assembly 


TF 


IEM3862I 


IEM2836I 


Final 


Assembly 


TF 


IEM3863I 


IEM2837I 


Final 


Assembly 


TF 


IEM386UI 


IEM2852I 


Final 


Assembly 


TJ 


IEM3865I 


IEM2853I 


Final 


Assembly 


TJ 


I IEM3866I 


IEM2854I 


Final 


Assembly 


TJ 


IEM3872I 


IEM2855I 


Final 


Assembly 


TJ 


IEM3873I 


IEM2865I 


Final 


Assembly 


TO 


IEM387«*I 


IEM2866I 


Final 


Assembly 


TO 


1 IEM3875I 


IEM2867I 


Final 


Assembly 


TO 


IEM3876I 


IEM2868I 


Final 


Assembly 


TO 


1 IEM3877I 


IEM2881I 


Final 


Assembly 


TT 


IEM3878I 


IEM2882I 


Final 


Assembly 


TT 


IEM3880I 


IEM2883I 


Final 


Assembly 


TT 


IEM3887I 


IEM2884I 


Final 


Assembly 


TT 


IEM3888I 


IEM2885I 


Final 


Assembly 


TT 


IEM3889I 


IEM2886I 


Final 


Assembly 


TT 


IEM3890I 


IEM2887I 


Final 


Assembly 


TT 


IEM3891I 


IEM2888I 


Final 


Assembly 


TT 


IEM3892I 


IEM2897I 


Final 


Assembly 


UA 


IEM3893I 


IEM2898I 


Final 


Assembly 


UA 


IEM389'H 


IEM2899I 


Final 


Assembly 


UC 


IEM3895I 


IEM2900I 


Final 


Assembly 


UC 


IEM3896I 


IEM2913I 


Final 


Assembly 


UF 


IEM3897I 


IEM3088I 


Dictionary, Declare 


EL 


IEM3898I 




Pass i 


2 




IEM3899I 


IEM3136I- 


Dictionary, Declare 


EL 


IEM3900I 


311*91 


Pass '4 


2 




IEM3901I 


IEM3151I 


Dictionary, Declare 


EL 


IEM3902I 




Pass 2 




IEM3902I 


IEM3153I 


Dictionary, Declare 


EL 


IEM3903I 




Pass 2 




IEM390UI 


IEM315ttI 


Dictionary, Declare 


EL 


IEM3905I 




Pass 2 




IEM3906I 


IEM3156I 


Dictionary, Declare 


EL 


IEM3907I 




Pass 2 




IEM3908I 


IEM3162I 


Dictionary, Declare 


EL 


IEM3909I 




Pass 2 




IEM3910I 


IEM3167I- 


Dictionary, Declare 


EL 


IEM3911I 


31731 


Pass 2 




IEM3912I 


IEM3176I- 


Dictionary, Declare 


EL 


IEM3913I 


31901 


Pass 2 




IEM391UI 


IEM3199I- 


Dictionary, Declare 


EL 


IEMU106I 


32131 


Pass 2 




IEM4109I 


IEM358ai 


48 Character 


BX 


IEM4112I 




Preprocessor 




IEM4115I 


IEM38U0I 


Compiler Control 


AA 


IEM4118I 


IEM3841I 


Compiler Control 


AA 


IEMU121I 


IEM3842I 


Compiler Control 


AA 


IEM«»12«»I 


IEM3843I 


Compiler Control 


AA 


IEMII130I 


IEM384m 


Compiler Control 


AA 


IEMU133I 



Compiler Control AA 
Compiler Control AA 
Optimization KA 

Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AB 
Compiler Control AA 
Compiler Control AB 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AB 
Compiler Control AB 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AL 
Compiler Control AB 
Compiler Control AB 
Compiler Control AB 
Compiler Control AB 
Compiler Control AB 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AA 
Compiler Control AL 
Compiler Control AB 
Compiler Control AB 
Compiler Control AB 
Compile-time Processor AB 
Compile-time Processor AB 
Compile-time Processor AS 
Compile-time Processor AS 
Compile-time Processor AS 
Compile-time Processor AS 
Compile-time Processor AS 
Compile-time Processor AS,bc,bg 
Compile-time Processor BC,BG 
Compile-time Processor EG 
Compile-time Processor BC 
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lEMtilBUI Compile- time Processor BC 

IEMtl36I Compile- time Processor BC 

IEMU139I Compile-time Processor BC 

IEMU142I Compile-time Processor BC 

IEMU1U3I Compile-time Processor BC 

lEMtlUBI compile-time Processor EC 

lEMllSOI Compile-time Processor BC 

IEM4151I Compile-time Processor BC 

IEM4152I Compile-time Processor BC 

IEM1153I Compile-time Processor BC 

IEM415UI Compile-time Processor BC 

IEM4157I Compile-time Processor BC 

IEM4160I Compile-time Processor BC 

IEM'*163I Compile-time Processor BC 

IEM4166I Compile-time Processor BC 

IEMU169I Compile-time Processor BC 

IEM4172I Compile-time Processor BC 

IEM4175I Compile-time Processor BC 

IEM4176I Compile-time Processor BC 

IEMU178I Compile-time Processor BC 

lEMUlSUl compile-time Processor BC 

IEM4187I Compile-time Processor BC 

lEWHSSI Compile-time Processor BC 

IEM4190I Compile-time Processor BC 

IEMm93l Compile-time Processor BC 

IEMU196I Compile-time Processor BC 

IEM'H99I Compile-time Processor BC 

IEM4202I Compile-time Processor BC 

IEMU205I Compile-time Processor BC 

IEMU208I Compile-time Processor BC 

IEM4211I Compile-time Processor BC 

IEM*»212I Compile-time Processor BC 

IEM42mi Compile-time Processor BC 

IEMU215I Compile-time Processor BC 

IEM4217I Compile-time Processor BC 

IEM4220I Compile-time Processor BC 

IEMU223I Compile-time Processor BC 

IEMU226I Compile-time Processor BC 

IEM4229I Compile-time Processor BC 

IEM4232I Compile-time Processor BC 

IEM4235I Compile- time Processor BC 

IEMU238I Compile-time Processor BC 

IEMU241I Compile-time Processor BC 

IEM4244I Compile-time Processor BC 

IEM42U7I Compile-time Processor BC 

IEMU248I Compile-time Processor BC 

IEM4250I Compile-time Processor BC 

IEM4253I Compile-time Processor BC 

IEM425UI Compile-time Processor BC 

IEMU256I Compile-time Processor BC 

IEM4259I Compile-time Processor BC 

IEMM262I Compile-time Processor BC 

IEMU265I Compile-time Processor BC 

IEM4271I Compile-time Processor BC 

IEM4277I Compile-time Processor BC 

IEM'»280I compile-time Processor BC 

IEM4283I Compile-time Processor BC 

IEMU286I Compile-time Processor BC 

IEMU289I Compile-time Processor BC 

IEM4292I Compile-time Processor BC 

IEMU295I Compile-time Processor BC 

IEM4296I Compile-time Processor BC 

IEMU298I Compile-time Processor BC 

IEM4299I Compile-time Processor BC 

IEMU301I Compile-time Processor BC 

IEM4304I Compile-time Processor BC 

IEMU307I Compile-time Processor BC 

IEM'43101 Compile-time Processor BC 



IEMU313I 


Compile-time 


Processor 


BC 


IEM4319I 


Compile-time 


Processor 


BC 


IEMU322I 


Compile-time 


Processor 


BC 


IEMU325I 


Compile-time 


Processor 


BC 


1 IEMH326I 


Compile-time 


Processor 


AV 


IEMa328I 


Compile-time 


Processor 


BC 


IEMU331I 


Compile-time 


Processor 


BC 


IEM43321 


Compile-time 


Processor 


BC 


IEMt»33iH 


Compile-time 


Processor 


BC 


IEMU337I 


Compile-time 


Processor 


BC 


IEMU3U0I 


Compile-time 


Processor 


BC 


IEMU3t*3l 


Compile-time 


Processor 


BC 


IEMU3U6I 


Compile-time 


Processor 


BC 


IEMU3U9I 


Compile-time 


Processor 


BC 


IEM4352I 


Compile-time 


Processor 


BC 


IEMU355I 


Compile-time 


Processor 


BC 


IEM4358I 


Compile-time 


Processor 


BC 


IEM4361I 


Compile-time 


Processor 


BC 


IEMU36«»I 


Compile-time 


Processor 


BC 


IEMU367I 


Compile-time 


Processor 


BC 


IEM4370I 


Compile-time 


Processor 


BC 


IEM4373I 


Compile-time 


Processor 


BC 


IEMU376I 


Compile-time 


Processor 


BC 


IEMa379I 


Compile-time 


Processor 


BC 


IEM«*382I 


Compile-time 


Processor 


BC 


IEMU283I 


Compile-time 


Processor 


BC 


IEMU391I 


Compile-time 


Processor 


BC 


IEMU39tH 


Compile-time 


Processor 


BC 


IEMU397I 


Compile-time 


Processor 


BC 


IEMt»«lOOI 


Compile-time 


Processor 


BC 


IEM4403I 


Compile-time 


Processor 


BC 


IEM«*U06I 


Compile-time 


Processor 


BC 


IEMaU07l 


Compile-time 


Processor 


BC 


IEMat|09I 


Compile-time 


Processor 


BC 


IEM4U12I 


Compile-time 


Processor 


BC 


IEMU415I 


Compile-time 


Processor 


BC 


IEMtm21I 


Compile-time 


Processor 


BC 


IEMtm33l 


Compile-time 


Processor 


BG 


IEM4U3 6I 


Compile-time 


Processor 


EG 


IEMUa39I 


Compile-time 


Processor 


BG 


IEMII4U8I 


Compile-time 


Processor 


BG 


IEM4451I 


Compile-rtime 


Processor 


BG 


IEMUU52I 


Compile-time 


Processor 


BG 


IEM41I54I 


Compile-time 


Processor 


BG 


IEM4457I 


Compile-time 


Processor 


BG 


IEM4ft60I 


Compile-time 


Processor 


BG 


IEMU463I 


Compile-time 


Processor 


BG 


IEMU469I 


Compile-time 


Processor 


BG 


IEM'»472I 


Compile-time 


Processor 


BG 


IEMaU73l 


Compile-time 


Processor 


BG 


IEMU475I 


Compile-time 


Processor 


BG 


IEM4«t78I 


Compile-time 


Processor 


BG 


IEM4481I 


Compile-time 


Processor 


BG 


IEM4484I 


Compile-time 


Processor 


BG 


IEMt»499I 


Compile-time 


Processor 


BG 


IEMt»502I 


Compile-time 


Processor 


BG 


IEMU50«»I 


Compile-time 


Processor 


BG 


IEM»t505I 


Compile-time 


Processor 


BG 


IEM4506I 


Compile-time 


Processor 


BG 


IEMU508I 


Compile-time 


Processor 


BG 


IEM4511I 


Compile-time 


Processor 


BC 


IEM451UI 


Compile-time 


Processor 


BG 


IEM1517I 


Compile-time 


Processor 


BG 


IEMU520I 


Compile-time 


Processor 


BG 


IEM«»523I 


Compile-time 


Processor 


BG 


IEMU526I 


Compile-time 


Processor 


AS 


IEM4529I 


Compile-time 


Processor 


BC,BG 


IEM4532I 


Compile-time 


Processor 


AS 
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IEM4535I Compile-time Processor AS 

IEMH547I Compile-time Processor AV 

IEMU550I Compile-time Processor BG 

IEMU553I Compile-time Processor BG 

IEM*^559I Compile-time Processor BG 

IEMU562I Compile-time Processor BG 



IEM4570I Compile-time Processor 83 

IEM4572I Compile-time Processor BG 

lEMlSTUI Compile-time Processor BG 

IEM4576I Compile-time Processor BG 

lEMUSTSI Compile-time Processor BG 

IEM1580I Compile-time Processor BG 
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APPENDIX J; COMPILE-TIME PROCESSOR 



This appendix describes, for the 
Compile-time Processor Logical Phase, the 
internal formats of text and tables, 
communication region use. Operating System 
interfaces and compiler control interfaces. 



1. INTERNAL FORMATS OF TEXT 



The internal format of text used by the 
compile-time processor is EBCDIC. As 
source input is read into storage, 
non-macro text is moved directly into text 
blocks after translation to internal 
format. Encoded compile-time statements 
and line numbers are also placed in text 
blocks. 



Format of a Dictionary Entry 



The compile-time processor uses a set of 
chained dictionary entries. Hashing 
techniques are used to add an item to the 
dictionary or to search for an entry. A 
compile-time processor dictionary item is a 
variable- length item with the following 
skeletal format: 

The fields defined in this skeleton have 
the following meaning and usage: 



was declared. Each procedure is 
assigned a unique number. The 
identifiers in the non-procedural 
text are given the procedure number 
1. The built-in function SUBSTR is 
given the procedure number 0. 

HASH-CHAIN-POINTER: The dictionary address 
of the next item on this hash 
chain. This address is zero if no 
item follows. 

TYPE: A byte which gives the attributes of 
the entry. The bits (if on) have 
been assigned the following 
meanings: 



[IT 


MEANING 





fixed 


1 


character 


2 


bit 


3 


entry 


U 


label 


5 


INCLUDE identifier 


6 


iterative DO 


7 


constant 



LENGTH: The length of the EBCDIC name, 
the item has no name (e.g., a 
constant) this field is zero. 



If 



PROC NO.: The number assigned to the 

procedure in which the identifier 



VALUE/VALUE- POINTER: If the item is fixed, 
this contains the value proper 
stored as a five-digit packed 
decimal niimber. Otherwise it 
contains a pointer to the value 
stored in IVBs. The definition of 
value for the various kinds of 
entries is given below. For a 
fixed macro variable, this contains 
the value. For a character 
variable, it contains a pointer to 
IVBs containing the value. For a 
procedure, it points to the 
text-block location of the code. 



Word 1 
word 2 
Word 3 
Word U 
Word 5 

Word n 



Byte 1 Byte 2 Byte 3 Byte *» 

r T r 1 

LENGTH 1 PROC NO. | HASH-CHAIN- POINTER 
^ + X 

TYPE I VALUE/VALUE-POINTER 

FLAGS I COUNT 
^ X \ 

POINTERS/PARM-TYPES 
EBCDIC NAME > 



•> EBCDIC NAME 



L 
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For a label, it points to the 
text- block location of the label. 
If references to the label are 
found before the label is 
discovered, the value pointer 
temporarily points to a chain of 
IVBs with a description of every 
GOTO transferring to this label. 
This information is processed and 
discarded when the label is found. 
For an INCLUDE identifier, it 
points to the beginning of the 
included text. 

FLAGS: This set of bits provides additional 
information about the use of the 
item. They are used as follows: 

BIT MEANIliG 

special entry bit 

1 DECLARE encountered (Phase 
BC) 

2 procedure body encountered 
(Phase BC) 

3 parameter 

i\ used to indicate a procedure 

called by Phase II scan. 

5 DECLARE encountered (Phase 
BG) 

6 unused 

7 ACTIVATE bit 

8 "in-use" bit 

9 "indirect reference* bit 

10 "vindefined* bit for multiple 
declarations 

11 left-hand side (LHS bit) 

This field occupies a half-word. 

COUNT: For a procedure entry, this field 
contains a count of the number of 
parameters for the procedure. For 
INCLUDE identifier it is zero 
initially, and subsequently 
contains the initial line number 
assigned to the included text. 

POINTERS/PARAM-TYPES : For a procedure, the 
field contains an encoding of the 
type information for each formal 
parameter. Two bits are reserved 
for each parameter. One indicates 
fixed; the other indicates 
character. If neither bit is set, 
this indicates that the entiry 
declaration did not specify 
attributes for the parameters. 

For a label, word U contains two 
pointers to dictionary items. One 
points to the dictionary entry for 
the imnediately embracing iterative 
DO. The second half-word contains 
a pointer to the dictionary entry 
for the immediately embracing 
INCLUDE. This provides a method of 
checking the legality of GOTOs. 



For an INCLUDE identifier, only the 
pointer to the immediately 
embracing INCLUDE is kept. 

During Phase I, word U is used for 
labels and simple variables to hold 
two pointers. These form a 
bi-directional chain of all labels 
and variables having the same 
procedure number which have been 
used but not defined. This 
information is used only in Phase I 
and can therefore be overlaid. 

EBCDIC NAME: A variable length field, 

containing the EBCDIC name of the 
item. If the item has no name, 
this field is not included. 



Format of an Identifier Value Block (IVB) 



To hold character and bit string values, 
scmie text blocks are organised into 
sub-blocks of 32 bytes each. Of these 32 
bytes, 27 are used to hold values or parts 
of values. The first byte is used to hold 
a copy of the last character in the 
preceding IVB. This copy is made to 
facilitate backup. The last four bytes 
consist of a condition code of one byte 
followed by a 3-byte chain pointer. A set 
of these sub- blocks, chained together, is 
used to hold a value. The condition byte 
is 27 for all except the last sub-block in 
a value, in this last condition code byte 
the first bit is set to 1 to indicate 
" en d-of- value." The remaining bits are a 
count of the significant bytes in the 
sub-block. There is a maximum of 27 
significant bytes in an IVB. 

The chain address is used to point to 
the next sub- block in a value. The meaning 
of the chain address in the last sub-block 
in a chain depends on how the chain is 
being used. 

These small chained sub-blocks are 
referred to as "identifier value blocks," 
or IVBs. 

Text blocks are allocated to hold IVBs 
as the need arises. Those IVBs not 
currently in use are chained together into 
an availability chain and are re-used when 
needed. 

An excunple of a character string value 
held in IVBs is shown. The character 
string, ^ich starts with AB and ends with 
CD, is 28 characters long. Two IVBs are 
thus required to hold the value. The 
string AB...C is put into the first IVB, 
while the last character, D, is put into 
another IVB. The condition code byte of 
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r r r-^ r t t 1 

i?AB ... C I I >|CD///// I 10000001 1 ? j 

t J. J— J L X X J 

< 28 > 1 3 < 28 > < 1 > <-3-> 



the first IVB is 27. The second condition 
code byte is 10000001. The first "1" 
indicates end-of-value, while 0000001 is a 
count of the significant characters in the 
IVB. 



Besides holding character-string values, 
IVBs are used in many places by the 
coropile-time processor to hold information 
which must be chained from a dictionary 
entry and which is of indefinite length. 
These uses are noted elsewhere. 



Instruction Codes for the Coropile-tiroe 
processor 



Compile-time statements are handled in two 
parts. During Phase BC, each statement is 
recognized and syntax checked. An encoded 
form of the statement is then placed into 
the current text block. During Phase EG 
these encoded statements are executed by an 
interpreter. 

all expressions are encoded in postfix 
Polish. A stack is used dtiring Phase II to 
hold all operands. Conversions are done in 
Phase 6G. 

Thus the expression (A+B)||c, for 
example, is turned into 

A B ♦ C| I 

To be more explicit, it is turned into the 
instructions 



PUSH 


A; 


PUSH 


B 


ADD; 




PUSH 


C; 


CONCAT 



The PUSH operator pushes its operand 
onto the phase II stack. This stack 
consists of 150 full words in scratch 
storage. The first byte of each call is a 
status byte; the last three bytes hold the 
value if the item is FIXED, a pointer if 
the item is CHARACTER or BIT, or an 
indirect reference to a dictionary entry if 
the indirect bit is on. 



The bits of the status byte have the 
following meaning if set to one: 

BIT MEANING 

FIXED 

1 CHARACTER 

2 BIT 

3 Indirect reference (i.e., points 
to a dictionary entry) 

U Character string value does not 
"belong" to the stack and should 
not be erased when stack is 
popped. (Shared with Phase EG 
scan. ) 

Bits 6-8 are unused by the interpreter. 
They are reserved for Phase BG scan. 

All instructions generated by the Phase 
EC code generators begin with an operation 
byte. Depending on the operation, it may 
be followed by zero or more bytes of 
information which are intrinsically part of 
the instruction. Each instruction may have 
either or both of the characteristics STACK 
and FIXED. The definition of these 
characteristics follows: 

1. STACK. These instructions consist 
only of the one-byte operator. They 
take their operands, if any, from the 
Phase II stack. These operators 
correspond in general to the PL/I 
arithmetic and string operators. 
Depending on whether they are unary or 
binary, they use the top one or two 
items on the stack. Before these 
operands are used, they are converted, 
if necessary, in place to the required 
type. After the items are used they 
are popped from the stack. The result 
of the operation is pushed onto the 
stack. 

The conversion, the popping, and the 
pushing are all implied for a stack 
operator. 

2. FIXED LENGTH. These operations are 
followed by a fixed number of bytes — 
usually two. These bytes, which 
tjsually refer to a dictionary entry, 
serve as the operand (s) of the 
instruction. 

The table below shows the operations 
that are to encode macro instructions. The 
operand description indicates only the 
general operand type for a variable- length 
item. The count byte is omitted. 
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j MNEMONIC! 



TYPE 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 
FIXED 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

FIXED 

FIXED 

FIXED 

FIXED 

STACK 
FIXED 

STACK 
FIXED 

FIXED 

FIXED 

FIXED 

FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 



OPERAND DESCRIPTION 



FUNCTION 
A+B 
A-B 
A*B 
A/B 
-B 
+B 
A=B (assignment) 

nB 

A&B 

A|B 

A||B 

A=B (equality) 

A>B 

A<B 

INCLUDE A 

ABORT processing 

Transfer to label 

Transfer to label 

Transfer to label 

if top of stack false. 

Invokes the procedure 

Transfer out of INCLUDE 

Push A onto stack 

Push address of A 
onto stack 

Put line count into LINCNT 

Enter interpreter 

Return to Phase II scan 

ACTIVATE A 

DEACTIVATE A 

DECLARE A 

No-ops the DECLARE, once 
executed 



ADD 

SUB 

MUX 

DIV 

UNMIN 

UNPLS 

ASSIGN^ 

NOT 

AND 

OR 

CONCAT 

EQUa 

GT^ 

LT^ 

INC 

ABORT 

TRA 

TRAC 

TRAF3 

INV» 

TRAI*» 

PUSH 

PUSHI 

UPDT 

ENTM 

RTNS 

ENB 

DSB 

DCL 

NOPD 



BINARY; OPERANDS, RESULT FIXED 
BINARY; OPERANDS, RESULT FIXED 
BINARY; OPERANDS, RESULT FIXED 
BINARY; OPERANDS, RESULT FIXED 
UNARY; OPERAND, RESULT FIXED 
UNARY; OPERAND, RESULT FIXED 
UNARY; B CONVERTED TO TYPE OF A 

ONARY; OPERAND, RESULT BIT 
BINARY; OPERANDS, RESULT BIT 
BINARY; OPERANDS, RESULT BIT 
BINARY; OPERANDS, RESULT CHAR 
BINARY; OPERANDS, RESULT VARY 
BINARY; OPERANDS, RESULT VARY 
BINARY; OPERT^DS, RESULT VARY 
Two-byte dictionary reference 
One- byte code 

Two-byte dictionary reference 
Two-byte dictionary reference 
Two- byte dictionary reference 

Two- byte dictionary reference and 
a one-byte argument count 

two two-byte dictionary references 

Two-byte dictionary reference 

Two- byte dictionairy reference 

Three- byte line count 

no operand 

no operand 

Two-byte dictionary references 

Two-byte dictionary references 

Dictionary reference 

Dictionary reference 



L. 
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« -T ^T T 1 

I MNEMONIC I TYPE | OPERAND DESCRIPTION | FUNCTION | 

CVT« I FIXED I Dictionary reference j Convert to RETURNS 

I I I attribute 

i I ) 

RETN"'' I FIXED | Dictionary reference {Return from procedure A 



^The ASSIGN operator does not push a result. The expression result is found on 
the PDS and is popped; the dictionary reference for the left hand side is the 
single argument. 

^Operand conversion for EQU, GT, and LT is as specified in IBM System/360 
Operating System; PL/I Language Specifications . 

^The TRAF uses and pops the top operand on the stack. It is treated as a bit 
string for conditional transfers. 

*This handles GOTOs out of included text. At this point CLNUP is performed. The 
arguments are (a) the dictionairy entry for the label to which control is to pass; 
and (b) the dictionary entry for the current INCLUDE. 

*The arguments for the invocation are contained on the stack. The dictionary 
reference is to the procedure entry. 

*This converts the top of the stack to the attributes specified in the RETURNS 
attribute for the procedure A. 

■'This terminates the invocation of procedure A and converts the value on the top 
of the stack to the attribute specified on the PROCEDURE statement. 
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2. COMMUNICATIONS REGION USE the compile-time processor. The region 

from ZCOMM to ZCOMM+U63 is also used by the 
compiler; however, during the compile-time 

The region from offset to offset 30tl processor phase, this region is used 

(ZCOMM) is used as a general communications exclusively by the compile-time processing. 

region throughout the compiler, including The details of this usage are shown below. 
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Name 


Dec. 
Offset 


Lenoth 


i Contents 





1. 


|. 


STATUS 


ZCOMM 


1 

1 1 


r ———————— — ____ — ________ — _______ — _______ 

1 Byte 1: Bit not used 

1 1 PROCSW — processing macro procedure 
1 Note: 2 FINDBIT — SRHDIC has found dictionary item 
1 Condition 3 ERSW — diagnostic produced in Phase II 
Settings 4 EFSW — end of file encountered (input) 
1 "1" = set 5 LEVBIT — processing IVB 
1 "0" = off 6 INCSW — processing included text 
1 7 PH2SW — in Phase II 


£>TA2 


ZCOMM+1 

1 


1 


1 Byte 2: Bit OLDINC — processing already listed INCLUDE 

1 SKPSW — indicates entry to END from PRCSCN 

2 NOPERCENTSW — look ahead for % completed 

3 SYSOPN ~ SYSLIB DCB is open 

4 MACRO — indicates current macro action 

5 PR2SW — indicates in macro procedure 

7 ARG — indicates that Phase II is looking for 
arguments of activated procedure 


SUBSTRDR 


ZCOMM+2 


2 


Holds dictionary reference of level SUBSTR entry 


TOKPTR 


ZCOMM+U 


U 


Address of character being scanned, text reference or 
absolute, right justified 


INCPTR 


ZCOMM+8 


U 


Save area for TOKPTR 


INBUF 


ZCOMM+1 2 


H 


Absolute address of input buffer, right justified 


OUTBUF 


ZCOMM* 16 


H 


Absolute address of output buffer, right justified 


PDSPTR 


ZCOMM+20 


4 


Absolute address to top of pushdown stack, right justified 


END3UF 


ZCOMM+2 4 ■ 


U 


Absolute address to last significant character in input 
buffer, right justified 


WHERE 


ZCOMM+28 


u 


Address of next available byte in output buffer, text 
reference or absolute, right justified 


IVBPTR 


ZCOMM+32 


u 


Text reference to next free IVB, right justified 


LINCNT 


ZCOMM+36 


u 


Holds current line number, right justified 


TEMPTR 


ZCOMM+40 


2 


Dictionary reference to top of "in-use* temporary stack 


DCENTY 


ZCOMM+42 


2 


Dictionary reference for chaining dictionary items 


CURING 


ZCOMM+44 ! 


2 


Dictionary reference to INCLUDE entry being processed 


CURDO 


ZC0MM+U6 


2 


Dictionary reference to DO entry being processed 


FROCNO 


ZC0MM+U8 


1 


Current procedure number, right justified 


NXTPC 


ZCOMM+49 


1 


Next available procedure number, right justified 


DPHCNT 


ZCOMM+50 


2 


Current depth count 


CODE 


ZCOMM+52 


1 


Code for token type 


LENGTH 


ZCOMM+54 1 


2 


Number of signifiant characters in TOKBUF, right justified 


MXDPTH 


ZCOMM+56 


2 1 


Integer value of depth of replacement, right justified 


INDEX 


ZCOMM+58 


2 


Hash table index for dictionary routines 
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Name 

lATTR 



I GRSAVE 

NEWIVB 
i VALUE 

PREINB 
I BUFSRT 

INIVB 
I OUTIVB 
I TXTBLK 
ilNVBAB 
I OUTIVBAB 

TXTBLKAB 
1 MTABC 
I TXTEST 
IBOFl 
iBUF2 

LIBDCB 
[USRDCB 
(MAXLCT 

PRCWHR 
I DCENTYAB 

SCHK 

PROCCL 
I OtJTERCL 

PROCCLDR 
I OUTRCLDR 
I DECIDR 
ICURPRC 
ITOKBUF 



Dec. 
Offset 
+ 

ZCOMM+60 

ZCOMM+64 

ZCOMM+68 

ZCOMM+72 

ZCOMM+76 

ZCOMM+80 

ZC0MM+8U 

ZCOMM+85 

ZCOMM+86 

ZCOMM+88 

ZCOMM+92 

ZCOMM+96 

ZCOMM+100 

ZCOMM+104 

ZCOMM+108 

ZCOMM+112 

ZCOfM+116 

ZCOMM+120 

ZCOMM+124 

ZCOMM+128 

ZCOMM*132 

ZCOMM-H36 

ZCOMM+140 

ZCOMM+l«l2 

ZC0MM+m4 

ZC0MM+1U6 

ZCOJffl4+148 

ZCOMM+152 

ZCOMM+164 



Length 



+ 



2 

H 
H 
U 
U 
1 
1 
1 

^ 

4 

H 
H 

n 

4 
U 
2 
2 
2 
2 
H 
4 
32 



Contents 



"Type" byte for dictionary routines 

Save area for GRG 

Pointer to IVB chain to be freed or obtained 

Type and value/value pointer for dictionary entries 

Pointer to header information for INBUF 

Pointer to left margin in INBUF 

Current busy block number 

Current busy block number 

Current busy block number 

Current block used in absolute address calculation 

Current block used in absolute address calculation 

Current block used in absolute address calculation 

Address of translate table for TOKSCN and FINDPC 

Length of text block adjusted for chain address 

Pointer to first INCLUDE buffer 

Pointer to second INCLUDE buffer 

Pointer to DCB for SYSLIB data set 

Pointer to DCB for user data sets 

Maximum line count used so far 

Pointer to next byte in which to put procedure text 

Absolute address of diction-^ry entry 

Pointer to level 1 SUBSTR entry 

Dictionary reference of procedure check list 

Dictionary reference of outer check list 

Dictionary referer ce for PROCCL cell 

Dictionary reference for OUTERCL cell 

Dictionary reference of dictionary entry for DECIMAL 1 

Pointer to current procedure entiry on PDS 

32-byte buffer, characters inserted left justified 



■H 






Appendix J: Compile-time Processor U81 



Name 



h 

j HA STB 



I CONSCH 

I 

I SPECCH 



Dec, 
Offset 



Length 



Contents 



■H 



ZCOMM+300 

ZCOMM+a28 
ZCOMM+U30 



128 

2 
2 



6U two-byte dictionary references to hash chains for named 
items 

Dictionary reference to constant chain 

Dictionary reference to special chain — debugging only 
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3. COMPILE-TIME PROCESSOR, OPERATING 
SYSTEM, AND COMPILER CONTROL INTERFACES 



Although the compile-time processor makes 
considerable use of the Operating System 
facilities, it usually does so indirectly 
through the compiler control. However, 
those Operating System services required to 
support the INCLUDE facility are invoked 
directly. Since included text is required 
to be a member of a partitioned data set, 
it is those data management facilities 
which support BPAM which are used. 
Specifically the macros OPEN, FIND, CLOSE, 
READ and CHECK are used by various parts of 
the INCLUDE handler. Details of these 
macros can be found in IBM SYStem/360 
Operating System, Supervisor and Data 
Management Services . 



The root phase is invoked by the 
compiler control if the MACRO option is 
specified. All subsequent communication 
between the compile-time phases and the 
compiler control is done by way of cells in 
the communications region. This includes 
the parameters passed to the F service 
routines, the decoded options which are 
tested, and the cells set to indicate the 
status of source margins and mode (EBCDIC) 
of the output. 

Specifically, the following cells in the 
communications regiop are either used or 
set: 

PARI 

PAR2 



ZTV 

ZMYNAM 

MCSIZE 

CCCODE 

TXTSZ 

ZSOR — column number in which to begin 
scan of input text 

ZMAG — column number in which to end 
scan of input text 

ZTRANl 

The following compiler control routines 
are referenced: 



ZUPL 


RELESE 


ZURD 


RLSCTL 


ZUGC 


ZTXTRF 


ZUTXTC 


ZTXTAB 


ZURC 


ZCHAIN 


ZABORT 


ZALTER 


ZLOADW 


ZDABRF 


ZDICRF 


ZEND 


ZUERR 


ZUBW 


ZDRFAB 





182 



APPENDIX K: TABLE HANDLING ROUTINES FOR K PHASES 



The purpose of these routines is to permit 
the user to build, scan and otherwise 
manipulate tables in text blocks without 
any concern for physical block boundaries, 
status of text blocks or maintaining 
pointers to first, last and current table 
entries. The routines also handle text, 
which is assumed to be a special type of 
table. 

The user may; 

1. Define a table by using the lEMKTCA 
macro to set up a TCA (task 
ccanmunication area) control block. 
The address of the TCA is always 
passed to a table handling routine and 
identifies the table concerned. Most 
TCAs will be held in the local 
communications region in phase KA. 

2. Add new entries to the end of a table. 
Table entries may be of fixed or 
varying lengths. For fixed length 
entries, the length is held in the TCA 
for the table. For varying length 
entries, the TCA contains information 
enabling the routine to determine the 
length of the entry. Fixed length 
entries may be built in storage and 
moved into the table by the routines, 
or space allocated for an entry by the 
routines and the entry built directly 
into the table. For varying length 
entries, the entry must be built in 
storage and moved into the table by 
the routines. 

3. Scan a table either forwards or 
backwards. The user requests the 
address and text reference of the 
•next' table entry. The user may 
position a scan to the start or end of 
a table, or to some intermediate 
point. 

4. Reference individual table entries at 
random. This may be done while a 
sequential scan of the table is being 
performed, and will not affect the 
scan. 

5. Specify that a table is to be deleted. 

6. Specify that entries are to be 'locked 
in*. This means that the absolute 
address of a table entry will remain 
valid until the ent,ry is explicitly or 
implicitly unlocked, or the table is 
deactivated. (see 7) . if an entry is 
not 'locked in', any subsequent call 
to the table handling routines may 



render the absolute address returned 
for the entry invalid. The current 
entry of a sequential scan, either 
creating or reading, is automatically 
'locked in' . 

A randomly referenced entry is only 
locked by an explicit lock request. 

A current scan entry may be unlocked 
explicitly by deactivating the table, 
or implicitly by making or requesting 
the next entry, or repositioning the 
scan. 

A random entry may be explicitly 
unlocked, or implicitly unlocked by 
another random reference to the same 
table specifying lock. 

All locks are released when a table is 
deactivated. The total number of 
locked entries for all tables must not 
exceed four at any one time. 

Activate or deactivate a table. All 
tables are initially deactivated. 
Tables are always activated 
implicitly, initially by a request to 
add an entry to the table, and 
subsequently by any valid request for 
an operation to be performed on that 
table. 

A table may be deactivated by an 
explicit request. Deactivation causes 
all locked entries to be unlocked, and 
renders all absolute addresses of 
entries in that table invalid. 
Sequential scans are not otherwise 
affected. 

A table is implicitly deactivated by a 
request to free the table (as in 5), 
or if the table contains no locked 
entries and any call is made to the 
table handling routines. 



DESCRIPTIOti AND FORMAT OF 
MACRO- I NSTRUCT IONS 



The IEMKTCA Macro 



This macro is used to set up a TCA (table 
control area) control block describing a 
table to be processed by the table handling 
routines. The macro has two functions: 
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1. Sets up global variables describing 
tables which are used by the lEMKTAB 
macro to generate appropriate linkages 
to the table handling routines. 

2. Used with the R operand to set up a 
TCA control block the address of which 
is passed to the table handling 
routines to identify the table. The 
•table identifier* is the same as the 
•table2 identifier' used in lEMKIAB 
macro instructions. It must also be 
the label of a fullword containing, at 
execution time, the address of the TCA 



set up by a lEMKTCA macro instruction 
with the R operand. 



Format: 



(F) 
table identifier lEMKTCA [,R,]ET=(V) 

(T) 
[,L=entry length] [ ,OPS=[S] (R] ] 



[,NPTRS=no of scan pointers.] 
t,DLF=displacement to length field] 



Description of Parameters 



I Parameter 
|. 



— +- 



Description 



ET=entry type 



T - text 



This parameter indicates the type of entry contained in the table, as 
follows: 



■H 



F - fixed length entries 
V - variable length entries 



L=entry length 



This parameter is required if ET=F is coded, and indicates the length 
of an entry. 



OPS= operations 



This parameter indicates the type of operations to be performed on the 
table, as follows: 

s - sequential scans will be performed 
R - random references will be made 



NPTRS=n 



This parameter permits more than one sequential scan of one table to be 
made at one time. *n* indicates the maximum number of sequential scans 
which will be in progress at any one time. An individual scan is 
identified by coding PTR=n in the SET, SETZ or SCAN operation (see 
lEMKTAB) macro). The default value is n=l if OPS=S or RS is coded, or 
OPS is omitted, otherwise n=0- If ET=T is coded, this parameter must 
be omitted and only one scan is permitted. 



DLF=disp. 
to length 
field 

R 



This indicates the displacement from the first byte of the entry to 
the two byte field containing the length of the entry. It must must be 
coded if ET=V is coded. 

This parameter is supplied only if actual code is to be generated from 
the macro instruction. It provides a label for the TCA which may be 
used in an A type address constant having the label identifier as its 
label. 
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Example of use; 

TABLEl DC A(ATABl) 

TABLEl DTCA ATAB1,ET=F, L= 8 , C)pR=S 

Note; the label on the IFMKTCA 

macro-instruction statement is not 
made the label of any generated 
statement, so no multiple definition 
will result. Its only use is to 
provide a link between the two macros 
lEMKTCA and lEMKTAB. 



The IEMKTAB Macro 



This macro specifies ofxirations fr) bf 
performed on a table or tables. The table 
to be operated on is always sf>ecified by 
supplying the address of its TCA. 



Format ; 



[label] IEMKTAB code, parameters 

Note; 'code* specifies the type of 

operation, and the parameters depend 
on this as shown below: 



r T 

I Code I 

|. + 

jELDC j Table Identifier, address of entry skeleton 

I I [,AATO=] [,SATO=] 

|. ^ 

JBLDT I Tai3le Identifier l,AATO=] [,SATO=] 
y ^ 



Parameters 



|DR 

h + 

I ULDR I 
^ + 



(N) 

i Table Identifier, SA=[,AATO=] [,OPT=(L)] 



^ 



(Table Identifier,...) or Table Identifier 
Table Identifier, SA=[,PTR=n] 



-H 



jSET I 
^ ^. 

I I 
ISETZ I 
^ 1. 



(F) 

Table Identifier [,OPT=(B)] [,PTR=n] 



(F) 

JSCAN i Table Identifier [,AATO=] t,SATO=] [,OPT=(B)] 
I I [,PTR=n] [,ETA=] [ , TRTAB= , PBTO=: ] [,PSATO=] 



k +- 

I FREE I 

I- +- 



(Table Identifier,...) or Table Identifier 
(Table Identifier,...) or Table Identifier 
Table Identifier, NTA= 



I DEACT I 

f +- 

I TEST j 
L i. 



Notes: 






The 'Table Identifier' operand must 
appear in the label field of a lEMKTCA 
macro-instruction physically preceding the 
IEMKTAB macro-instruction. The last three 
operands of the SCAN operation (TRTAB, 
FBTO, PSATO) only apply to text tables 
ET = T in lEMKTCA). 
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Description of Keyword Pareuneters 



Keyword 
Parameter 



AATO 



— + 



Description 



A register designation or address of a fullword in which the returned 
absolute address is to be placed. 



SATO 



Address of a three byte field in which the returned symbolic address is to 
be placed. 






SA 



Address of a three byte area containing a symbolic address. 



OPT 



Options applying to this operation. The option letters may appear in any 
order. 



PTR 



ETA 



+ 



TRTAB 
FBTO 

PSATO 



f 



Specifies the pointer which identifies the current record of the scan. 'n 
must not exceed the number specified in the NPTRS parameter of the lEMKTCA 
macro- instruction. C indicates the end of table pointer for creating new 
entries. 

Specifies the address of a routine to be given control when the end of a 
table is detected during a sequential scan. 



Address of translate table for selective scan. 

Location or register in which non-zero function byte from translate 
operation is to be placed. 

Address of a three byte area into which the symbolic address of the 
previous entry is to be placed. 



|NTA i Address of routine to receive control if table is null. | 

Note; A register designation (absolute expression in parentheses) identifying general 

registers 2-9 may be used in the AATO, SATO, SA, ETA, FBTO, PSATO and NTA operands. 



486 



Description of Table Handling Operat.ions 



I T" 

) Operation | 



Description 



■H 



BLDC 



Adds an entry to the end of a table. The entry is built in storage by the 
user and moved to the table by the table handling routines. The routines 
return the symbolic and absolute addresses of the new entry. 



^ 

The table handling routines allocate space for a new entry at the end of 
the specified table, and return the absolute and symbolic addresses of the 
space. The user builds his entry in the space allocated. This operation 
can only be specified if ET=F was coded in the lEMKTCA macro-instruction. 



BLDT 



DR 



— + 



ULDR 



SET 



^ 

Direct (random) reference. The entry is identified by the SA parameter. 
The absolute address of the entry is returned. If OPT=L is specified, the 
entry is locked in. 

The last directly referenced entry for this table that specified OPT=L, is 
unlocked. 

^ 



The sequential scan is positioned at the entiry identified by the SA 
parameter. The next SCAN operation causes the absolute address of this 
entry to be returned. PTR=n (see SETZ) . 



SETZ 



I 

SCAN 



^ 

The sequential scan is positioned to tbe beginning of the table if the OPT 
parameter is omitted or OPT=F is coded, or to the end of the table if 
OPT=B is coded. The next SCAN operation returns the absolute address of 
the first or last table entry to be returned. The PTR=n parameter 
indicates which sequential scan is meant if more than one is in progress 
at one time. 'n* may not exceed the number specified in the NPTRS 
pareimeter of the lEMKTCA macro- instruction. PTR=1 is assumed if the 
parameter is omitted. OPT=B may not be coded if ET«V or T is coded in the 
lEMKTCA macro- instruction for the table. 

The symbolic and absolute addresses of the next entry in the table are 
returned. If a SET or SETZ was the last operation, the next entry is that 
pointed to by the SET or SETZ operations. The options F or B indicate: 
F a forward scan is required. This is the default. 

B a backward scan is required. This may only be specified if ET=F is 
coded in the lEMKTCA macro-instruction. 
, J 



Selective Scanning Facilitiy 



This facility is available for text tables 
only (ET=T in lEMKTCA macro-instruction). 
The TRTAB operand identifies a 256 byte 
translate table which is used to translate 
the code byte of the entry. If the result 
is zero, the scan continues until the 
routine exits to the ETA address. If the 
result is non-zero, it is placed in the 
register or location identified by the FBTO 
operand, and control returns to the user, 
the AATO and SATO operands identifying the 
selected entry. 



i Code 
I- +- 



FREE 



I- — 

DEACT 



I- + 

TEST 






Description | 

^ 

One or more tables are completely] 
freed and deactivated. The next 
operation on the table must be a 

BLDC or BLDT. 

The table or tables are 

deactivated. All locked entries 

are unblocked and all absolute 

addresses of entries rendered 

invalid. 

4 

Tests for a null table. If table! 
is null, control is passed to 
routine identified by NTA 
pointer. 
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APPENDIX L: CONTROL ROUTINES 



Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector appear below. 



r T 

Hex. 
Offset 



8 

C 

10 

14 

18 

20 

2H 

28 

2C 

30 
34 

38 
HO 



48 
4C 



+- 



Name 

ZUPL 

ZURD 

ZUGC 

ZUTXTC 

ZURC 

ZABORT 

ZLOADW 

ZDICAB 

ZDICRF 

ZUERR 
ZDRFAB 

ZLOADX 
REQUEST 

RELESE 
RLSCTL 

ZDUMP 



Description 

Print a line 

Read a card 

Get Scratch storage 

Get text block 

Release scratch storage 

Diunp and go to error 
message routines 

Load and return to 
caller 

Make dictionary entry. 
Absolute address 
returned 

Make dictionary entry. 
Dictionary reference 
returned 

Make error message entry 

Convert dictionary 
reference to absolute 
address 

Load with overlay and 
return to caller 

Give a list of phase 
names required or not 
wanted for this 
compilation 

Release all named phases 

Release all named phases 
and pass to next phase 

Dump specified main 
storage and continue 



|Hex. 


. 


- 


1 Offset 


Name 



Description ( 


1 50 


___« « « J 


ZTXTRF 


1 

Converts absolute j 






address to text | 






reference | 


1 54 


ZTXTAB 


Convert text reference | 
to absolute address | 


1 58 


ZCHAIN 


Find next block in chain | 


1 5C 


ZALTER 


Change text block status) 


1 60 


ZDABRF 


Convert absolute address | 
to dictionary reference | 


1 64 


ZNALRF 


Make unaligned | 
dictionary entry. | 
Reference returned | 


1 68 


ZNALDB 


Make unaligned | 
dictionary entry. j 
Absolute address | 
returned j 


1 6C 


ZEND 


Terminate job j 


1 70 


ZULF 


Write on load file | 


1 74 


ZUSP 


Write on punch | 


1 78 


ZUBW 


Write on auxiliary | 
storage j 


1 80 


RLSCTLX 


Release all named phases) 
and hand control to the | 
next phase, after having! 
loaded it with overlay | 


1 84 


RECONS 


Reconstitute | 
instructions in lEMAL | 


1 88 


DYNAMIC 


Pass control to the | 
dynamic dump routines, j 
if required j 


1 8C 


lEMAL/ 


Address of second | 


L 


lEMAN 


control phase | 
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COMPILER CONTROL ROUTINES 



r T 

Name I Hex. 

Offset 

RELESE I 44 



REQEST 



+ 

40 



Details 

Description 

Deletes list of phases 

Parameters Passed 

PARI byte unused 

1-3 address of list of phases to be deleted. The list of 
phase names, each of two characters, is 
terminated fay the name ZZ 

Parameters Returned 



None 



■H 






Description 

Marks phases as • wanted' or *not wanted* 

Parameters Passed 
PARI byte unused 

1-3 address of list of phases to be marked as 'wanted* 

PAR2 byte unused 

1-3 address of list of phases to be marked as 
'not wanted' 

Parameters Returned 

None 

Notes 

A phase list containing only 'ZZ' is effectively a null list. 
During module AM phases of the compiler are all marked as either 
normally loaded or not loaded. A phase which is normally not loaded 
is only loaded if it has previously been marked as 'wanted'. A 
phase which is normally loaded will always be loaded unless it has 
previously been marked as 'not wanted' 
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Mane 



Hex. 
Offset 



Details 



Description 

Deletes a list of loaded phases and passes control to next phase 

Parameters Passed 

PARI byte unused 

1-3 address of list of phases to be deleted before next 
phase is loaded 

PAR2 byte unused 

1-3 (a) zero, if next phase is to be taken from compiler 
control phase directory 
(b) address of phase name to be loaded next 

Parameters Returned (to next phase) 

PARI byte unused 

1-3 address of new phase load point 

Notes 

List of phases given by the address in PARI is deleted. Then the 
next phase is selected and loaded and control is passed to a point 
two bytes from the load point of the new phase 

Description 



RLSCTL 



HB 






RLSCTLX 



80 



Releases all named phases and passes control to next phase. The 
next phase may be loaded more than once 

Parameters Passed 

PARI byte unxised 

1-3 address of list of phases to be deleted before next 
phase is loaded 

PAR2 byte unused 

1-3 (a) zero of next phase is to be tadcen from compiler 

control phase directory 

(b) address of phase to be loaded next 

Parameters Returned (to next phase) 

PARI byte unused 

1-3 address of load point of new phase 

Notes 

1. List of phases given by the address in PARI is deleted. The 
next phase is selected and loaded and control is passed to a point 
two bytes from the load point of the new phase 

2. The entry point RLSCTLX does not cause the compiler control 
routines to advance the pointer in the table of phases still to be 
loaded, and does not cause the phase to be marked as already loaded 
once 
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T T 

Hex. 
Offset 



-1 



Naipe 



ZABORT 



ZALTER 



-+ 



20 



5C 






Details 



Description 

Deletes currently loaded phases (after dumping if DP specified in 
parameter) and passes control to Error Editor 

Parameters Passed 

None 
Parameters Returned 

None 
Description 

Changes text block status 

Parameters Passed 

PARI byte unused 

1 text block number 
2-3 unused 

PAR2 bytes 0-2 unused 

3 status required 
bits 0-3 unused 
U X»U' 'busy* 

5 X'3* 'wanted* 

6 X'2' 'not wanted* 

7 x'l' 'free* 

Parameters Returned 

PAR2 is \analtered and may be used in successive calls without 
reloading 

Notes 

1. Terminology: 

•busy* - lock into storage i.e., address preserved 
•Wanted' - information required, do not spill unless necessary 
•Not wanted' - information required, block may be spilt 
•Free* - information no longer required 



■H 
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Name 



Hex. 
Offset 



Oetails 



ZCHAIN 



58 



ZDABRF 



60 



Description 

Finds next text block in chain 

Parameters Passed 

PARI byte unused 

1 current block number 
2-3 unused 

PAR2 bytes 0-2 unused 

3 status required for old block 

Parameters Returned 

PARI byte unused 

1-3 text reference of start of new block 

PAR2 byte unused 

1-3 absolute address of start of new block 

Note 

The new text block is marked as busy 
Description 

Converts absolute address to dictionary reference 

Parameters Passed 

PARI bytes 0-1 unused 

2-3 any reference in the same dictionary block 

PAR 2 byte unused 

1-3 absolute address to be converted 

Parameters Returned 

PARI bytes 0-1 unused 

2-3 dictionary reference corresponding to absolute 
address 

I^otes 

1. No check is made that this address is the start of a dictionary 
entry, or that it is any other specific point 

2. No check is made that the address is in the same block as the 
dictionary reference passed. If this is the case, that is, the 
parameters passed are in error, the dictionary reference returned 
may not correspond to the address 
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Name 



Hex. 
Offset 



Details 



ZDICAB 



28 



ZDICRF 



+ 

2C 



Description 

Kakes aligned dictionary entry and returns absolute address 

parameters Passed 

PARI byte unused 

1-3 address of entry (as built by calling phase) 

PAR2 bytes 0-1 unused 

2-3 length of entry (binary) 

Parameters Retxarned 

PARI byte unused 

1-3 dictionary entry address 

PARt* bytes 0-1 unused 

2-3 reference to some point in the same dictionary block 

Notes 

1. The entry built is constructed complete with code byte and 
length fields. The length passed in PAR2 is the length of the 
complete entry 

2. ZDICRF performs the same function and returns more information, 
with no loss in efficiency 



Description 

Makes an aligned dictionary entry and returns its dictionary 
reference and absolute address 

Parameters Passed 

PARI byte unused 

1-3 address of entry 

PAR2 oytes 0-1 unused 

2-3 length of entry (binairy) 

Parameters Returned 

PARI bytes 0-1 unused 

2-3 dictionary reference of entry 

PAR4 byte unused 

1-3 dictionary entry address 

N otes 

See ZDICAB 
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name jiiex. \ Details 
1 Offset! 
— + — X _ _ « _ 


ZDRFAB 1 34 1 Description 

1 1 Parameters Passed 

1 1 PARI bytes 0-1 unused 

1 1 Parameters Returned 

I 1 PARI byte unused 

II 1-3 absolute addresa 


IT "* — — — 

ZDOKP 1 4C 1 Description 

i 1 Dumps specified storage and continues 

1 1 Parameters Passtid 

1 1 PARI byte X'OO' 
1 1 1-3 unused 

1 1 PAR3 bytes 0-3 either (a) zero 

1 1 or (b) address of a page heading to be printed 

1 1 Param.eters Returned 

1 1 None 

1 1 Notes 

1 1 1. The areas to be dumped, and the editing to be done on them, is 
1 1 given in the DUMP parameter to the compilation 

1 1 2. The dump is only produced if the two character name in ZMYNAM 

1 1 3. The message "PHASE zz COMPLETED" is printed if 'P* is included 
1 1 in the DUMi' parameter even thougth control is returned to the point 
1 1 of invocation in the phase 

I 1 U. ThG regii^ters printed by the dump routine are not necessarily as 
1 1 when control was passed from the callina phase 
+ + 1 

Z£ND 1 60 1 Description 

1 1 Terminates compilation immediately 

1 1 Parameters Passed 

1 1 Hone 

1 1 Parameters Returned 

1 1 None 
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iSaire |hex. | Details 
I Offset I 
+ + 

ZLOADN I 2U I Description 

I I Loads phase and returns control to calling phase 

I I Parameters Passed 

i I PARI byte unused 

II 1-3 address of name of phase to be loaded 

I I Parameters Retiarned 

j j PARI byte unused 

II 1-3 address of phase load point 

I I Notes 

I i 1. Control is returned to calling phase, not to phase just loaded 

I I 2. The entry point ZLOADW causes the phase loaded to be marked as 
I I such, and therefore cannot be loaded again (see ZLOADX) 
+ + 

ZLOADX I 38 I D eacription 

I I Loads phase and control is returned to calling phase 
I j Parameters Passed 

I I PARI byte unused 

II 1-3 address of name of phase to be loaded 

I I Parameters Returned 

j I PARI byte unused 

I j 1-3 address of phase load point 

I I Notes 

I I 1. Control is returned to calling phase, not to phase loaded 

I I 2. The phase loaded may be loaded again, since it is not marked as 
loaded by this entry point (see ZLOADW) 
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Waire 



flex. 
Offset 



Details 



ZNALAB 



68 



Description 

Makes unaligned dictionary entry and returns absolute address 

Parameters Passed 

PARI byte unused 

1-3 address of entry 

PAR2 bytes 0-1 unused 

2-3 length of entry (binary) 

Parameters Returned 

PARI byte unused 

1-3 dictionary entry address 

PARU bytes 0-1 unused 

2-3 reference to some point in the same dictionary block 

Notes 

1. The entry is constructed exactly as it will appear in the 
dictionary, complete with code byte and length field 

2. SNALRF performs the same function and returns more information, 
with no loss in efficiency 



ZNALRF 



et\ 



Description 

Makes unaligned dictionary entry and returns its dictionary 
reference and absolute address 

Parameters Passed 

PARI byte unused 

1-3 address of entry 

PAR2 bytes 0-1 unused 

2-3 length of entry (binary) 

Parameters Returned 

PARI bytes 0-1 unused 

2-3 dictionary reference of entry 

PARU bytes unused 

1-3 dictionary entry address 

Notes 

1. See ZNALAB 
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Name 



Hex. 
Offset 



Details 



ZTXTAB 



5H 



Description 

Converts text reference to absolute address 

Parameters Passed 

PARI byte X'80' if status of block to remain unchanged 
not X'80' - text block set to busy 
1-3 text reference to be converted 

Parameters Returned 

PARI byte unused 

1-3 absolute address corresponding to text reference 



ZTXTRF 



50 



ZUBW 



+— 



78 



Description 

Converts absolute address to text reference 

Parameters Passed 

PARI byte unused 

1 block nximber of text block containing absolute address 
2-3 unused 

PAR2 byte unused 

1-3 address to be converted 

Parameters Returned 

PARI byte unused 

1-3 text reference corresponding to absolute address 

Notes 

1. This routine is of use in only a few cases since it requires to 
be passed the block number containing the absolute address, and only 
returns the offset from the start of the block. This offset can be 
calculated, if the text block is scanned sequentially, by 
subtracting the address of the start of the block 



Description 

Writes on backing storage 

Parameters Passed 

PARI byte unused 

1-3 address of output record 

PAR2 bytes 0-1 unused 

2-3 length of record (binary) 

Parameters Returned 



None 
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ZUERR I 30 I Description 

Inserts diagnostic messages in dictionary 

Parameters Passed 

PARS bytes 0-1 unused 

2-3 numeric parameter, if any (halfword binary) 

PAR6 byte unused 

1-2 message number (hexadecimal) 
3 bit on if text to be inserted 

1 on if statement number to be inserted 

2 on if numeric parameter to be inserted 

3 on if dictionary reference to be inserted 
*4-7 severity code of message 

X • • Termination 
X*4' severe 
X'8» Error 
X'C Warning 

PAR? either: 

byte unused 

1-3 address of text to be inserted 
or: byte 0-1 unused 

2-3 dictionary reference to be inserted 

PARS bytes 0-1 unused 

2-3 length of text to be inserted 

Parameters Returned 

None 

Notes 

1. When the message is printed the numeric parameter is converted 
to decimal and inserted into the message. PARS is unused if bit 2 
of byte 3 in PAR6 is off 

2. If bit 1 is on, the statement number is taken from the ZSTAT 
slot in the commxinications region at the time ZUERR is called 

3. Bits and 3 are mutually exclusive and if both are on in a call 
to ZUERR, the routine aborts 

U. If bit 3 is on, the dictionary reference from PAR? is inserted 
into the message dictionary entry. The error message phases pick up 
the BCD from the dictionary entry, indicated by the reference, and 
insert it into the message 

S. If bit is on, text is picked up from the address given in 
PAR?. This text is in compiler internal representation. The length 
of the text is taken from PARS. The maximum length of text inserted 
into a message is 10 characters. If the length given is greater 
than 10 the text is truncated to 10 characters. If the text has 
been truncated it is enclosed in quotes in the message 
J 
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iJarrp 



tiex. 
Offset 



Oetails 



ZUGC 



'ILF 



10 



Description 

Gets scratch storage 
Parameters Passed 

PARI bytes 0-3 count of 512 byte blocks of storaqe requir<^'i 

Parameters Returned 

PARI byte unused 

1-3 address of allocated scratch storage 

PAR2 bytes 0-1 unused 

2-3 bytes of storage allocated 



70 I Description 

Writes record to object module file (SYSLIN) 

Parameters Passed 

PARI byte unxised 

1-3 address of 72 byte area containing record to be 
written 

Parameters Returned 

None 

Notes 

1. If an uncorrectable I/O error occurs on this data set the option 
LOAD is switched off, a message is produced, and the coKipilation 
continues without producing an object module 

2. The last 8 bytes of the record will contain: 
bytes 73-76 name of object module, taken from ZPP.MA"". iii the 

communications region. This is set from the firr^t 
four characters of the first entry label of the 
external procedure 
77-80 sequence number 
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Name 



T T 

Hex. 
Offset 



Details 



ZUPL 



08 



Uescription 

Puts record out to SYSPRINT Data Set 

Parameters Passed 

PARI byte unused 

1-3 address of area defining print line 

PAR3 bytes 0-3 zero if no secondary heading to be printed 

or address of area defining secondary heading line 

Parameters Returned 

None 

Motes 

1. Paging action is performed automatically 

2. Format of area containing print line is: 
byte x'OO' 

1 total length of area (binary) 

2 ASA control character 

3 line to be printed-EBCDIC, variable length, maximum 132 
characters 



ZURC 



18 



Description 

Releases scratch storage got by ZUGC 
Parameters Passed 

PARI bytes 0-3 count of entries to ZUGC to be released (binary) 
Parameters Ret\irned 

None 

Note 

The routine frees all the storage that was allocated by the last n 
calls to ZUGC, where n is given by PARI 



ZURD 



OC 



D eijcripti vjn 

Heads record from SYSIN 

Parameters Passed 

PARI byte unused 

1-3 address of area into which record is to be placed 

Parameters Returned 

PAR 2 bytes 0-1 unused 

2-3 length of record returned (binary) 
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Name 



ZUTXTC 



ZUSP 



Hex. 
Offset 

71 



Details 

+ \ 

Description 

Puts record out to SYSPUNCH 

Parameters Passed 

PARI byte unused 

1-3 address of 72 byte area containing record to be 
written 

Parameters Returned 

None 

Notes 



1. The relevant option is PUNCH. See ZULF for other notes 

14 I Description 

Gets new text block and optionally chains it to a current block 

Parameters Passed 

PARI byte unused 

1-3 text reference to a c\irrent block if new one is 
to be chained 

PAR2 bytes 0-2 unused 

3 x*00' no chaining 

or X*8n* chaining where n is status required for 
current block 

Parameters Returned 

PARI byte unused 

1-3 text reference to new block 

PAR2 byte unused 

1-3 absolute address of start of new block 

Notes 

1. The new block is set to a status of •bxisy' 

2. See ZALTER for definition of status of blocks 
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Indexes to program logic manuals are consolidated in the publication IBM System/ 360 
Operating Svstero; Prograun Logic Manual Master Index , Form Y28-6717. For additional 
information about any subject listed below, refer to other publications listed for the 
same subject in the Master Index. 



abbreviations used during 

compilation U39-4U8 

abnormal termination 23 

absolute addresses, conversion 15 

absolute code, instruction formats '*33-'»34 

accumulator register 64 

additions to text UO 

adjustable bounds 3H 

ADV (see array dope vector) 

aggregate length table 65 

aggregates logical phase U6 

aggregates, RDV for CONTROLLED or BASED 57 

aliasing, of variables 47 

alignment, by structure processor 46 

ALLOCATE chain 29 

annotated dictionary dump 25 

annotated text dump 25 

AREA 25 

argument markexrs 52 

arithmetic registers 51 

array bounds 32 

array dope vector (ADV) 39 

array multipliers, calculated in structure 

processor 46 
arrays 

of string dope vectors 46 

of strings, calculations %d.th VARYING 
attribute 46 
assigned registers 67 
ASSIGNMENT triples 59 
ATR option 39 
attribute collection area 35 

scanned for SETS 37 
attribute list, scanned 34 
attributes 

consistency 29 

consistency analyzed 31 

dictionary entries 28 

inconsistent 34 

invalid 34 

syntax checking in read- in phase 31 

test for consistency 32 

when printed 40 
AUTOMATIC chain 38 

housekeeping 39 

in structure processor 46 

scan in pseudo-code phase 51 

VDA 63 
auxiliary storage 17 

spilling 15 



base registers 67 

based variable expression (BVEXP) 

BASED variables, RDV 57 

batch compilation 26 

BCD, translation 26 

BEGIN statements, count 29 

BLDL 26 



39 



BLDL macro 23 

phase directory constimction 3 86 
block control 21 
block control area 22 
block header chains 33 
block nesting levels 30 
block size 

determination of 15 

dictionary 15 

selection 22 

SIZE option 22 

text 15 
bound slot 39 
boundary alignment, by structure 

processor 46 
build list 23 

phase directory ccmstruction 3 86 
built-in function handler 28 
built-in functions 

EMPTY 42 

generic 33 

n<wi- gen eric 33 

NULL 42 

NULLO 42 

scan for 54 

TRANSLATE 52,277 

VERIFY 53, 277 
BUY ASSIGN) Statements, scan in pseudo-code 

phase 59 
BUY statement 42 

scan in pseudo-code phase 59 
BUY triples, in pseudo-code phase 55 
BVEXP (see bcised variable expression) 
BXH instruction, used to generate 

pseudo-code 47 
BXLE instruction, used to generate 

pseudo-code 47 
BY NAME option, in pretranslator phase 40 



CALL chain 29 
calling program 21 
cards, control 26.1,86 
catalogued procedures 15 
CCCODE 26 
chains 26 

ALLOCATE 29 
AUTOMATIC 38-39 
hous ekeeping 3 9 
in structure processor 46 
scan in pseudo-code phase 51 
VDA region 63 
block header 33 
CALL 29 
circular 33 

COBOL., in preprocessor 46 
constants 38,60-61 
constructed by read-in 29 
CONTROLLED 39 
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in structure processor H6 

DECLARE statements 29,35 

DEFINED scan a? 

error 69 

hash 33 

picture 31 

validity check 38 

PROCEDURE- ENTRY BEGIN 29 

STATIC 39,61 

in structure processor 46 
scan of external section 68 

SUBS TABLE 49 

symbol variables 62 

type 1 entry 68 
chamelon dummy argument 45 
chamelon temporaries 41-42 
character translation 21 
CHAR48 option 24 
check, syntax 26.1,161 
CHECK lists, formal parameters 38 
circular chains 

extended 34 

initialized 33 
cleanup phase 27 

CLOSE statements, parameter list 57 
closing routine 26 
CNVC macro 6 
COBOL chain, mapped in preprocessor 

phase 4 6 
COBOL option,, in ENVIRONMENT string 41 
code byte 

for TASK option 41 

GOOB 37 

GOTO 37 

statement introduction 37 

text string 17 
code 

for prologues and epilogues 460-465 

library call 46 

compiler completion 23 

dictionary 26 
comments, removed from input text 29 
common data space 48 
commoning of subscripts 48-49 
communication between ^ases 17,21 
communication with control program 15 
communications region 

contents 17 

Control Code word 17 

dictionary block 17 

initialization 21 

of dictionary 17 

options 17 

tables 451-457 

use 21 

ZPRNAM 67 
ccnnpare action 44 
compare weight 44 
compilation 

as a job step 15 

bypassed 28 

termination 70 
compile-time processor 15 

communications region 479-482 

constants 30 

control interfaces 482 

identifiers 30 

internal formats of text 474-478 



logical phase 27 

operators 3 

output string 30 

SOURCE option 23 
compiler control 21-26.1 
compiler control modules 21,24-26.1 
compiler control phases, tables 75-86 
compiler control routines 15 
compiler functions, scan in pseudo-code 

phase 59 
compiler logic^ guide to 71 
ccmipiler organization and control 

diagram 20 
compiler read routine 28 
compiler 

as part of operating system 15 

completion code 23 

functions 32 

initialization 21 

invocation by calling program 21 

output data sets 15 

phases 15 

pseudo variables 32 

purpose 15 

storage requirements 15 
completion code 23 

concatenation, in 48 character set 27 
consistency of attributes 29 
consistency of options 29 
constant chain 60-61 
constants pool 60 
constants 

chain 38 

contextual use 31 

conversion to binary 37 

count 37 

dictionary entries 28 

in compile-time processor string 30 

marker 37 
contextual 

constants 31 

identifiers 31 

pictures 31 
control 

diagram 20 

of dictionary block 21 

of text block 21 
control caxrds 26.1,86 
control blocks 

DECLARE 41 

OPEN 41 
Control code word 17,26 
control module 21,24 
control of workspace 15 
control program 15 
control routines 28 

con^iler 15 

debugging 15 

diagnostic messages 23 

entry 21 

initialization 15 

input/output 15 

input/output 23 

program interruptions 15 

storage allocation 15 

storage dumping 15 

table Of 488-501 

ZUBW 27 
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ZURD 27 
control tables 86 

control variables in pseudo-code phase 52 
CONTROLLED chain 

scan 39 

in structure proc^sor '»6 
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CONTROLLED variables, RDV 57 

CONV macro 60 

CONV pseudo-code macro 59 

conversion 

absolute addresses 15 

constants to internal form 60 

input characters 28 

symbolic references 15 

of built-in functions 42 

of character codes 30 

of constants 37 

of precision data 3U 

of replication factors 52 

to EBCDIC 28 

to internal code 28 

to triples 14 

48 to 60 character symbols 26.1 
CONVERT pseudo-code macro 60 
correction of syntactical errors 29 
correspondence defining 47 
count stack 37 
count, of constants 37 



Data Element Descriptor (DED) 37 

for symbol variables 62 
data flow diagram 16 
data sets 

compiler output 15 

data flow diagram 16 

INCLUDE 27 

input/output 15 

input/output usage table 24 

interface with compiler phases 23 

opening 21 

SYSIN 15 

SYSLIN 15 

SYSPRINT 15 

SYSPUNCH 15 

SYSUTl 15 

SYSOT3 15 

TRACEOUT 26 
DD Statement 15 
debugging 

control routines 15 

features 26 
DECLARE chain 29 
DECLARE control block 41 
DED (see Data Element Descriptor) 
default rules, in dictionary entries 34 
DEFINED chain check 46 
DEFINED chain, scan 47 
DEFINED data 39 

DEFINED items, in aggregates phase 47 
defined references 39 
defined slot 36,39 
defining 

dynamic 39 

static 39 

validity of 39 
detection of syntactical errors 29 
diagnostic message chain 30 
diagnostic messages 15 

allocation to phases 466-473 

parameters in dictionary chain 30 
diagnostics 

for invalid characters 28 

syntax errors 28 



dictionary 

accessing 31 
annotated dump 25 
areas 31 
BCD entries 26 
codes 26 

communications region 17 
constant chain 60 
constructing 31 
default rules 34 
diagnostic message chain 30 
diagnostic messages 23 
dump 2 6 

embryo entry 29 
extended 26 
hash table 31 
identifiers 31 
normal extended 21 
normal size 26 
organization 17 
resident table 384 
search 31 
dictionary block 

as communications region 17 
control 21 
release 28 
size 15 

space allocation 21 
dictionary entries 
attributes 28 
AUTOMATIC chain 38 
code bytes 387 
constants 28 
copy made 36 
data byte 38 
defined data 39 
definition of types 32 
diagram for internal entry point 33 
dimension table 412 
dope vector descriptor 47 
dummy reference 35 
entry points 32 
expanded 39 
for file conditions 38 
for file constants 41 
for ON conditions 37 
for STATIC DSAs 61 
format 17 
formats 

AUTOMATIC Chain delimiter 409 

BCD entries 407 

built-in-functions 406-407 

CHECK list 408 

code bytes 397-400 

compiler labels 404 

constants 405-406 

data items 395-396 

DED 410 

0ED2 410 

dope vector skeletons 4 09 

dope vectors for temporaries 410-411 

DVD 411 

ENTRY code byte 393-394 

entry points 389-393 

entry type 1 389-391 

eratry type 2 391 

entry type 3 391-392 

entry type 4 392-393 
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entry type 5 393 
error message U 11-1 12 
EVENT data 406 

FED (Forinat Element Descriptor) *H0 
files 405 

formal parameters 404 
GENERIC entry 393 
internal library functions 407 
label BCD entries 410 
label constants 404 
label variables 394-395 
ON condition 408 
ON statements 407-408 
optimization code byte 394 
options code byte 394 
parameter descriptions 407 
parameter lists 409 
pictures 408-409 
RDV 411 

second code byte 407 
SETS list 392 
STATIC DSA 411 
structure entries 396 
symbol table entries 409 
task identifiers 406 
variable information 400-401 
wprkspace requirements 409 
GENERIC 42 

INITIAL value list 413 
INITIAL values 412-413 
internal formats 387-413 
iterative DO- loops 28 
labels 30 
LIKE refererace 36 
optimization 34 
options code byte 34 
picture table 34 
pictures 38-39 
RDV and DVD 62 
record dope vector 47 
REVERT statements 38 
SIGNAL statements 38 
skeleton dope vector 61 
statement labels 29 
symbol table 62 
dictionary logical phase 31 
dimensions, inherited 38 
DISPLAY statements, parameter list 56 
DO group stack 52 
DO MAP 

chain 48 
table 48 
DO statements, count 29 
DO-loop control optimization 50 
dope vector descriptor, dictionary 
entry 47,62 

•dope vector required* bit 39 
dope vector, virtual origin slot 46 
DROP item in pseudo code 51 
DSA (see Dynamic Storage Area) 
DSLOTS 22 
DTSP 25 
DTSPC 25 
dummy arguments 
chamelons 45 
when created 45 
dummy dictionary reference 35 
dunany reference, in second file 38 



dummy references, in text 37 

DUMP option, effect on SIZE option 25 

dump 

of dictionary 26 

on SYSPRINT 25 
DUMP 

option 25 

parameter 2 5 
dumping, inter- phase 25 
DVD (see dope vector descriptor) 62 
dynamic defining 39 
dynamic dump 25 
Dynaodc storage Area (DSA) 51 

optimization 64,464-465 

tasking information 63 



EMPTY built-in function 42 
END card 69 
END statements 

count 29 

inserted 29 
end-of-file indication 29 
end- of -program indication 29 

count 30 
end- of -program marker, in pseudo-code 

phase 54 
entry labels, in source text 29 
entry point, formal parameter 36 
entry points, dictionary entries 32 
entry type 1 68 

ENVIRONMENT option, for file constants 41 
ENVIRONMENT String, with COBOL option 41 
environmental options, use of 15 
EOB (end of block) 
EOB operator 44 

epilogue code, examples 460-465 
erroneous references, replaced in text 37 
error chains 69 
ERROR condition 29 
error dictionary entries 69 
Error Editor 30 
error editor logical phase 69 
error message text 70 
error messages 

classification 23 

order of severity 28 

phase directory 23 

text 28 
errors and diagnostic messages 29 
errors, detected in read-in phase 31 
ESD (see External Symbol Dictionary) 
EXCLUSIVE second level narker 41 
EXEC STATEMENT 15 
explicitly generated statements, in 

pretranslator phase 40 
expression, definition 42 
expressions 

array bounds 32 

initial value iteration factors 32 

string lengths 32 

structure 43 
extended dictionary 21,26 
external library routines 439 
External Symbol Dictionary 

ESD cards 67 

in data flow diagram 16 
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factored attribute table 3** 

factored attributes 3U 

file conditions, dictionary entries 38 

final assembly logical phase 67 

First Level Directory, format 385 

flow trace, not carried out by compiler 67 

FLOW/TRACE facilities 26.1 

flow/trace markers 86,86.1 

flowcharts (see also Phases and Modules) 

organization 71 

overall compiler logic 72-73 

resident control phase 7U 
formal parameter list 39 
formal parameters, in CHECK or NOCHECK 

lists 38 
formats of dictionary entries 387-413 
freed registers 67 
FREEDSA 55 
function calls U2 
function references Ul 
functions 32 



generic built-in functions 33 
GENERIC entry label U2 
generic phase U3 
GET statements, library call 
GLOBAL region boundary U9 
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half word binary items 65 

hash chain, used to scan dictionary 37 

hash chains 33 

hash table 33 

address 31 

deleted 32 

in dictionary 31 
housekeeping 38 



identifiers 

contextual use 31 

implicit definition 31 

in compile-time processor output 
string 30 

in dictionary logical phase 31 

in multiple declarations 35 

when rejected 35 
IDV (see Initial Dope Vector) 
lEMAA 21 

lEMAF control section 4 58 
lEMKTAB macro 485 
lEMKTCA macro 483-484 
IF statements, count 29 
IHELSP 56 
IHEMAIN 69 
IHEQERR 68 
IHEQTIC 68 
IHESADA 68 
IHESADB 68 
IHESTGA 54 
IHESTGB 54 

in-line pseudo code 52-53 
INCLUDE data set 27 
inherited dimensions 38 

INITIAL attribute, second file entries 36 
Initial Dope Vector, scan for 
statements 51 



initial labels 

in pseudo-assignment statements 30 

subscripted label variables 30 
initialization 

of compiler 21 

of control routines 15 
input, original 27 
input text 17 

end-of-file indication 29 
input/output 

control routines 15 

control routines 2 3 

data set usage table 24 

data sets 15 

library call for RECORD I/O 56 
insertion file 66-67 
insignificant blanks, removed fron input 

text 29 
inter-phase dumping 25 
interface 

with data sets 23 

with operating system 15 
intermediate file 24 
internal code 29 

in text string 17 
internal entry point, diagram 33 
internal formats of dictionary 

entries 387-413 
Internal Formats of Text 414-448 
internal library routines 438-439 
interruptions, control routines 15 
invalid attributes, check for 34 
invalid characters 

diagnostics 28 

replaced by blanks 27 

used as markers 28 
invalid pictxares 38 
invariance of subscripts 48-49 
IRREDUCIBLE 36 
iSUB references 40 
iSUBS 43 

ITDO region boundary 49 
iteration factors, initial value 32 
iterative DO-loops, dictionary entries 28 



Job Control Language 15 

JOB statement 15 

job step 15 

job termination 23 



K phases, table handling routines 48 3-487 
KEYID routine 384 
KEYWD routine 384 
Keyword tables 

construction 384 

in read-in logical phase 30 



label table 29 

labels, inserted in dictionary 30 

level stack 37 

library call sequences 

for not in-line CHAR and BIT string 59 

for stroage triples 59 
library call 

data transmission 58 
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GET and PUT statements 58 

initialization 58 

RECORD-oriented I/O 56 

termination 58 
library calling sequences 438 
library conversion routines 68 
library error package 66 
library routines 

external 439 

FREEDSA 55 

IHELSP 56 

IHEQERR 68 

IHEQTIC 68 

IHESM)A 68 

IHESADB 68 

IHESTGA 54 

IHESTGB 54 

internal 438-439 
library work store (LWS) 63 
Library, call code 46 
LIKE attribute 36 
LIKE chain 36 
line numbering 27 
Link Library 15 
Linkage Editor 15 
Linkage Loader 15 
lists 

SUBS/REGION 48 

USE 48 
load-ahead technique 35 
loader text, TXT cards 68 
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Map, Phase-in-Storage 383 
marker byte function references 41 
markers (see also second level markers) 41 

argument 52 
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end-of-program 54 
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procedure calls 42 

pseudo-variable 54 

•unsafe* 48 
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wanted or not wanted 44 
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message directory block 28 
messages (see also diagnostic messages, 
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control routines 23 

diagnostic 15 

dictionary chain 23 
misaligned argument 65 
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mixed overlay defining 47 
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compiler control 24-26.1 
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MTF (multiplier function) 
MTF statement 39 
multiple assignment markers 
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multiple declarations 35 
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time 68 
nesting, patch code 4 8 
NOCHECK lists, formal parameters 38 
•not sold* temporaries 42 
null arguments, in parameter lists 57-58 
NULL built-in function 42 
NULLO built-in function 42 
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OFFSET slots 403-404 
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processor 46 
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OPEN control block 41 
OPEN statements, parameter list 57 
opening of data sets 21 
operators, in compile-time processor output 

string 3 
optimization byte 34 
optimization logical phase 47 
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optimization 
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subscripts 48-49 
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options code byte 34 
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options 

ATR 39 

BY NAME 40 
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consistency 29 
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control section 25 
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instructions to compiler 15 

interpretation of 15 

MACRO 27 

scanned 34 

source program 15 

status byte 15 
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TRACE/PATCH 26 

XREF 3 9 
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deleted 39 
phase deleting 23 
phase directory 384 

construction 23 

error messages 23 

format 386 

status byte 15 
phase loading 23 
phase marking 23 
Phase- in- storage Map 38 3 
phase« wanted/not wanted 23,35,44 
Phases and Modules - Guide 379-382 
Phases and Modules - Descriptions, 
Flowcharts, and subroutine Tables 

AA 21,74,75-77 

AB 21,74,78-79 

AC 24,74,79 

AD 25,74,79 

AE 25,74,80 

AF 25,74,80 

AG 25,74,80 

AH 26,74 

AI 26,74 

AJ 26,74 

AK 26,74,80 

AL 26,74,81-85 

AM 26,74,86 

AN 26,81-85 

AS 27,88,94-95 

AT 26,74.1,86,86.1 

AV 27,89,96 

BC 27-28,90,97-98 

BE 27 

BF 27 

BG 28,91,100-101 

BI 28 

BJ 28 

BM 28,92,102 

BN 28 



BO 


28 


BP 


through BV 28 


BW 


28,93 


BX 


26,105,111 


CA 


30,112 


CC 


30,113 


CE 


30,113 


CG 


30 


CI 


30-31,106,114 


CK 


30 


CL 


30.107,115 


CM 


30 


CN 


30 


CO 


30-31,108,116 


CP 


30 


CR 


30 


CS 


30-31,109,117 


CT 


30 


CV 


30-31,110,118 


CW 


30 


ED 


33,135 


EF 


33 


EG 


33-34,120,135 


EH 


34 


EI 


34,121,137-138 


EJ 


34 


EK 


35 


EL 


35,122,140-141 


EM 


35 


EP 


35-36,123,143-144 


EV 


36 


EW 


36,124,145 


EY 


36,125,146 


Fl 


26.1,161 


FA 


36-37,126,147-148 


PE 


37,127,149-150 


FI 


37,128,150-151 


FK 


37,129,152 


FO 


37-38,130,153 


FQ 


38,131,154-155 


FT 


38-39,132,156-157 


FV 


39,133,158-159 


FX 


39-40,134,160-161 


GA 


41,163,171 


GB 


41-42,164,172-173 


GC 


41 


GK 


41,165,174 


GO 


42,175 


GP 


42,166,176-177 


GU 


43,167,179-180 


HP 


43,168,181-182 


HK 


43,169,183 


HP 


43,170,184 


lA 


44,186,194 


IG 


45,187,195 


IK 


45,188,196 


IL 


45,189,196 


IM 


45,190,196-197 


IT 


45,191,198-199 


IX 


45-46,192,199 


JD 


46,193,200 


JI 


46,202,205 


JK 


46-47,203,206-207 


JP 


47,204,208 


JZ 


26.1,74,208 


KA 


48,210,220 


KB 


48 


KC 


48,212,221 



Index 509 



KE 


48.213,221-222 


KG 


48-49,214,222 


KJ 


49,215,223 


KN 


49,216,224 


KO 


49-50,217,225-231 


KP 


49 


KQ 


49 


KT 


50,218,232-233 


KU 


50,219,234-236 


KV 


50 


LB 


51,238,268 


LD 


52,239,269 


LG 


52,240,270-271 


LR 


52 


LS 


52-53,241,272-273 


LV 


53,242,274 


LW 


53 


LX 


53,243,275-276 


LY 


53 


xm 


53-54,244,277-278 


MB 


54,245,279-280 


MD 


54,246,281 


ME 


54,247,282 


MG 


54,248,284 


MI 


54,249,287 


MK 


55,250,288 


ML 


55,251,289 


MM 


55,252,289-290 


MP 


55,253,291 


MS 


55,254,292-293 


NA 


55-56,255,294-295 


N6 


56,256,297 


NJ 


56-57,257,298-302 


NM 


57-58,258,304 


NT 


58,259,305 


NU 


58,260,306 


OB 


59,261,307-309 


OD 


59,262,310 


OE 


59-60,263,311 


OG 


60,264,312-313 


OL 


60 


OM 


60,265,314 


OP 


60,266,315 


OS 


60,267,316 


PA 


61,319,329 


PD 


61,320,330 


PH 


61-62,321,331-332 


PL 


62,322,333 


PO 


62 


PP 


62-63,323,334-335 


PT 


63,324,336-337 


QF 


63-64,325,338-339 


QJ 


64,326,340-341 


QU 


65,327,342-343 


QX 


65,328,344 


RA 


66,346,349-350 


RB 


66 


RC 


66 


RD 


66,347,351-352 


RF 


67,348,353 


RG 


67 


RH 


67 


TF 


67,356,365 


TJ 


67,357,366 


TO 


67-68,358,367 


TQ 


67-68 


TT 


68,359^368-369 


UA 


68-69,360,370-371 



UD 69,361,372 
UE 69,362,373-374 
UF 69,363,375-376 
UH 69 
UI 69 

XA 69,364,378 
XB 69 
XC 69 
XF 69 

XG through YY 69-7 
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Error Editor 19,69,364 
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Translator 18,43-46,185 
organization 17 
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preprocessor 46 

in aggregates phase 46 
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to 40 
procedure calls 42 
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processing program 15 
program check handling 23 
prologue 61 
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prologue code 64 

examples 460-465 
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instructions 47 
in-line 52-53 
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pseudo- variables 32 
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system generation, tables 458-459 
SYSUT1 15 
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tables and routine directories, introduction 71 

TASK option, code bytes 41 

tasking information in DSA 63 
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SELL statements 40 

statements within statements 40 

temporary storage 40 
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absolute code 433-434 

after read-in phase 418-423 
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transformation subscripts 48-49 
translation table 29 
translator logical phase 
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stacker phase 4 3 
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triples 

ASSIGNMENT 59 

format 44 

MULTIPLE ASSIGNMENT 59 
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SPECIAL ASSIGNMENT 59 
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TSLOTS 22 
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type 1 entry 68 
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'unsafe' variables 4 8 
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USSL declaration 50 
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value scan 28 
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in pseudo-code phase 55 
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warning messages 23 

weights, compare 44 

weights, stack 44 

work data sets (see data sets) 
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SYSLIN 15 
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ZURD routine 25 
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